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

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

Name: ToolsTests-fbs.12
Author: fbs
Time: 9 March 2011, 11:03:41.002 am
UUID: bbfce460-417d-f443-85df-df720e078714
Ancestors: ToolsTests-fbs.11

Rather use the proper methods, especially since we aim for #classListIndex: to be used solely by the ToolBuilder stuff.

=============== Diff against ToolsTests-fbs.11 ===============

Item was changed:
  ----- Method: BrowserTest>>testMetaClassIndicatedFalseOnExistingClass (in category 'as yet unclassified') -----
  testMetaClassIndicatedFalseOnExistingClass
  	browser selectSystemCategory: browser class category.
+ 	browser selectClass: browser class.
- 	browser classListIndex: (browser classList indexOf: browser class name).
  	browser metaClassIndicated: false.
  	
  	self assert: browser messageListIndex = 0.
  	self assert: browser messageCategoryListIndex = 0.
  	self deny: browser contents isEmpty. "It shows the class definition."
  	
  	self deny: browser messageCategoryList isEmpty.
  	
  	self assert: browser messageList = (browser class organization allMethodSelectors).
  	self assert: browser editSelection = #editClass.!

Item was changed:
  ----- Method: BrowserTest>>testMetaClassIndicatedTrueOnExistingClass (in category 'as yet unclassified') -----
  testMetaClassIndicatedTrueOnExistingClass
  	browser selectSystemCategory: browser class category.
+ 	browser selectClass: browser class.
- 	browser classListIndex: (browser classList indexOf: browser class name).
  	browser metaClassIndicated: true.
  	
  	self assert: browser messageListIndex = 0.
  	self assert: browser messageCategoryListIndex = 0.
  	self deny: browser contents isEmpty. "It shows the Class definition."
  	self deny: browser messageCategoryList isEmpty.
  	
  	self assert: browser messageList = (browser class classSide organization allMethodSelectors).!

Item was changed:
  ----- Method: BrowserTest>>testSelectClassSelectsClass (in category 'as yet unclassified') -----
  testSelectClassSelectsClass
  	browser selectSystemCategory: browser class category.
+ 	browser selectClass: browser class.
- 	browser classListIndex: (browser classList indexOf: browser class name).
  	self assert: browser classListIndex ~= 0.!