diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-22 09:23:14 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-23 16:24:42 +0200 |
| commit | 1ed2d01072110b37768909afc79e9c18867c7f3d (patch) | |
| tree | 4f0b121bf939ba6f81003bcec38e910f6b14d8e5 /src/corelib/x11/fpg_x11.pas | |
| parent | 01423e05dcb12e32c315337b05155bce12c9d0d7 (diff) | |
| download | fpGUI-1ed2d01072110b37768909afc79e9c18867c7f3d.tar.xz | |
X11: only delegate MotionNotify event to Drag object if it's actually a drag
Diffstat (limited to 'src/corelib/x11/fpg_x11.pas')
| -rw-r--r-- | src/corelib/x11/fpg_x11.pas | 3 |
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 |