The Trunk: EToys-nice.106.mcz

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@3).
  aLine lastSubmorph delete.
  aLine lastSubmorph delete.
  aLine color: aColor; setNameTo: 'Number (fancy)'.
  aLine addMorphBack: (Morph new transparentSpacerOfSize: 3@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@3).
  aLine lastSubmorph delete.
  aLine lastSubmorph delete.
  aLine color: aColor.
  aLine addMorphBack: (Morph new transparentSpacerOfSize: 3@3).
  aLine addMorphBack: aTile.
  aLine cellPositioning: #leftCenter.
  aWatcher step; fitContents.
  ^ aLine markAsPartsDonor.!