[Pkg] The Trunk: ST80-cmm.180.mcz

[commits at source.squeak.org]

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!