Levente Uzonyi uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.324.mcz

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

Name: Tools-fbs.324
Author: fbs
Time: 22 March 2011, 10:35:23.459 pm
UUID: 1552aa40-a991-754a-9b83-ed7683ce9d06
Ancestors: Tools-fbs.323

A bunch more messageListIndex reference removals. #messageListIndexOf: encapsulates messageList a bit more. This is necessary because while a Browser's messageList stores strings, a MessageSet's messageList stores MethodReferences.

=============== Diff against Tools-fbs.323 ===============

Item was added:
+ ----- Method: Browser>>messageListIndexOf: (in category 'message list') -----
+ messageListIndexOf: aString
+ 	^ self messageList indexOf: aString.!

Item was changed:
  ----- Method: Browser>>selectMessageNamed: (in category 'message list') -----
  selectMessageNamed: aSymbolOrString
  	| name |
  	name := aSymbolOrString ifNil: [ 0] ifNotNil: [ aSymbolOrString asSymbol ].
+ 	self messageListIndex: (self messageListIndexOf: name).!
- 	self messageListIndex: (self messageList indexOf: name).!

Item was added:
+ ----- Method: MessageSet>>messageListIndexOf: (in category 'message list') -----
+ messageListIndexOf: aString
+ 	^ (self messageList collect: [:each | each selector]) indexOf: aString.!

Item was changed:
  ----- Method: MessageSet>>removeMessageFromBrowser (in category 'message functions') -----
  removeMessageFromBrowser
  	"Remove the selected message from the browser."
  
+ 	self hasMessageSelected ifFalse: [^ self].
- 	messageListIndex = 0 ifTrue: [^ self].
  	self deleteFromMessageList: self selection.
  	self reformulateList.
  	self adjustWindowTitleAfterFiltering
  !

Item was changed:
  ----- Method: MessageSet>>selectedClassOrMetaClass (in category 'class list') -----
  selectedClassOrMetaClass
  	"Answer the currently selected class (or metaclass)."
+ 	self hasMessageSelected ifFalse: [^nil].
- 	messageListIndex = 0 ifTrue: [^nil].
  	self setClassAndSelectorIn: [:c :s | ^c]!

Item was changed:
  ----- Method: MessageSet>>selectedMessageCategoryName (in category 'class list') -----
  selectedMessageCategoryName 
  	"Answer the name of the selected message category or nil."
+ 	self hasMessageSelected ifFalse: [^ nil].
- 	messageListIndex = 0 ifTrue: [^ nil].
  	^ self selectedClassOrMetaClass organization categoryOfElement: self selectedMessageName!