Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1840.mcz
==================== Summary ====================
Name: Morphic-ct.1840 Author: ct Time: 3 January 2022, 5:10:40.762703 pm UUID: 3a699b7d-f8fa-8343-9bb3-d6f8891fffbf Ancestors: Morphic-mt.1839
Implements "browse action code" and "debug action invocation" on SimpleButtonMorph. Try it out on a system window's box, for instance.
=============== Diff against Morphic-mt.1839 ===============
Item was added: + ----- Method: SimpleButtonMorph>>browseImplementationOfActionSelector (in category 'debug menu') ----- + browseImplementationOfActionSelector + + ToolSet browseMethod: (self target class lookupSelector: self actionSelector).!
Item was added: + ----- Method: SimpleButtonMorph>>buildDebugMenu: (in category 'debug menu') ----- + buildDebugMenu: aHandMorph + + | aMenu | + aMenu := super buildDebugMenu: aHandMorph. + aMenu addLine. + aMenu add: 'browse action code' translated target: self action: #browseImplementationOfActionSelector. + aMenu add: 'debug action invocation' translated target: self action: #debugAction. + ^ aMenu!
Item was added: + ----- Method: SimpleButtonMorph>>debugAction (in category 'debug menu') ----- + debugAction + + (Process + forBlock: [self doButtonAction] + runUntil: [:context | context selector = self actionSelector]) + debugWithTitle: ('Debug button action "{1}" in model "{2}"' translated format: {self label. self target printString}).!