And still, I would desire to deduplicate all these #debugAction implementations ...

<http://www.hpi.de/>
________________________________
Von: Squeak-dev <squeak-dev-bounces at lists.squeakfoundation.org> im Auftrag von commits at source.squeak.org <commits at source.squeak.org>
Gesendet: Montag, 20. Januar 2020 20:57:49
An: squeak-dev at lists.squeakfoundation.org
Betreff: [squeak-dev] The Inbox: ToolBuilder-Morphic-ct.252.mcz

Christoph Thiede uploaded a new version of ToolBuilder-Morphic to project The Inbox:
http://source.squeak.org/inbox/ToolBuilder-Morphic-ct.252.mcz

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

Name: ToolBuilder-Morphic-ct.252
Author: ct
Time: 20 January 2020, 8:57:46.404972 pm
UUID: 2b311bcc-31ca-dc4d-8ebf-7a1cad07624e
Ancestors: ToolBuilder-Morphic-mt.251

Implement "browse/debug button action" properly on PluggabeButtonMorphPlus

=============== Diff against ToolBuilder-Morphic-mt.251 ===============

Item was added:
+ ----- Method: PluggableButtonMorphPlus>>browseImplementationOfActionSelector (in category 'debug menu') -----
+ browseImplementationOfActionSelector
+
+        action ifNotNil: [
+                ^ action outerContext method browse].
+        ^ super browseImplementationOfActionSelector!

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


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20200120/fbdf33cd/attachment.html>