[squeak-dev] The Trunk: EToys-pre.141.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Aug 4 10:48:00 UTC 2016


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!



More information about the Squeak-dev mailing list