[Pkg] The Trunk: Morphic-mt.1558.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Oct 7 08:24:45 UTC 2019


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!



More information about the Packages mailing list