[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