[squeak-dev] 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 Squeak-dev mailing list