Chris Muller uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-cmm.676.mcz

==================== Summary ====================

Name: Morphic-cmm.676
Author: cmm
Time: 7 August 2013, 4:55:40.374 pm
UUID: 0515d02e-790f-446a-a7fd-4925b0a58ada
Ancestors: Morphic-fbs.675

- Don't blow up in rendering code is asked to draw a polygon with no vertices.
- Ensure flash provides sufficient contrast to be easily visible in all cases.
- FINALLY!  The problem where code was truncated by the right-edge of the code editor is fixed.  THANKS Bob Arning!
- Make Shift+Command+a (arg-advance) work for selectors that have no spaces, such as when having pasted the selector from the methods list.

=============== Diff against Morphic-fbs.675 ===============

Item was changed:
  ----- Method: BalloonCanvas>>drawPolygon:fillStyle:borderWidth:borderColor: (in category 'drawing-polygons') -----
  drawPolygon: vertices fillStyle: aFillStyle borderWidth: borderWidth borderColor: borderColor
  	"Draw a simple polygon defined by the list of vertices."
  	| fillC borderC |
+ 	vertices ifEmpty: [ ^ self ].
  	fillC := self shadowColor ifNil:[aFillStyle].
  	borderC := self shadowColor ifNil:[borderColor].
  	self ensuredEngine
  		drawPolygon: (vertices copyWith: vertices first)
  		fill: fillC
  		borderWidth: borderWidth
  		borderColor: borderC
  		transform: transform.!

Item was changed:
  ----- Method: Morph>>flash (in category 'macpal') -----
  flash
  	| originalColor |
  	originalColor := self color.
  	[ self color:
  		(originalColor
  			ifNil: [ Color black ]
+ 			ifNotNil: [ (originalColor alpha: 1) negated adjustSaturation: 0.8 brightness: 0 ]) ]
- 			ifNotNil: [ (originalColor alpha: 1) negated ]) ]
  		ensure:
  			[ self world ifNotNil: [ : w | w displayWorldSafely ].
  			self color: originalColor ]!

Item was changed:
  ----- Method: PluggableTextMorphPlus>>stylerStyled: (in category 'styling') -----
  stylerStyled: styledCopyOfText
  	"Sent after the styler completed styling the underlying text"
  	textMorph contents runs: styledCopyOfText runs .
  	"textMorph paragraph recomposeFrom: 1 to: textMorph contents size delta: 0."     "caused chars to appear in wrong order esp. in demo mode. remove this line when sure it is fixed"
+ 	textMorph paragraph composeAll.
  	textMorph updateFromParagraph.
  	selectionInterval 
  		ifNotNil:[
  			textMorph editor
  				selectInvisiblyFrom: selectionInterval first to: selectionInterval last;
  				storeSelectionInParagraph;
  				setEmphasisHere].
  	textMorph editor blinkParen.
  	self scrollSelectionIntoView!

Item was changed:
  ----- Method: TextEditor>>argAdvance: (in category 'typing/selecting keys') -----
+ argAdvance: aKeyboardEvent 
+ 	"Invoked by Ctrl-a or Shift+Command+A.  Useful after Ctrl-q.
+ 	 Search forward from the end of the selection for a colon followed by a space.  Place the caret after the space.  If none are found, place the caret at the end of the text.  Does not affect the undoability of the previous command."
- argAdvance: aKeyboardEvent
- 	"Invoked by Ctrl-a.  Useful after Ctrl-q.
- 	 Search forward from the end of the selection for a colon followed by
- 		a space.  Place the caret after the space.  If none are found, place the
- 		caret at the end of the text.  Does not affect the undoability of the 
- 	 	previous command."
- 
  	| start |
  	self insertAndCloseTypeIn.
+ 	start := paragraph text
+ 		findString: ': '
+ 		startingAt: self stopIndex.
+ 	start isZero
+ 		ifTrue:
+ 			[ (start := paragraph text
+ 				findString: ':'
+ 				startingAt: self stopIndex) isZero ifTrue: [ start := paragraph text size + 1 ] ]
+ 		ifFalse: [ start := start + 1 ].
+ 	self selectAt: start + 1.
+ 	^ true!
- 	start := paragraph text findString: ': ' startingAt: self stopIndex.
- 	start = 0 ifTrue: [start := paragraph text size + 1].
- 	self selectAt: start + 2.
- 	^true!