[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
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.


More information about the Squeak-dev mailing list