The Trunk: Morphic-mt.1558.mcz

Am 07.10.2019 10:24:54 schrieb [hidden email] <[hidden email]>:

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1558.mcz

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

Name: Morphic-mt.1558
Author: mt
Time: 7 October 2019, 10:24:35.393231 am
UUID: 8fe72199-d211-3949-865d-898d5339ccf7
Ancestors: Morphic-mt.1557

Follwing Jakob's (jr) suggestions, update debug menu of buttons and menu items.

=============== Diff against Morphic-mt.1557 ===============

Item was added:
+ ----- Method: MenuItemMorph>>browseImplementationOfActionSelector (in category 'browse') -----
+ browseImplementationOfActionSelector
+
+ | method |
+ method := target class lookupSelector: selector.
+ ToolSet browse: method methodClass selector: method selector.!

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 add: 'debug action invocation' translated target: self action: #debugAction.
- aMenu add: 'implementors of' translated target: self action: #browseAllImplementorsOfRealSelector.
^ aMenu!

Item was added:
+ ----- Method: MenuItemMorph>>debugAction (in category 'browse') -----
+ debugAction
+
+ (Process
+ forBlock: [self doButtonAction]
+ runUntil: [:context | context selector = self selector])
+ debugWithTitle: ('Debug menu action "{1}" in model "{2}"' format: {self contents. self target printString}).!

Item was added:
+ ----- Method: PluggableButtonMorph>>browseImplementationOfActionSelector (in category 'debug menu') -----
+ browseImplementationOfActionSelector
+
+ | method |
+ method := model class lookupSelector: actionSelector.
+ ToolSet browse: method methodClass selector: method selector.!

Item was changed:
+ ----- Method: PluggableButtonMorph>>buildDebugMenu: (in category 'debug menu') -----
- ----- Method: PluggableButtonMorph>>buildDebugMenu: (in category 'browse') -----
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: 'implementors of' translated target: self action: #browseAllImplementorsOfActionSelector.
^ aMenu!

Item was added:
+ ----- Method: PluggableButtonMorph>>debugAction (in category 'debug menu') -----
+ debugAction
+
+ (Process
+ forBlock: [self performAction]
+ runUntil: [:context | context selector = self actionSelector])
+ debugWithTitle: ('Debug button action "{1}" in model "{2}"' format: {self label. self target printString}).!

Item was added:
+ ----- Method: PluggableButtonMorph>>model (in category 'accessing') -----
+ model
+
+ ^ model!

Item was added:
+ ----- Method: PluggableButtonMorph>>target (in category 'accessing') -----
+ target
+
+ ^ model!