The Trunk: Tools-ar.229.mcz

Andreas Raab uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ar.229.mcz

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

Name: Tools-ar.229
Author: ar
Time: 21 April 2010, 9:12:21.923 pm
UUID: 54bb8957-8364-9346-89cd-b87e50f6ad77
Ancestors: Tools-ar.228, Tools-fbs.221

Merging Tools-fbs.221, Tools-fbs.220:

Allows the Browse button to work on class names that appear in the left-hand pane of a MessageNames browser.

Bug from ancestor: selectorListIndex can be nil, if the selectorList is empty.

=============== Diff against Tools-ar.228 ===============

Item was changed:
  ----- Method: MessageNames>>selection (in category 'selection') -----
  selection
  "Answer the item in the list that is currently selected, or nil if no selection is present"
 
+ ^ messageListIndex = 0
+ ifTrue: [self selectorList at: selectorListIndex ifAbsent: [nil]]
+ ifFalse: [self messageList at: messageListIndex ifAbsent: [nil]].!
- ^ self messageList at: messageListIndex ifAbsent: [nil]!

Item was added:
+ ----- Method: MessageNames>>selectedClassOrMetaClass (in category 'class list') -----
+ selectedClassOrMetaClass
+ "Answer the currently selected class (or metaclass)."
+ messageListIndex > 0 ifTrue: [
+ ^ self setClassAndSelectorIn: [:c :s | ^c]].
+ (selectorListIndex isNil not and: [selectorListIndex > 0]) ifTrue: [^Smalltalk classNamed: (self selectorList at: selectorListIndex)].
+
+ ^ nil.
+ !