<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
                                        Thanks! :-)<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;'>
                        <p style='color: #AAAAAA; margin-top: 10px;'>Am 06.12.2021 19:57:17 schrieb Thiede, Christoph <christoph.thiede@student.hpi.uni-potsdam.de>:</p><div style='font-family:Arial,Helvetica,sans-serif'>


<div dir="ltr">
<div id="x_divtagdefaultwrapper" dir="ltr" style="font-size: 12pt;color: #000000;font-family: Calibri,Helvetica,sans-serif">
<p><img size="56309" id="x_img693811" tabindex="0" style="max-width:99.9%" src="cid:77ac98ba-9ef1-4dc4-9f7b-a492f1197c09"></img><br>
</p>
<p><br>
</p>
<p>PS: The future work ideas from this thread still apply: <a href="http://lists.squeakfoundation.org/pipermail/squeak-dev/2020-March/208018.html" class="x_OWAAutoLink" id="LPlnk695272">http://lists.squeakfoundation.org/pipermail/squeak-dev/2020-March/208018.html</a> :-)</p>
<p><br>
</p>
<p>Best,</p>
<p>Christoph</p>
</div>
<hr tabindex="-1" style="display:inline-block; width:98%">
<div id="x_divRplyFwdMsg" dir="ltr"><span style="font-family: Calibri, sans-serif;color: #000000"><b>Von:</b> Squeak-dev <squeak-dev-bounces@lists.squeakfoundation.org> im Auftrag von commits@source.squeak.org <commits@source.squeak.org><br>
<b>Gesendet:</b> Montag, 6. Dezember 2021 19:54:56<br>
<b>An:</b> squeak-dev@lists.squeakfoundation.org; packages@lists.squeakfoundation.org<br>
<b>Betreff:</b> [squeak-dev] The Trunk: Tools-ct.1081.mcz</span>
<div> </div>
</div>
</div>
<span style="font-size: 10pt"><span style="font-size: 10pt">
<div class="PlainText">Christoph Thiede uploaded a new version of Tools to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/Tools-ct.1081.mcz">http://source.squeak.org/trunk/Tools-ct.1081.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Tools-ct.1081<br>
Author: ct<br>
Time: 6 December 2021, 7:54:51.658405 pm<br>
UUID: d64478c1-8f6f-1f49-b6ad-21783eadeffe<br>
Ancestors: Tools-mt.1080, Tools-ct.960<br>
<br>
Merges Tools-ct.960:<br>
<br>
        Revise message list menus and make "toggle break on entry" an actual toggle item. Improves multilingual support.<br>
<br>
=============== Diff against Tools-mt.1080 ===============<br>
<br>
Item was changed:<br>
  ----- Method: Browser>>mainMessageListMenu: (in category 'message functions') -----<br>
  mainMessageListMenu: aMenu<br>
         <messageListMenuShifted: false><br>
+ <br>
+        ^ aMenu<br>
+                addTranslatedList: #(<br>
+                        ('what to show...'                      offerWhatToShowMenu));<br>
+                add: (self isBreakOnEntry ifTrue: ['<on>'] ifFalse: ['<off>']) , 'break on entry' translated<br>
+                        action: #toggleBreakOnEntry;<br>
+                addTranslatedList: #(<br>
-        ^ aMenu addList: #(<br>
-                        ('what to show...'                      offerWhatToShowMenu)<br>
-                        ('toggle break on entry'                toggleBreakOnEntry)<br>
                         -<br>
                         ('browse full (b)'                       browseMethodFull)<br>
                         ('browse hierarchy (h)'         browseClassHierarchy)<br>
                         ('browse protocol (p)'                  browseFullProtocol)<br>
                         -<br>
                         ('fileOut'                                      fileOutMessage)<br>
                         ('printOut'                                     printOutMessage)<br>
                         ('copy selector (c)'                    copySelector)<br>
                         ('copy reference (C)'           copyReference)<br>
                         -<br>
                         ('senders of... (n)'                    browseSendersOfMessages)<br>
                         ('implementors of... (m)'               browseMessages)<br>
                         ('inheritance (i)'                      methodHierarchy)<br>
                         ('versions (v)'                         browseVersions)<br>
                         -<br>
                         ('references... (r)'                    browseVariableReferences)<br>
                         ('assignments... (a)'                   browseVariableAssignments)<br>
                         ('class refs (N)'                       browseClassRefs)<br>
                         -<br>
                         ('remove method (x)'                    removeMessage)<br>
                         ('explore method'                       exploreMethod)<br>
                         ('inspect method'                       inspectMethod));<br>
