[squeak-dev] The Trunk: EToys-nice.106.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Sep 4 20:04:04 UTC 2013
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.!
More information about the Squeak-dev
mailing list
|