paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 10:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

Qt, Qt5: set correct timestamp when using X11Raise(), some wm's complains about it.

Browse Source 
git-svn-id: trunk@54777 -
This commit is contained in:
zeljko 2017-04-29 17:51:41 +00:00
parent 3e3a8fdf8b
commit 0d66c24a77
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtint.pp
View File

@ -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,

2
lcl/interfaces/qt/qtx11.inc
View File

@ -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,

2
lcl/interfaces/qt5/qtint.pp
View File

@ -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,

2
lcl/interfaces/qt5/qtx11.inc
View File

@ -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,