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

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

Name: ToolsTests-fbs.19
Author: fbs
Time: 15 March 2011, 5:47:37.643 pm
UUID: d27bcdd4-652d-204a-85f0-ce0eb76d4f5a
Ancestors: ToolsTests-fbs.18

#editSelection behaviour when selectClass:'ing.

=============== Diff against ToolsTests-fbs.18 ===============

Item was added:
+ ----- Method: BrowserTest>>testSelectClassEditSelectionNoClass (in category 'as yet unclassified') -----
+ testSelectClassEditSelectionNoClass
+ 	browser selectedSystemCategory: browser class category.
+ 	
+ 	browser selectClass: nil.
+ 	self assert: browser editSelection = #newClass.!

Item was added:
+ ----- Method: BrowserTest>>testSelectClassEditSelectionWhenCommentSelected (in category 'as yet unclassified') -----
+ testSelectClassEditSelectionWhenCommentSelected
+ 	| editSelection |
+ 	browser selectedSystemCategory: Heap category.
+ 	browser selectClass: Heap.
+ 	browser editComment.
+ 	browser messageListIndex: 0.
+ 	browser messageListIndex: 0.
+ 
+ 	editSelection := browser editSelection.
+ 	browser selectClass: Interval.
+ 	self assert: browser editSelection = editSelection.!

Item was added:
+ ----- Method: BrowserTest>>testSelectClassEditSelectionWhenEditingClass (in category 'as yet unclassified') -----
+ testSelectClassEditSelectionWhenEditingClass
+ 	browser selectedSystemCategory: Heap category.
+ 	browser selectClass: Heap.
+ 	browser metaClassIndicated: false.
+ 	browser messageListIndex: 0.
+ 	browser messageListIndex: 0.
+ 	
+ 	browser selectClass: Interval.
+ 	self assert: browser editSelection = #editClass.!

Item was added:
+ ----- Method: BrowserTest>>testSelectClassEditSelectionWhenEditingMetaclass (in category 'as yet unclassified') -----
+ testSelectClassEditSelectionWhenEditingMetaclass
+ 	browser selectedSystemCategory: Heap category.
+ 	browser selectClass: Heap.
+ 	browser metaClassIndicated: true.
+ 	browser messageListIndex: 0.
+ 	browser messageListIndex: 0.
+ 	
+ 	browser selectClass: Interval.
+ 	self assert: browser editSelection = #editClass.!

Item was added:
+ ----- Method: BrowserTest>>testSelectClassEditSelectionWhenMsgSelected (in category 'as yet unclassified') -----
+ testSelectClassEditSelectionWhenMsgSelected
+ 	browser selectedSystemCategory: Heap category.
+ 	browser selectClass: Heap.
+ 	browser selectMessageCategoryNamed: 'adding'.
+ 	browser messageListIndex: (browser messageList indexOf: #add:).
+ 	
+ 	browser selectClass: Interval.
+ 	self assert: browser editSelection = #editMessage.!

Item was added:
+ ----- Method: BrowserTest>>testSelectClassEditSelectionWhenNoMsgButCatSelected (in category 'as yet unclassified') -----
+ testSelectClassEditSelectionWhenNoMsgButCatSelected
+ 	browser selectedSystemCategory: Heap category.
+ 	browser selectClass: Heap.
+ 	browser selectMessageCategoryNamed: 'adding'.
+ 	browser messageListIndex: 0.
+ 	
+ 	browser selectClass: Interval.
+ 	self assert: browser editSelection = #newMessage.!

Item was added:
+ ----- Method: BrowserTest>>testSelectClassReselectsMessage (in category 'as yet unclassified') -----
+ testSelectClassReselectsMessage
+ 	"Colections-Sequences contains a number of classes with similar protocols. In particular, several classes have a method called #add: in a category 'adding'."
+ 	| selectedMsgCat selectedMethod |
+ 	selectedMsgCat := 'adding'.
+ 	selectedMethod := #add:.
+ 	browser selectedSystemCategory: Heap category.
+ 	browser selectClass: Heap.
+ 	browser selectMessageCategoryNamed: selectedMsgCat.
+ 	browser messageListIndex: (browser messageList indexOf: selectedMethod).
+ 	
+ 	browser selectClass: Interval.
+ 	
+ 	self assert: browser selectedMessageCategoryName = selectedMsgCat.
+ 	self assert: browser selectedMessageName = selectedMethod.!

Item was added:
+ ----- Method: BrowserTest>>testSelectClassWhenNothingSelected (in category 'as yet unclassified') -----
+ testSelectClassWhenNothingSelected
+ 	self assert: browser editSelection = #none.!

Item was changed:
  ----- Method: BrowserTest>>testSelectedClass (in category 'as yet unclassified') -----
  testSelectedClass
  	browser selectSystemCategory: browser class category.
+ 	browser classListIndex: 0.
+ 	self assert: browser classListIndex = 0.
- 	browser selectClassNamed: browser class name.
- 	self assert: browser selectedClass = browser class.
- 	
- 	browser selectClassNamed: nil.
  	self assert: browser selectedClass isNil.
  	
+ 	browser classListIndex: 1.
+ 	self assert: browser classListIndex = 1.
+ 	self assert: browser selectedClass notNil.!
- 	browser selectSystemCategory: nil.
- 	browser selectClassNamed: browser class name.
- 	self assert: browser selectedClass isNil.!