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

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

Name: ToolsTests-fbs.13
Author: fbs
Time: 11 March 2011, 8:19:22.116 pm
UUID: 0598187c-99ac-f14c-b2da-e311ffc5f34b
Ancestors: ToolsTests-fbs.12

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

=============== Diff against ToolsTests-fbs.12 ===============

Item was added:
+ ----- Method: HierarchyBrowserTest>>testClassList (in category 'as yet unclassified') -----
+ testClassList
+ 	| c |
+ 	browser initHierarchyForClass: browser class.
+ 	
+ 	c := browser class theNonMetaClass.
+ 	self assert: browser classList = ((c allSuperclasses reversed, {browser class}, c allSubclasses) collect: [ :each | each name ])!

Item was added:
+ ----- Method: HierarchyBrowserTest>>testClassListIndex (in category 'as yet unclassified') -----
+ testClassListIndex
+ 	browser initHierarchyForClass: browser class.
+ 	self deny: browser classListIndex = 0.
+ 	
+ 	browser classListIndex: 1.
+ 	self assert: browser classListIndex = 1.!

Item was changed:
  ----- Method: HierarchyBrowserTest>>testSelectedClassName (in category 'as yet unclassified') -----
  testSelectedClassName
  	browser initHierarchyForClass: browser class.
+ 	self assert: browser selectedClassName = browser class name.
+ 	
+ 	browser classListIndex: 0.
+ 	self assert: browser selectedClassName isNil.!
- 	self assert: browser selectedClassName = browser class name.!