[squeak-dev] The Inbox: Tools-fbs.311.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Mar 13 22:37:23 UTC 2011


A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/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 Squeak-dev mailing list