<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>