I don't understand, MessageNames don't have a "left-hand pane" do
they?  Only a top and bottom....

On Wed, Mar 31, 2010 at 2:42 PM,  <commits at source.squeak.org> wrote:
> A new version of Tools was added to project The Inbox:
> http://source.squeak.org/inbox/Tools-fbs.220.mcz
>
> ==================== Summary ====================
>
> Name: Tools-fbs.220
> Author: fbs
> Time: 31 March 2010, 10:42:28.8 pm
> UUID: 0eca72cb-a1d4-4849-9da6-15d4b31ab9a4
> Ancestors: Tools-fbs.219, Tools-nice.219
>
> Allows the Browse button to work on class names that appear in the left-hand pane of a MessageNames browser.
>
> =============== Diff against Tools-nice.219 ===============
>
> 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 > 0 ifTrue: [^Smalltalk classNamed: (self selectorList at: selectorListIndex)].
> +
> +       ^ nil.
> +       !
>
>
>