A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-fbs.309.mcz

==================== Summary ====================

Name: Tools-fbs.309
Author: fbs
Time: 11 March 2011, 8:18:33.359 pm
UUID: 74b140ba-d715-d044-b212-69cbb81bebfd
Ancestors: Tools-fbs.308

HierarchyBrowser>>classList now does what all the other Browser classLists do: returns a list of names of classes.

=============== Diff against Tools-fbs.308 ===============

Item was changed:
  ----- Method: HierarchyBrowser>>classList (in category 'class list') -----
  classList
+ 	^ classDisplayList collect: [:each | each withBlanksTrimmed asSymbol ].!
- 	classDisplayList := classDisplayList select: [:each | Smalltalk includesKey: each withBlanksTrimmed asSymbol].
- 	^ classDisplayList!

Item was changed:
  ----- Method: HierarchyBrowser>>classListIndex: (in category 'initialization') -----
  classListIndex: newIndex
  	"Cause system organization to reflect appropriate category"
  	| newClassName ind |
  	newIndex ~= 0 ifTrue:
+ 		[newClassName := self classList at: newIndex.
- 		[newClassName := (classDisplayList at: newIndex) copyWithout: $ .
  		selectedSystemCategory := (systemOrganizer categories at:
  			(systemOrganizer numberOfCategoryOfElement: newClassName))].
  	ind := super classListIndex: newIndex.
  	self changed: #systemCategorySingleton.
  	^ ind!