Marcel Taeumel uploaded a new version of Tools to project The Treated Inbox: http://source.squeak.org/treated/Tools-lrnp.1140.mcz
==================== Summary ====================
Name: Tools-lrnp.1140 Author: lrnp Time: 4 March 2022, 4:45:22.218603 pm UUID: 6a02772e-f08b-471f-8a09-052ccc2c9055 Ancestors: Tools-mt.1139
build system category menu in browser when no category selected
=============== Diff against Tools-mt.1139 ===============
Item was changed: ----- Method: Browser>>mainSystemCategoryMenu: (in category 'system category functions') ----- mainSystemCategoryMenu: aMenu <systemCategoryMenu> aMenu addTranslatedList: #( ('find class... (f)' findClass) ('back... (b)' recent) - ('browse all' browseAllClasses) ('browse' buildSystemCategoryBrowser)). + (Smalltalk isMorphic and: [self selectedSystemCategory notNil] and: [self selectedPackage notNil]) ifTrue: [ - (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: #( - ('printOut' printOutSystemCategory) ('fileOut' fileOutSystemCategory) - ('reorganize' editSystemCategories) ('alphabetize' alphabetizeSystemCategories) - ('update' updateSystemCategories) ('add item...' addSystemCategory) ('rename...' renameSystemCategory) ('remove (x)' removeSystemCategory)). ^ aMenu!