diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-10-28 00:34:21 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-10-28 00:34:21 +0200 |
| commit | 8d6b714570798fadc3f15bbc67b3a53900540069 (patch) | |
| tree | 84cae856617c4ff744aedd4878088aa6f8daff2b /src | |
| parent | e878ef0a55705720a41e77081d8f8765b11109dc (diff) | |
| download | fpGUI-8d6b714570798fadc3f15bbc67b3a53900540069.tar.xz | |
Bugfix: TfpgX11Application.HandleDNDposition's XdndStatus message sent did not correctly
set the ActionType parameter if the drag was not accepted.
Diffstat (limited to 'src')
| -rw-r--r-- | src/corelib/x11/fpg_x11.pas | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas index e2766d0a..e6594529 100644 --- a/src/corelib/x11/fpg_x11.pas +++ b/src/corelib/x11/fpg_x11.pas @@ -1158,12 +1158,17 @@ begin Msg.xclient.data.l[0] := ATopLevelWindow.WinHandle; // always top-level window if lAccept then - Msg.xclient.data.l[1] := 1 + begin + Msg.xclient.data.l[1] := 1; + Msg.xclient.data.l[4] := FActionType; + end else + begin Msg.xclient.data.l[1] := 0; + Msg.xclient.data.l[4] := None; + end; Msg.xclient.data.l[2] := 0; // x & y co-ordinates Msg.xclient.data.l[3] := 0; // w & h co-ordinates - Msg.xclient.data.l[4] := FActionType; XSendEvent(FDisplay, FSrcWinHandle, False, NoEventMask, @Msg); end; |