The Trunk: Morphic-cmm.676.mcz

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!