diff options
| -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; |