From dcfe43130db0d30aad8bea80e5533f212f4b80e0 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Sun, 30 Apr 2017 09:49:11 +0000
Subject: [PATCH] Qt: reverted using unixdatetime instead of x11 CurrentTime
 const because problem is in buggy wm not in our code.

git-svn-id: trunk@54779 -
---
 lcl/interfaces/qt/qtint.pp  | 2 +-
 lcl/interfaces/qt/qtx11.inc | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/qt/qtint.pp b/lcl/interfaces/qt/qtint.pp
index 8764f6b0a0..4cc942b47c 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, dateutils,
+ XAtom, X, XLib, XKB, xkblib,
  {$ENDIF}
  QtCaret,
  QtThemes,
diff --git a/lcl/interfaces/qt/qtx11.inc b/lcl/interfaces/qt/qtx11.inc
index 8a50249947..4e14c879ad 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] := DateTimeToUnix(Now()); // _NET_WM_USER_TIME
+  XClient.data.l[1] := CurrentTime; // _NET_WM_USER_TIME
   XClient.data.l[2] := 0;
   Result := XSendEvent(Display, RootWin, False,
 	      SubstructureRedirectMask or SubstructureNotifyMask,