Karl Ramberg uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-kfr.126.mcz==================== Summary ====================
Name: EToys-kfr.126
Author: kfr
Time: 5 May 2015, 6:24:47.803 pm
UUID: a325f205-34bf-e24b-8fb4-173d05fa300b
Ancestors: EToys-kfr.125
Fix spelling
=============== Diff against EToys-kfr.125 ===============
Item was changed:
----- Method: Player>>tearOffButtonToFireScriptForSelector: (in category 'costume') -----
tearOffButtonToFireScriptForSelector: aSelector
"Tear off a button to fire the script for the given selector"
| aButton props |
+ Preferences useButtonPropertiesToFire ifFalse:
- Preferences useButtonProprtiesToFire ifFalse:
[aButton := ScriptActivationButton new.
aButton initializeForPlayer: self uniclassScript: (self class scripts at: aSelector).
^ aButton openInHand].
(aButton := RectangleMorph new) useRoundedCorners; color: Color yellow.
props := aButton ensuredButtonProperties.
props
target: self;
actionSelector: #runScript:;
arguments: {aSelector};
delayBetweenFirings: 80;
actWhen: #mouseUp;
mouseDownHaloWidth: 8;
wantsRolloverIndicator: true;
mouseOverHaloWidth: 5;
establishEtoyLabelWording.
aButton width: aButton submorphs first width + 20; height: 20.
self currentHand attachMorph: aButton.
!