Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cmm.348.mcz

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

Name: Tools-cmm.348
Author: cmm
Time: 2 May 2011, 8:24:10.46 pm
UUID: b02d968c-e94f-452b-aef7-d78fa343ff09
Ancestors: Tools-cmm.347

Fixed performance bug when opening hierarchy browser on Object.

=============== Diff against Tools-cmm.347 ===============

Item was changed:
  ----- Method: HierarchyBrowser>>initHierarchyForClass: (in category 'initialization') -----
+ initHierarchyForClass: aClassOrMetaClass 
+ 	| nonMetaClass superclasses |
- initHierarchyForClass: aClassOrMetaClass
- 	| nonMetaClass |
  	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+1 timesRepeat: [ stream nextPutAll: '  ' ].
+ 					stream nextPutAll: eachClass name ]) ]
+ 		startingLevel: superclasses size.
+ 	self selectClass: nonMetaClass!
- 	self
- 		flattenHierarchyTree: (self createHierarchyTreeOf: (nonMetaClass allSuperclasses, { nonMetaClass }, nonMetaClass allSubclasses))
- 		on: classDisplayList
- 		indent: ''
- 		by: '  '.
- 
- 	self selectClass: nonMetaClass.!