[squeak-dev] The Trunk: Tools-ct.1081.mczMarcel Taeumel marcel.taeumel at hpi.deTue Dec 7 10:18:29 UTC 2021
Thanks! :-) Am 06.12.2021 19:57:17 schrieb Thiede, Christoph <christoph.thiede at 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.html [http://lists.squeakfoundation.org/pipermail/squeak-dev/2020-March/208018.html] :-) Best, Christoph 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, 6. Dezember 2021 19:54:56 An: squeak-dev at lists.squeakfoundation.org; packages at 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! -------------- next part -------------- An HTML attachment was scrubbed... URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20211207/8514577f/attachment-0001.html> -------------- next part -------------- A non-text attachment was scrubbed... Name: pastedImage.png Type: image/png Size: 56309 bytes Desc: not available URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20211207/8514577f/attachment-0001.png>
More information about the Squeak-dev mailing list |
