The Trunk: Morphic-eem.613.mcz

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

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

Name: Morphic-eem.613
Author: eem
Time: 16 March 2012, 4:54:03.311 pm
UUID: b792560c-c6f2-4125-80e3-a0838496794b
Ancestors: Morphic-bf.612

Fix explain for :=

=============== Diff against Morphic-bf.612 ===============

Item was changed:
  ----- Method: TextEditor>>explainDelimitor: (in category 'explain') -----
  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) ifNotNil: [
- ^'"An argument to this block will be bound to the temporary variable ',
- str, '."']]].
  ^ nil!