<div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
<img src="cid:8429ae42-a4ba-48bf-99e7-0567498feac8" width="auto"></img><div><br></div><div><img src="cid:2a46fbb8-2c8f-438b-a948-81f36773e14e" width="auto"></img></div><div class="mb_sig"></div>
<blockquote class="history_container" type="cite" style="border-left-style: solid;border-width: 1px;margin-top: 20px;margin-left: 0px;padding-left: 10px;min-width: 500px">
<p style="color: #AAAAAA; margin-top: 10px;">Am 07.10.2019 10:24:54 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">Marcel Taeumel uploaded a new version of Morphic to project The Trunk:<br>http://source.squeak.org/trunk/Morphic-mt.1558.mcz<br><br>==================== Summary ====================<br><br>Name: Morphic-mt.1558<br>Author: mt<br>Time: 7 October 2019, 10:24:35.393231 am<br>UUID: 8fe72199-d211-3949-865d-898d5339ccf7<br>Ancestors: Morphic-mt.1557<br><br>Follwing Jakob's (jr) suggestions, update debug menu of buttons and menu items.<br><br>=============== Diff against Morphic-mt.1557 ===============<br><br>Item was added:<br>+ ----- Method: MenuItemMorph>>browseImplementationOfActionSelector (in category 'browse') -----<br>+ browseImplementationOfActionSelector<br>+ <br>+ | method |<br>+ method := target class lookupSelector: selector.<br>+ ToolSet browse: method methodClass selector: method selector.!<br><br>Item was changed:<br> ----- Method: MenuItemMorph>>buildDebugMenu: (in category 'browse') -----<br> buildDebugMenu: aHandMorph<br> | aMenu |<br> aMenu := super buildDebugMenu: aHandMorph.<br> aMenu addLine.<br>+ aMenu add: 'browse action code' translated target: self action: #browseImplementationOfActionSelector.<br>+ aMenu add: 'debug action invocation' translated target: self action: #debugAction.<br>- aMenu add: 'implementors of' translated target: self action: #browseAllImplementorsOfRealSelector.<br> ^ aMenu!<br><br>Item was added:<br>+ ----- Method: MenuItemMorph>>debugAction (in category 'browse') -----<br>+ debugAction<br>+ <br>+ (Process<br>+ forBlock: [self doButtonAction]<br>+ runUntil: [:context | context selector = self selector])<br>+ debugWithTitle: ('Debug menu action "{1}" in model "{2}"' format: {self contents. self target printString}).!<br><br>Item was added:<br>+ ----- Method: PluggableButtonMorph>>browseImplementationOfActionSelector (in category 'debug menu') -----<br>+ browseImplementationOfActionSelector<br>+ <br>+ | method |<br>+ method := model class lookupSelector: actionSelector.<br>+ ToolSet browse: method methodClass selector: method selector.!<br><br>Item was changed:<br>+ ----- Method: PluggableButtonMorph>>buildDebugMenu: (in category 'debug menu') -----<br>- ----- Method: PluggableButtonMorph>>buildDebugMenu: (in category 'browse') -----<br> buildDebugMenu: aHandMorph<br> | aMenu |<br> aMenu := super buildDebugMenu: aHandMorph.<br> aMenu addLine.<br>+ aMenu add: 'browse action code' translated target: self action: #browseImplementationOfActionSelector.<br>+ aMenu add: 'debug action invocation' translated target: self action: #debugAction.<br>- aMenu add: 'implementors of' translated target: self action: #browseAllImplementorsOfActionSelector.<br> ^ aMenu!<br><br>Item was added:<br>+ ----- Method: PluggableButtonMorph>>debugAction (in category 'debug menu') -----<br>+ debugAction<br>+ <br>+ (Process<br>+ forBlock: [self performAction]<br>+ runUntil: [:context | context selector = self actionSelector])<br>+ debugWithTitle: ('Debug button action "{1}" in model "{2}"' format: {self label. self target printString}).!<br><br>Item was added:<br>+ ----- Method: PluggableButtonMorph>>model (in category 'accessing') -----<br>+ model<br>+ <br>+ ^ model!<br><br>Item was added:<br>+ ----- Method: PluggableButtonMorph>>target (in category 'accessing') -----<br>+ target<br>+ <br>+ ^ model!<br><br><br></div></blockquote></div>