Add a short delay waiting for messages before starting rendering

1 files changed, 7 insertions, 5 deletions

diff --git a/lib/Phi/X11.hs b/lib/Phi/X11.hs
index c66fa54..a4fd5c1 100644
--- a/lib/Phi/X11.hs
+++ b/lib/Phi/X11.hs
@@ -143,11 +143,13 @@ runPhi xconfig config widget = do
     
     forever $ do
       available <- messageAvailable phi
-      unless available $ do
-        repaint <- gets phiRepaint
-        when repaint $ do
-          updatePanels conn xcb
-          modify $ \state -> state {phiRepaint = False}
+      repaint <- gets phiRepaint
+      when (not available && repaint) $ liftIO $ threadDelay 30000
+      
+      available <- messageAvailable phi
+      when (not available && repaint) $ do
+        updatePanels conn xcb
+        modify $ \state -> state {phiRepaint = False}
       
       message <- receiveMessage phi
       handleMessage conn xcb message