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

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

Name: Tools-fbs.325
Author: fbs
Time: 23 March 2011, 7:58:32.354 am
UUID: 271d729b-2c83-544f-b919-f5f0dc5bfa0c
Ancestors: Tools-fbs.324

More references to messageListIndex, and a minor classListIndex fix: use hasClassSelected.

=============== Diff against Tools-fbs.324 ===============

Item was changed:
  ----- Method: Browser>>messageListIndex: (in category 'message list') -----
  messageListIndex: anInteger
  	"Set the selected message selector to be the one indexed by anInteger."
  
  	messageListIndex := anInteger.
  	self editSelection: (anInteger > 0
  		ifTrue: [#editMessage]
  		ifFalse: [self messageCategoryListIndex > 0
  			ifTrue: [#newMessage]
+ 			ifFalse: [self hasClassSelected
- 			ifFalse: [self classListIndex > 0
  				ifTrue: [#editClass]
  				ifFalse: [#newClass]]]).
  	contents := nil.
  	self changed: #messageListIndex. "update my selection"
  	self contentsChanged.
  	self decorateButtons.!

Item was changed:
  ----- Method: MessageSet>>contents (in category 'contents') -----
  contents
  	"Answer the contents of the receiver"
  
  	^ contents == nil
  		ifTrue: [currentCompiledMethod := nil. '']
+ 		ifFalse: [self hasMessageSelected
+ 			ifTrue: [self editContents]
+ 			ifFalse: [currentCompiledMethod := nil. contents]]!
- 		ifFalse: [messageListIndex = 0 
- 			ifTrue: [currentCompiledMethod := nil. contents]
- 			ifFalse: [self editContents]]!

Item was changed:
  ----- Method: MessageSet>>initializeMessageList: (in category 'private') -----
  initializeMessageList: anArray
  	"Initialize my messageList from the given list of MethodReference or string objects.  NB: special handling for uniclasses."
  
  	
  	messageList := OrderedCollection new.
  	anArray do: [ :each |
  		MessageSet 
  			parse: each  
  			toClassAndSelector: [ :class :sel | | s |
  				class ifNotNil:
  					[class isUniClass
  						ifTrue:
  							[s := class typicalInstanceName, ' ', sel]
  						ifFalse:
  							[s := class name , ' ' , sel , ' {' , 
  								((class organization categoryOfElement: sel) ifNil: ['']) , '}'].
  					messageList add: (
  						MethodReference new
  							setClass: class  
  							methodSymbol: sel 
  							stringVersion: s)]]].
  	messageListIndex := messageList isEmpty ifTrue: [0] ifFalse: [1].
+ 	selectedMessageName := messageList isEmpty ifTrue: [nil] ifFalse: [messageList first selector].
  	contents := ''!