[Pkg] The Trunk: ST80-eem.139.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-eem.139.mcz

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

Name: ST80-eem.139
Author: eem
Time: 16 March 2012, 4:55:33.055 pm
UUID: aff34e8b-6dbc-4e4d-b951-474f74290cbd
Ancestors: ST80-dtl.138

Fix explain for :=

=============== Diff against ST80-dtl.138 ===============

Item was changed:
  ----- Method: ParagraphEditor>>explainDelimitor: (in category 'private') -----
  explainDelimitor: string
  	"Is string enclosed in delimitors?"
  
  	| str |
  	(string at: 1) isLetter ifTrue: [^nil].  "only special chars"
  	(string first = string last) ifTrue:
  			[^ self explainChar: (String with: string first)]
  		ifFalse:
  			[(string first = $( and: [string last = $)]) ifTrue:
  				[^ self explainChar: (String with: string first)].
  			(string first = $[ and: [string last = $]]) ifTrue:
  				[^ self explainChar: (String with: string first)].
  			(string first = ${ and: [string last = $}]) ifTrue:
  				[^ self explainChar: (String with: string first)].
  			(string first = $< and: [string last = $>]) ifTrue:
  				[^ self explainChar: (String with: string first)].
  			(string first = $# and: [string last = $)]) ifTrue:
+ 				[^'"An instance of class Array.  The Numbers, Characters, Symbols or Arrays between the parenthesis are the elements of the Array."'].
- 				[^'"An instance of class Array.  The Numbers, Characters, or Symbols between the parenthesis are the elements of the Array."'].
  			string first = $# ifTrue:
  				[^'"An instance of class Symbol."'].
  			(string first = $$ and: [string size = 2]) ifTrue:
  				[^'"An instance of class Character.  This one is the character ', (String with: string last), '."'].
  			(string first = $:) ifTrue:
+ 				[string = ':=' ifTrue:
+ 					[^'"Colon equals means assignment.  The value of the expression after the := is stored into the variable before it."'].
+ 				str := string allButFirst.
+ 				(self explainTemp: str) ifNotNil:
+ 					[^'"An argument to this block will be bound to the temporary variable ', str, '."']]].
- 				[str := string allButFirst.
- 				(self explainTemp: str) ~~ nil ifTrue:
- 					[^'"An argument to this block will be bound to the temporary variable ',
- 						str, '."']]].
  	^ nil!