[squeak-dev] The Trunk: Tools-cmm.348.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue May 3 01:24:40 UTC 2011
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.!
More information about the Squeak-dev
mailing list
|