From 1ed2d01072110b37768909afc79e9c18867c7f3d Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Wed, 22 Sep 2010 09:23:14 +0200
Subject: X11: only delegate MotionNotify event to Drag object if it's actually
 a drag

---
 src/corelib/x11/fpg_x11.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas
index 9510a182..2076b358 100644
--- a/src/corelib/x11/fpg_x11.pas
+++ b/src/corelib/x11/fpg_x11.pas
@@ -1703,7 +1703,8 @@ begin
           begin
             if Assigned(Drag) then
             begin
-              Drag.Dragging(ev);
+              if ((ev.xmotion.state and $FF00) shr 8) = MOUSE_LEFT then
+                Drag.Dragging(ev);
             end;
             if xapplication.TopModalForm <> nil then
             begin
-- 
cgit v1.2.3-70-g09d2