Christoph Thiede uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ct.1171.mcz

==================== Summary ====================

Name: Tools-ct.1171
Author: ct
Time: 8 September 2022, 1:21:03.169836 pm
UUID: bcbd0daa-2082-5348-99c8-db2db487ea89
Ancestors: Tools-mt.1170

Minor updates to package pane browser:

* When selecting a different package, update the class list properly (instead of relying on model steps which are not even available in MVC).
* Remove misleading reorganize/alphabetize from the package list menu - they are already contained in the system category menu.
* Improve multilingual support.

=============== Diff against Tools-mt.1170 ===============

Item was changed:
  ----- Method: PackagePaneBrowser>>mainPackageMenu: (in category 'package list') -----
  mainPackageMenu: aMenu
  	"Answer a Menu of operations on class packages to be 
  	displayed when the operate menu button is pressed."
  	<packageListMenu>
+ 	^aMenu addTranslatedList: #(
- 	^aMenu addList: #(
  			('find class... (f)'		findClass)
  			('back... (b)'			recent)
  			-
  			('browse extensions'	browsePackageExtensions)
  			('browse dependencies'	browsePackageDependencies)
  			('browse inverted dependencies'	browsePackageDependenciesInverted)
- 			-
- 			('reorganize'			editSystemCategories)
- 			('alphabetize'			alphabetizeSystemCategories)
  			-				
  			('update'				updatePackages));
  		yourself.!

Item was changed:
  ----- Method: PackagePaneBrowser>>packageListIndex: (in category 'package list') -----
  packageListIndex: anInteger 
  	"Set anInteger to be the index of the current package selection."
  
  	packageListIndex := anInteger.
  	anInteger = 0
  		ifFalse: [package := self packageList at: packageListIndex].
  	selectedMessageCategoryName := nil.
  	self selectSystemCategory: nil.
  	selectedMessageName := nil.
  	selectedClassName := nil.
  	self setClassOrganizer.
  	self changed: #packageSelectionChanged.
  	self changed: #packageListIndex.	"update my selection"
  	self changed: #systemCategoryList.	"update the category list"
  	self selectSystemCategory: nil.	"update category list selection"
+ 	self changed: #classList.	"update the class list"
+ 	self selectClass: nil.	"update category list selection"!
- !