[Pkg] The Trunk: Tools-fbs.311.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Apr 20 23:06:53 UTC 2011
Levente Uzonyi uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.311.mcz
==================== Summary ====================
Name: Tools-fbs.311
Author: fbs
Time: 13 March 2011, 10:36:26.839 pm
UUID: 551a6abb-547f-8240-818e-e4e24ed37ebb
Ancestors: Tools-fbs.310
And now HierarchyBrowser>>initHierarchyForClass: doesn't send #classListIndex:.
=============== Diff against Tools-fbs.310 ===============
Item was changed:
----- Method: HierarchyBrowser>>initHierarchyForClass: (in category 'initialization') -----
initHierarchyForClass: aClassOrMetaClass
+ | nonMetaClass |
- | index nonMetaClass |
centralClass := aClassOrMetaClass.
nonMetaClass := aClassOrMetaClass theNonMetaClass.
self systemOrganizer: SystemOrganization.
metaClassIndicated := aClassOrMetaClass isMeta.
classDisplayList := OrderedCollection new.
self
flattenHierarchyTree: (self createHierarchyTreeOf: (nonMetaClass allSuperclasses, { nonMetaClass }, nonMetaClass allSubclasses))
on: classDisplayList
indent: ''
by: ' '.
+ self selectClass: nonMetaClass.!
- self flag: #todo. "Use #selectClass:"
- index := nonMetaClass allSuperclasses size + 1. "Select nonMetaClass."
- self classListIndex: index!
More information about the Packages
mailing list