Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.355.mcz
==================== Summary ====================
Name: Tools-cmm.355 Author: cmm Time: 27 May 2011, 2:41:18.552 pm UUID: 08000000-1508-1606-1508-160614000000 Ancestors: Tools-laza.354
Fixed double-indent when building a class-hierarchy.
=============== Diff against Tools-laza.354 ===============
Item was changed: ----- Method: HierarchyBrowser>>initHierarchyForClass: (in category 'initialization') ----- initHierarchyForClass: aClassOrMetaClass | nonMetaClass superclasses | centralClass := aClassOrMetaClass. nonMetaClass := aClassOrMetaClass theNonMetaClass. self systemOrganizer: SystemOrganization. metaClassIndicated := aClassOrMetaClass isMeta. classDisplayList := OrderedCollection new. (superclasses := nonMetaClass allSuperclasses reversed) withIndexDo: [ : each : indent | classDisplayList add: (String streamContents: [ : stream | indent - 1 timesRepeat: [ stream nextPutAll: ' ' ]. stream nextPutAll: each name ]) ]. nonMetaClass allSubclassesWithLevelDo: [ : eachClass : lvl | classDisplayList add: (String streamContents: + [ : stream | lvl timesRepeat: [ stream nextPutAll: ' ' ]. - [ : stream | lvl+1 timesRepeat: [ stream nextPutAll: ' ' ]. stream nextPutAll: eachClass name ]) ] startingLevel: superclasses size. self selectClass: nonMetaClass!
squeak-dev@lists.squeakfoundation.org