The Trunk: EToys-pre.141.mcz

Patrick Rein uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-pre.141.mcz

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

Name: EToys-pre.141
Author: pre
Time: 4 August 2016, 12:47:41.822407 pm
UUID: 7f4ea675-0382-3e4e-a28e-5bffa94563d3
Ancestors: EToys-mt.140

Same fix applied to TrashCanBin applied to etoys morphs.

=============== Diff against EToys-mt.140 ===============

Item was changed:
  ----- Method: StandardScriptingSystem>>goButton (in category '*Etoys-script-control') -----
  goButton
  | aButton |
  aButton :=  ThreePhaseButtonMorph new.
+ aButton
- aButton image:  (ScriptingSystem formAtKey: 'GoPicOn');
  offImage: (ScriptingSystem formAtKey: 'GoPic');
  pressedImage: (ScriptingSystem formAtKey: 'GoPicOn');
+ image:  (ScriptingSystem formAtKey: 'GoPicOn');
  actionSelector: #goUp:with:;
  arguments: (Array with: nil with: aButton);
  actWhen: #buttonUp;
  target: self;
  setNameTo: 'Go Button';
  setBalloonText:
  'Resume running all paused scripts' translated.
  ^ aButton!

Item was changed:
  ----- Method: StandardScriptingSystem>>stepButton (in category '*Etoys-script-control') -----
  stepButton
  | aButton |
  self flag: #deferred.  "ambiguity about recipients"
  aButton := ThreePhaseButtonMorph new.
  aButton
- image:  (ScriptingSystem formAtKey: 'StepPicOn');
  offImage: (ScriptingSystem formAtKey: 'StepPic');
  pressedImage:  (ScriptingSystem formAtKey: 'StepPicOn');
+ image:  (ScriptingSystem formAtKey: 'StepPicOn');
  arguments: (Array with: nil with: aButton);
  actionSelector: #stepStillDown:with:;
  target: self;
  setNameTo: 'Step Button';
  actWhen: #whilePressed;
  on: #mouseDown send: #stepDown:with: to: self;
  on: #mouseStillDown send: #stepStillDown:with: to: self;
  on: #mouseUp send: #stepUp:with: to: self;
  setBalloonText:
  'Run every paused script exactly once.  Keep the mouse button down over "Step" and everything will keep running until you release it' translated.
  ^ aButton!

Item was changed:
  ----- Method: StandardScriptingSystem>>stopButton (in category '*Etoys-script-control') -----
  stopButton
  "Answer a new button that can serve as a stop button"
  | aButton |
  aButton := ThreePhaseButtonMorph new.
  aButton
- image:  (ScriptingSystem formAtKey: 'StopPic');
  offImage: (ScriptingSystem formAtKey: 'StopPic');
+ pressedImage:  (ScriptingSystem formAtKey: 'StopPicOn');
+ image:  (ScriptingSystem formAtKey: 'StopPic').
- pressedImage:  (ScriptingSystem formAtKey: 'StopPicOn').
  aButton actionSelector: #stopUp:with:;
  arguments: (Array with: nil with: aButton);
  actWhen: #buttonUp;
  target: self;
  setNameTo: 'Stop Button';
  setBalloonText: 'Pause all ticking scripts.' translated.
  ^ aButton!