Hi,
I would like to simulate Morphic events, like mouseUp, but I cannot
figure out the complete setup.
Here is the code I have so far:
| mouseUp morph |
morph := self scroller submorphs first.
mouseUp := MouseButtonEvent basicNew
setType: #mouseUp
position: (morph bounds origin + (1...@1))
which: 4
buttons: 7
hand: (HandMorph new mouseFocus: morph; yourself)
stamp: Time millisecondClockValue.
morph handleMouseUp: mouseUp.
At this moment it looks like the problem is that the eventHandler in
the morph is nil. Can anyone point me into the right direction?
Cheers,
Doru
--
www.tudorgirba.com
"Yesterday is a fact.
Tomorrow is a possibility.
Today is a challenge."
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
