From 6df375142a997d0b31167d903521735a6fa4a8df Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Tue, 7 Feb 2017 17:22:58 +0000
Subject: [PATCH] Qt5: make ws snappier under x11.

git-svn-id: trunk@54115 -
---
 lcl/interfaces/qt5/qtwsforms.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lcl/interfaces/qt5/qtwsforms.pp b/lcl/interfaces/qt5/qtwsforms.pp
index f2fd3d9309..8ac655b159 100644
--- a/lcl/interfaces/qt5/qtwsforms.pp
+++ b/lcl/interfaces/qt5/qtwsforms.pp
@@ -583,6 +583,8 @@ begin
   Widget.EndUpdate;
 
   {$IFDEF HASX11}
+  if AWinControl.HandleObjectShouldBeVisible then
+    QCoreApplication_processEvents(QEventLoopExcludeUserInputEvents);
 
   if (Application.TaskBarBehavior = tbSingleButton) or
     (TForm(AWinControl).ShowInTaskBar <> stDefault) then