Carla, where is that "show actions" option ? i don't see it 2010/4/6 Carla F. Griggio <carla.griggio@gmail.com>
Hello!
I was fooling around with the latest rc3 image and I tried to use the "show actions" option in the menu of a SystemWindow and got this:
*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.
_______________________________________________ Pharo-project mailing list Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project