は、イベントハンドラを使用してMouseDraggedとのmouseClickedイベント

Question

へのEventHandlerのsensietivityを改善するために、どのように、私は時々、それは私が、私はちょうどそれをクリックしたにもかかわらず、マウスをドラッグして考えていることに気づきます。私は一度では、私はマウスが完全に固定して動いていないことを確認して、私はちょうどクリックし続けるにもかかわらず、クリックして、印刷メッセージを見て起動すると、ここで

は簡単な例

EventHandler[Graphics[Circle[{0, 0}, 1]], 
"MouseClicked" :> Print["mouse clicked"], 
"MouseDragged" :> Print["mouse being dragged"] 
] 

です私はドラッグメッセージが出てくるのを見ている間に。私は、これはマウスに敏感であることができます（私は良いマウスを持って）理解

は、さえマウスパッド、OS、および手で任意のわずかな動きであってもよいし、これが発生する可能性があります。

私は誰かがこれを試してみて、あなたにも、この問題に気づくかどうかを確認し、誰かが、私はこれを最小限に抑えるためにMathematicaで行うことができますいくつかの設定を知っている場合ができればお願いしたいと思いました。私はEventHandlerのオプションを探していましたが、マウスをドラッグしていると判断したときに時間や遅延を設定しましたが、何も見えませんでした。ここで

は、私はちょうどこれが

おかげ

、Windows 7でのMathematica 8.0.1です

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 

上記のコードを実行した後にクリックしていたとき、私は私のシステムで何を得るの出力例です

Answer 1

次は完璧ではありませんが、より良い動作しているようです：

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 @@ {}]]