[etoys-dev] Etoys: Morphic-bf.94.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of Morphic to project Etoys:
http://source.squeak.org/etoys/Morphic-bf.94.mcz

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

Name: Morphic-bf.94
Author: bf
Time: 24 June 2012, 8:23:29 pm
UUID: 143f52a9-1a4f-4200-872d-78cdabe1729d
Ancestors: Morphic-bf.93

Change Set:		brushSizePref-sw
Date:			13 January 2012
Author:			Scott Wallace

Pass current event to ThreePhaseButtonMorph's action, if wanted.

=============== Diff against Morphic-bf.93 ===============

Item was changed:
  ----- Method: ThreePhaseButtonMorph>>doButtonAction (in category 'button') -----
  doButtonAction
  	"Perform the action of this button. Subclasses may override this method. The default behavior is to send the button's actionSelector to its target object with its arguments."
  
+ 	| args |
  	(target notNil and: [actionSelector notNil]) 
  		ifTrue: 
+ 			[args := actionSelector numArgs > arguments size
+ 				ifTrue:
+ 					[arguments copyWith: ActiveEvent]
+ 				ifFalse:
+ 					[arguments].
+ 			Cursor normal 
+ 				showWhile: [target perform: actionSelector withArguments: args].
- 			[Cursor normal 
- 				showWhile: [target perform: actionSelector withArguments: arguments].
  			target isMorph ifTrue: [target changed]]!