Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1211.mcz
==================== Summary ====================
Name: Tools-mt.1211 Author: mt Time: 2 June 2023, 6:01:37.13277 pm UUID: 565e027b-f9ff-2e4e-9797-3022ad56bfd1 Ancestors: Tools-ct.1210
In TreeBrowser, fixes meta-class support for hierarchy-mode.
=============== Diff against Tools-ct.1210 ===============
Item was changed: ----- Method: TreeBrowser>>browseClassHierarchy (in category 'extras - hierarchy browser') ----- browseClassHierarchy | pivot | + (pivot := self selectedClassOrMetaClass) ifNil: [^ self]. - (pivot := self selectedClass) ifNil: [^ self].
self multiWindowState ifNil: [ + self class fullHierarchyOnClass: pivot selector: self selectedMessageName] - self class fullHierarchyOnClass: pivot] ifNotNil: [ self multiWindowState addNewWindow. self initHierarchyFor: pivot].!
Item was changed: ----- Method: TreeBrowser>>initHierarchyFor: (in category 'extras - hierarchy browser') ----- initHierarchyFor: classOrTrait
self setHierarchyMode. + classForHierarchy := classOrTrait theNonMetaClass. - classForHierarchy := classOrTrait. self updateSystemCategoryTree. self selectSystemCategory: self class hierarchyCategory. self updateClassTree. + self selectClass: classForHierarchy. "Must not use #setClass: here to keep env." + self metaClassIndicated: classOrTrait isMeta.! - self selectClass: classForHierarchy. "Must not use #setClass: here."!
packages@lists.squeakfoundation.org