mousePressed

Question

hello everybody,

How do I get the pressure of the Left Button of the Mouse into a View/GraphicsContext in a Tool?

I would like to get the the 'controller sensor cursorPoint' only when the button is pressed.

thanks.

d

Answer 1

with a little bit of philological work I found a solution that work but I don't know if it is the better solution :)

so

| myposition mousePressed myView |

x := 0@0.

myView := View new

mousePressed := MyView controller sensor redButtonPressed.

(mousePressed) ifTrue: [x := MyView controller sensor cursorPoint] ifFalse: []