The Trunk: ST80-cmm.180.mcz

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

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

Name: ST80-cmm.180
Author: cmm
Time: 21 April 2015, 4:52:06.562 pm
UUID: 187b7902-f75a-412b-947f-2f5065b248e7
Ancestors: ST80-mt.179

Same Command+a behavior in MVC as Morphic.

=============== Diff against ST80-mt.179 ===============

Item was changed:
  ----- Method: ParagraphEditor>>argAdvance: (in category 'typing/selecting keys') -----
+ argAdvance: characterStream
+ "Invoked by Ctrl-a. Useful after Ctrl-q or pasting a selector.
+ Search forward from the end of the selection for a colon and place
+ the caret after it. If no colon is found, do nothing.."
- argAdvance: characterStream
- "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 |
+ "flush character"
+ sensor keyboard.
- sensor keyboard. "flush character"
  self closeTypeIn: characterStream.
+ start := paragraph text findString: ':' startingAt: self stopIndex.
+ start = 0
+ ifFalse: [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!