How to improve sensietivity of EventHandler to MouseDragged and MouseClicked events - wolfram-mathematica

Question

Using EventHandler, I notice that sometimes it thinks I was dragging the mouse, even though I was just clicking it.
Here is a simple example
EventHandler[Graphics[Circle[{0, 0}, 1]],
"MouseClicked" :> Print["mouse clicked"],
"MouseDragged" :> Print["mouse being dragged"]
]
When I start clicking, even though I make sure the mouse is completely fixed and not moving, and I just keep clicking, and looking at the print messages, once in a while I see the dragging message come out.
I understand this can be sensitive to the mouse (but I have a good mouse), may be even the mouse pad, the OS, and any slight movement by hand, might cause this.
I wanted to ask if someone could try this and see if you notice this problem as well, and if someone knows some setting I can do in Mathematica to minimize this. I was looking for an option to EventHandler to set the time or delay as to when it decides the mouse being dragged, but see nothing.
Here is an example output of what I get on my system when I am just clicking after running the above code
mouse being dragged
mouse clicked
mouse clicked
mouse clicked
mouse clicked
mouse clicked
mouse clicked
mouse clicked
mouse clicked
mouse being dragged
mouse clicked
mouse clicked
This is on windows 7, Mathematica 8.0.1
Thanks

Answer 1

The following is not perfect, but seems to work better:
initMousePos = {-1, -1};
dragged = False;
EventHandler[
Dynamic#Graphics[Circle[{0, 0}, 1]],
"MouseDown" :>
(initMousePos = MousePosition["Graphics"]),
"MouseUp" :>
If[EuclideanDistance[MousePosition["Graphics"], initMousePos] < 2 10^-1,
Print["MouseClicked " <> ToString#MousePosition["Graphics"]],
Sequence ## {}],
"MouseDragged" :>
If[EuclideanDistance[MousePosition["Graphics"], initMousePos] > 2 10^-1,
Print["mouse being dragged " <>
ToString#MousePosition["Graphics"]], Sequence ## {}]]