Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.345.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.345 Author: mt Time: 9 August 2023, 12:55:27.112576 pm UUID: 645352a9-d870-8448-9048-ebfdf68b96d5 Ancestors: ToolBuilder-Morphic-mt.344
For debug/browse action invocation in buttons (via halo), add support for message sends, not just block closures. Now we can debug the buttons in the FileList tools.
=============== Diff against ToolBuilder-Morphic-mt.344 ===============
Item was changed: ----- Method: PluggableButtonMorphPlus>>browseImplementationOfActionSelector (in category 'debug menu') ----- browseImplementationOfActionSelector
+ action ifNil: [^ super browseImplementationOfActionSelector]. + + action isMessageSend + ifFalse: ["closure" + action homeMethod browse] + ifTrue: ["messages send" + (action arguments ifNil: [#()]) ifNotEmpty: [:args | args explore]. + ToolSet browseMethod: (action receiver class lookupSelector: action selector)] + ! - action - ifNil: [super browseImplementationOfActionSelector] - ifNotNil: [action homeMethod browse].!
Item was changed: ----- Method: PluggableButtonMorphPlus>>debugAction (in category 'debug menu') ----- debugAction
action ifNil: [^ super debugAction]. (Process forBlock: [self performAction] + runUntil: [:context | context closure = action or: [context selector = action "message send" selector]]) - runUntil: [:context | context closure = action]) debugWithTitle: ('Debug button action "{1}" in model "{2}"' translated format: {self label. self target printString}).!
packages@lists.squeakfoundation.org