A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-ct.1172.mcz
==================== Summary ====================
Name: Tools-ct.1172 Author: ct Time: 8 September 2022, 3:03:50.094836 pm UUID: f2edc96d-df9a-6b49-9180-ba09b4bd2466 Ancestors: Tools-ct.1171
Proposal: In hierarchy browsers without a system category list, adds the "browse package" submenu to the class list menu. Also improves multilingual support.
=============== Diff against Tools-ct.1171 ===============
Item was changed: ----- Method: Browser>>classListMenu: (in category 'class functions') ----- classListMenu: aMenu "Conveniently fit for backward compatibility with old browers stored in image segments" <classListMenuShifted: false> + aMenu addTranslatedList: #( - aMenu addList: #( - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' spawnHierarchy) ('browse protocol (p)' browseFullProtocol) + ('browse documentation' browseAllCommentsForClass)). + + (self hasSystemCategoryList not and: [Smalltalk isMorphic] and: [self selectedPackage notNil]) ifTrue: [ + aMenu + add: ('browse package ''{1}''' translated format: {self selectedPackage name}) + subMenu: (self packageMenu: ((Smalltalk isMorphic + ifTrue: [MenuMorph new defaultTarget: self; yourself] + ifFalse: [CustomMenu new]) + yourself)) + target: self + selector: #yourself + argumentList: #()]. + + aMenu addTranslatedList: #( - ('browse documentation' browseAllCommentsForClass) - ('printOut' printOutClass) ('fileOut' fileOutClass) - ('show hierarchy' hierarchy) ('show definition' editClass) ('show comment' editComment) - ('references... (r)' browseVariableReferences) ('assignments... (a)' browseVariableAssignments) ('class refs (N)' browseClassRefs) - ('rename class ...' renameClass) ('copy class' copyClass) ('remove class (x)' removeClass) - ('find method...' findMethod)). + ^ aMenu! - ^ aMenu - !
Item was added: + ----- Method: Browser>>hasSystemCategoryList (in category 'multi-window support') ----- + hasSystemCategoryList + + ^ self dependents anySatisfy: [:dependent | + (dependent respondsTo: #getListSelector) and: + [dependent getListSelector = #systemCategoryList]]!
squeak-dev@lists.squeakfoundation.org