Add a short delay waiting for messages before starting rendering

2011-09-07 22:33:07 +02:00 · 2011-09-07 22:33:07 +02:00 · aadf8d9780
commit aadf8d9780
parent 6746d60e3f
1 changed files with 7 additions and 5 deletions
--- 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