Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2152.mcz
==================== Summary ====================
Name: Morphic-mt.2152 Author: mt Time: 14 February 2024, 1:41:08.155344 pm UUID: 2437b99d-d4cc-2647-b5f1-efbc85d16c89 Ancestors: Morphic-dtl.2151
In a button's debug menu (via halo), add spy-on shortcut besides debug-it and browse-it. Useful for profiling the effects of a button click.
=============== Diff against Morphic-dtl.2151 ===============
Item was changed: ----- Method: MenuItemMorph>>buildDebugMenu: (in category 'browse') ----- buildDebugMenu: aHandMorph | aMenu | aMenu := super buildDebugMenu: aHandMorph. aMenu addLine. aMenu add: 'browse action code' translated target: self action: #browseImplementationOfActionSelector. aMenu lastItem isEnabled: self selector notNil. aMenu add: 'debug action invocation' translated target: self action: #debugAction. aMenu lastItem isEnabled: self selector notNil. + aMenu add: 'spy on action invocation' translated target: self action: #spyOnAction. + aMenu lastItem isEnabled: self selector notNil. ^ aMenu!
Item was added: + ----- Method: MenuItemMorph>>spyOnAction (in category 'browse') ----- + spyOnAction + + TimeProfileBrowser spyOn: [self doButtonAction].!
Item was changed: ----- Method: PluggableButtonMorph>>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 add: 'spy on action invocation' translated target: self action: #spyOnAction. ^ aMenu!
Item was added: + ----- Method: PluggableButtonMorph>>spyOnAction (in category 'debug menu') ----- + spyOnAction + + self updateArguments. + TimeProfileBrowser spyOn: [self doButtonAction].!
Item was changed: ----- 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 add: 'spy on action invocation' translated target: self action: #spyOnAction. ^ aMenu!
Item was added: + ----- Method: SimpleButtonMorph>>spyOnAction (in category 'debug menu') ----- + spyOnAction + + TimeProfileBrowser spyOn: [self doButtonAction].!
packages@lists.squeakfoundation.org