[DOCS] Mouse button tester
Hannes Hirzel
hannes.hirzel.squeaklist at bluewin.ch
Wed Feb 12 00:31:17 UTC 2003
On the swiki page http://minnow.cc.gatech.edu/squeak/2332
there is a code snippet for a mouse button tester morph.
It was done by Andreas Raab in March 2002. It doesn't work anymore in
3.4
Could somebody please send in a fix?
m := Morph new.
m on: #mouseDown send: #value: to:[:evt|
evt redButtonPressed ifTrue:[m color: Color red].
evt yellowButtonPressed ifTrue:[m color: Color yellow].
evt blueButtonPressed ifTrue:[m color: Color blue]
].
m openInWorld.
It works for the red and the yellow button, but for the blue button it
brings up the halos instead.
Hannes
More information about the Squeak-dev
mailing list
|