Nicolas Cellier uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-nice.106.mcz

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

Name: EToys-nice.106
Author: nice
Time: 4 September 2013, 10:02:11.591 pm
UUID: 218304b1-6548-4190-bbaa-2e1dddcbc921
Ancestors: EToys-fbs.105

#= asSymbol sounds like superfluous
#= isSymbol

=============== Diff against EToys-fbs.105 ===============

Item was changed:
  ----- Method: NumericReadoutTile class>>authoringPrototype (in category 'scripting') -----
  authoringPrototype
  	"Enclose my prototype in a SyntaxMorph."
  
  	| aWatcher aTile aLine aColor ms slotMsg |
  
  	aColor := Color r: 0.387 g: 0.581 b: 1.0.
  	aTile := self new typeColor: aColor.
  	aWatcher := UpdatingStringMorph new.
  	aWatcher growable: true;
  		setToAllowTextEdit;
  		getSelector: nil;
  		putSelector: nil.
  	aWatcher target: nil.
  	aTile addMorphBack: aWatcher.
  	aTile addArrows.
  	aTile setLiteralTo: 5 width: 30.
  
  	"This is the long way around to do this..."
  	ms := MessageSend receiver: nil selector: #aNumber arguments: #().
  	slotMsg := ms asTilesIn: Player globalNames: false.
  		"For CardPlayers, use 'aPlayer'.  For others, name it, and use its name."
+ 	ms := MessageSend receiver: 3 selector: #= arguments: #(5).
- 	ms := MessageSend receiver: 3 selector: #= asSymbol arguments: #(5).
  	aLine := ms asTilesIn: Player globalNames: false.
  	aLine firstSubmorph delete.	
  	aLine addMorphFront: (slotMsg submorphs second) firstSubmorph.
  	aLine firstSubmorph setNameTo: 'label'.
  	aLine addMorphFront: (Morph new transparentSpacerOfSize: 3 at 3).
  	aLine lastSubmorph delete.
  	aLine lastSubmorph delete.
  	aLine color: aColor; setNameTo: 'Number (fancy)'.
  	aLine addMorphBack: (Morph new transparentSpacerOfSize: 3 at 3).
  	aLine addMorphBack: aTile.
  	aLine readOut setNameTo: 'value'.
  	aLine cellPositioning: #leftCenter.
  	aWatcher step; fitContents.
  	^ aLine markAsPartsDonor.!

Item was changed:
  ----- Method: NumericReadoutTile>>initializeToStandAlone (in category 'parts bin') -----
  initializeToStandAlone
  	"Enclose my prototype in a SyntaxMorph.  For the ObjectTool"
  
  	| aWatcher aTile aLine aColor ms slotMsg |
  
  	super initializeToStandAlone.
  	aColor := Color r: 0.387 g: 0.581 b: 1.0.
  	aTile := self typeColor: aColor.
  	aWatcher := UpdatingStringMorph new.
  	aWatcher growable: true;
  		getSelector: nil;
  		putSelector: nil;
  		setToAllowTextEdit.
  	aWatcher target: nil.
  	aTile addMorphBack: aWatcher.
  	aTile addArrows.
  	aTile setLiteralTo: 5 width: 30.
  
  	ms := MessageSend receiver: nil selector: #aNumber arguments: #().
  	slotMsg := ms asTilesIn: Player globalNames: false.
  		"For CardPlayers, use 'aPlayer'.  For others, name it, and use its name."
+ 	ms := MessageSend receiver: 3 selector: #= arguments: #(5).
- 	ms := MessageSend receiver: 3 selector: #= asSymbol arguments: #(5).
  	aLine := ms asTilesIn: Player globalNames: false.
  	aLine firstSubmorph delete.		"A little over-complicated?  Yes?"
  	aLine addMorphFront: (slotMsg submorphs second) firstSubmorph.
  	aLine addMorphFront: (Morph new transparentSpacerOfSize: 3 at 3).
  	aLine lastSubmorph delete.
  	aLine lastSubmorph delete.
  	aLine color: aColor.
  	aLine addMorphBack: (Morph new transparentSpacerOfSize: 3 at 3).
  	aLine addMorphBack: aTile.
  	aLine cellPositioning: #leftCenter.
  	aWatcher step; fitContents.
  	^ aLine markAsPartsDonor.!