[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