[Pkg] The Trunk: Tools-cmm.355.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Jun 4 22:10:04 UTC 2011
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!
More information about the Packages
mailing list