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

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

Name: ToolsTests-fbs.24
Author: fbs
Time: 17 March 2011, 8:04:08.852 am
UUID: ae63bea4-0e11-074c-b2e2-e5b5499ebf07
Ancestors: ToolsTests-fbs.23

#selectMessageNamed:, and adding setters for selectedMessageName in the rest of the safe places where we directly set messageListIndex.

=============== Diff against ToolsTests-fbs.23 ===============

Item was added:
+ ----- Method: BrowserTest>>testContentsSelection (in category 'as yet unclassified') -----
+ testContentsSelection
+ 	browser selectSystemCategory: browser class category.
+ 	browser selectClass: browser class.
+ 
+ 	"No category or message selected."
+ 	self assert: browser contentsSelection isEmpty.
+ 
+ 	"Category selected, but no message selected."
+ 	browser messageCategoryListIndex: 1.
+ 	browser selectMessageNamed: browser messageList first.
+ 	self assert: browser contentsSelection isEmpty.
+ 	
+ 	"Category and message selected."
+ 	browser selectMessageNamed: nil.
+ 	self deny: browser contentsSelection isEmpty.!

Item was added:
+ ----- Method: BrowserTest>>testSelectMessageNamed (in category 'as yet unclassified') -----
+ testSelectMessageNamed
+ 	browser selectSystemCategory: browser class category.
+ 	browser selectClass: browser class.
+ 	browser messageCategoryListIndex: 1.
+ 
+ 	browser selectMessageNamed: browser messageList first.
+ 	self assert: browser selectedMessageName = browser messageList first.
+ 	self assert: browser messageListIndex = 1.
+ 		
+ 	browser selectMessageNamed: nil.
+ 	self assert: browser selectedMessageName isNil.
+ 	self assert: browser messageListIndex = 0.
+ 	
+ 	browser selectMessageNamed: browser messageList second.
+ 	self assert: browser selectedMessageName = browser messageList second.
+ 	self assert: browser messageListIndex = 2.
+ 	
+ 	browser selectMessageNamed: browser messageList first asString.
+ 	self assert: browser selectedMessageName = browser messageList first.
+ 	self assert: browser messageListIndex = 1.!