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]]!
etoys-dev@lists.squeakfoundation.org