summaryrefslogtreecommitdiff
path: root/src/corelib/x11
diff options
context:
space:
mode:
Diffstat (limited to 'src/corelib/x11')
-rw-r--r--src/corelib/x11/fpg_x11.pas3
1 files changed, 2 insertions, 1 deletions
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