[squeak-dev] The Trunk: Morphic-ct.1840.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Jan 3 16:13:02 UTC 2022
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}).!
More information about the Squeak-dev
mailing list
|