MessageNotUnderstood: ToolSet class>>openMessageList:name:autoSelect:

ToolSet class(Object)>>doesNotUnderstand: #openMessageList:name:autoSelect:

SystemWindow(Morph)>>showActions

[] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:

BlockClosure>>ensure:

CursorWithMask(Cursor)>>showWhile:

ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:

ToggleMenuItemMorph(MenuItemMorph)>>mouseUp:

ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp:

MouseButtonEvent>>sentTo:

...

This is the code in SystemWindow>>showActions:

showActions

"Put up a message list browser of all the code that this morph �

would run for mouseUp, mouseDown, mouseMove, mouseEnter, �

mouseLeave, and �

mouseLinger. tk 9/13/97"

| list cls selector adder |

list := SortedCollection new.

adder := [:mrClass :mrSel | list

add: (MethodReference new setStandardClass: mrClass methodSymbol: mrSel)].

"the eventHandler"

self eventHandler

ifNotNil: [list := self eventHandler methodRefList.

(self eventHandler handlesMouseDown: nil)

ifFalse: [adder value: HandMorph value: #grabMorph:]].

"If not those, then non-default raw events"

#(#keyStroke: #mouseDown: #mouseEnter: #mouseLeave: #mouseMove: #mouseUp: #doButtonAction )

do: [:sel |�

cls := self class whichClassIncludesSelector: sel.

cls

ifNotNil: ["want more than default behavior"

cls == Morph

ifFalse: [adder value: cls value: sel]]].

"The mechanism on a Button"

(self respondsTo: #actionSelector)

ifTrue: ["A button"

selector := self actionSelector.

cls := self target class whichClassIncludesSelector: selector.

cls

ifNotNil: ["want more than default behavior"

cls == Morph

ifFalse: [adder value: cls value: selector]]].

ToolSet openMessageList: list name: 'Actions of ' , self printString autoSelect: false

Shouldn't the last line be�MessageSet openMessageList: list name: 'Actions of ' , self printString autoSelect: nil ? I tried it and it seemed to work OK, although I never tried that option before so I don't know what was it's original behaviour.

Cheers!

Carla.