From 0d66c24a77576e9ebc74abc83788710d23e59ddf Mon Sep 17 00:00:00 2001 From: zeljko Date: Sat, 29 Apr 2017 17:51:41 +0000 Subject: [PATCH] Qt, Qt5: set correct timestamp when using X11Raise(), some wm's complains about it. git-svn-id: trunk@54777 - --- lcl/interfaces/qt/qtint.pp | 2 +- lcl/interfaces/qt/qtx11.inc | 2 +- lcl/interfaces/qt5/qtint.pp | 2 +- lcl/interfaces/qt5/qtx11.inc | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lcl/interfaces/qt/qtint.pp b/lcl/interfaces/qt/qtint.pp index 4cc942b47c..8764f6b0a0 100644 --- a/lcl/interfaces/qt/qtint.pp +++ b/lcl/interfaces/qt/qtint.pp @@ -344,7 +344,7 @@ uses // uncomment only those units with implementation //////////////////////////////////////////////////// {$IFDEF HASX11} - XAtom, X, XLib, XKB, xkblib, + XAtom, X, XLib, XKB, xkblib, dateutils, {$ENDIF} QtCaret, QtThemes, diff --git a/lcl/interfaces/qt/qtx11.inc b/lcl/interfaces/qt/qtx11.inc index 4e14c879ad..8a50249947 100644 --- a/lcl/interfaces/qt/qtx11.inc +++ b/lcl/interfaces/qt/qtx11.inc @@ -120,7 +120,7 @@ begin XClient.message_type := WMATom; XClient.format := 32; XClient.data.l[0] := 1; - XClient.data.l[1] := CurrentTime; // _NET_WM_USER_TIME + XClient.data.l[1] := DateTimeToUnix(Now()); // _NET_WM_USER_TIME XClient.data.l[2] := 0; Result := XSendEvent(Display, RootWin, False, SubstructureRedirectMask or SubstructureNotifyMask, diff --git a/lcl/interfaces/qt5/qtint.pp b/lcl/interfaces/qt5/qtint.pp index 7ccdc69a6b..23986a8003 100644 --- a/lcl/interfaces/qt5/qtint.pp +++ b/lcl/interfaces/qt5/qtint.pp @@ -345,7 +345,7 @@ uses // uncomment only those units with implementation //////////////////////////////////////////////////// {$IFDEF HASX11} - XAtom, X, XLib, XKB, xkblib, + XAtom, X, XLib, XKB, xkblib, dateutils, {$ENDIF} QtCaret, QtThemes, diff --git a/lcl/interfaces/qt5/qtx11.inc b/lcl/interfaces/qt5/qtx11.inc index 84019ae55c..7f5b159d5d 100644 --- a/lcl/interfaces/qt5/qtx11.inc +++ b/lcl/interfaces/qt5/qtx11.inc @@ -135,7 +135,7 @@ begin XClient.message_type := WMATom; XClient.format := 32; XClient.data.l[0] := 1; - XClient.data.l[1] := CurrentTime; // _NET_WM_USER_TIME + XClient.data.l[1] := DateTimeToUnix(Now()); // _NET_WM_USER_TIME XClient.data.l[2] := 0; Result := XSendEvent(Display, RootWin, False, SubstructureRedirectMask or SubstructureNotifyMask,