Add a short delay waiting for messages before starting rendering

lib/Phi/X11.hs

@@ -143,9 +143,11 @@ runPhi xconfig config widget = do
     
     forever $ do
       available <- messageAvailable phi
-      unless available $ do
       repaint <- gets phiRepaint
-        when repaint $ do
+      when (not available && repaint) $ liftIO $ threadDelay 30000
+      
+      available <- messageAvailable phi
+      when (not available && repaint) $ do
         updatePanels conn xcb
         modify $ \state -> state {phiRepaint = False}