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]]!