+                yourself!<br>
-                yourself<br>
- !<br>
<br>
Item was added:<br>
+ ----- Method: CodeHolder>>isBreakOnEntry (in category 'breakpoints') -----<br>
+ isBreakOnEntry<br>
+ <br>
+        | selectedMethod |<br>
+        selectedMethod := self selectedClassOrMetaClass<br>
+                compiledMethodAt: self selectedMessageName<br>
+                ifAbsent: [^ false].<br>
+        ^ selectedMethod hasBreakpoint!<br>
<br>
Item was changed:<br>
  ----- Method: Debugger>>mainContextStackMenu: (in category 'context stack menu') -----<br>
  mainContextStackMenu: aMenu<br>
         "Set up the menu appropriately for the context-stack-list, unshifted"<br>
         <contextStackMenuShifted: false><br>
+        ^ aMenu<br>
+                addTranslatedList: #(<br>
-        ^ aMenu addList: #(<br>
                         ('fullStack (f)'                                 fullStack)
<br>
                         ('restart (r)'                           restart) <br>
                         ('proceed (p)'                           proceed) <br>
                         ('step (t)'                                      doStep)
<br>
                         ('step through (T)'               stepIntoBlock) <br>
                         ('send (e)'                                      send) <br>
                         ('where (w)'                             where) <br>
                         ('peel to first like this'               peelToFirst) <br>
                         - <br>
                         ('return entered value'          returnValue) <br>
+                        - );<br>
+                add: (self isBreakOnEntry ifTrue: ['<on>'] ifFalse: ['<off>']) , 'break on entry' translated<br>
+                        action: #toggleBreakOnEntry;<br>
+                addTranslatedList: #(<br>
-                        - <br>
-                        ('toggle break on entry'        toggleBreakOnEntry) <br>
                         ('senders of    (n)'                     browseSendersOfMessages)
<br>
                         ('implementors of    (m)'        browseMessages) <br>
                         ('inheritance (i)'                       methodHierarchy)
<br>
-                        - <br>
                         ('versions (v)'                          browseVersions)
<br>
                         - <br>
                         ('references    (r)'                     browseVariableReferences)
<br>
                         ('assignments    (a)'            browseVariableAssignments)
<br>
                         - <br>
                         ('class refs (N)'                                browseClassRefs)
<br>
                         ('browse full (b)'                       browseMethodFull)
<br>
                         ('file out '                               fileOutMessage)
<br>
                         ('remove method (x) '            removeMessage) <br>
                         - <br>
                         ('copy bug report to clipboard' copyBugReportToClipboard));<br>
+                yourself!<br>
-                yourself<br>
- !<br>
<br>
Item was changed:<br>
  ----- Method: MessageSet>>mainMessageListMenu: (in category 'message list') -----<br>
  mainMessageListMenu: aMenu<br>
-        "Answer the message-list menu"<br>
         <messageListMenuShifted: false><br>
+ <br>
+        ^ aMenu<br>
+                addTranslatedList: #(<br>
+                        ('what to show...'                      offerWhatToShowMenu));<br>
+                add: (self isBreakOnEntry ifTrue: ['<on>'] ifFalse: ['<off>']) , 'break on entry' translated<br>
+                        action: #toggleBreakOnEntry;<br>
+                addTranslatedList: #(<br>
-        aMenu addList: #(<br>
-                        ('what to show...'                      offerWhatToShowMenu)<br>
-                        ('toggle break on entry'                toggleBreakOnEntry)<br>
                         -<br>
                         ('browse full (b)'                       browseMethodFull)<br>
                         ('browse hierarchy (h)'                 browseClassHierarchy)<br>
                         ('browse protocol (p)'                  browseFullProtocol)<br>
                         -<br>
                         ('fileOut'                              fileOutMessage)<br>
                         ('printOut'                             printOutMessage)<br>
                         ('copy selector (c)'            copySelector)<br>
                         ('copy reference (C)'   copyReference)<br>
                         -<br>
                         ('senders of... (n)'                    browseSendersOfMessages)<br>
                         ('implementors of... (m)'               browseMessages)<br>
                         ('inheritance (i)'                      methodHierarchy)<br>
                         ('versions (v)'                         browseVersions)<br>
                         -<br>
                         ('references... (r)'                    browseVariableReferences)<br>
                         ('assignments... (a)'                   browseVariableAssignments)<br>
                         ('class refs (N)'                       browseClassRefs)<br>
                         -<br>
                         ('remove method (x)'                    removeMessage)<br>
                         ('explore method'                       exploreMethod)<br>
+                        ('inspect method'                       inspectMethod));<br>
+                yourself!<br>
-                        ('inspect method'                       inspectMethod)).<br>
-        ^ aMenu!<br>
<br>
<br>
</div>
</span></span>
</div></blockquote>
                                        </div></body>