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