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"! - !
squeak-dev@lists.squeakfoundation.org