Carla, where is that "show actions" option ? i don't see it 2010/4/6 Carla F. Griggio <[email protected]>
> 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 > [email protected] > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >
_______________________________________________ Pharo-project mailing list [email protected] http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
