First render, then map panel windows

lib/Phi/Widget.hs

@@ -37,8 +37,6 @@ import Graphics.Rendering.Cairo
 import Phi.Phi
 import Phi.X11.Atoms
 
-import Debug.Trace
-
 
 data Display = Display !Connection !Atoms
 

lib/Phi/X11.hs

@@ -124,7 +124,7 @@ runPhi xconfig config widget = do
               }
     PhiState { phiRootImage = bg
              , phiPanels = []
-             , phiRepaint = True
+             , phiRepaint = False
              , phiShutdown = False
              , phiShutdownHold = 0
              , phiWidgetState = initialState
@@ -133,12 +133,14 @@ runPhi xconfig config widget = do
     
     panels <- mapM (\(screen, window) -> createPanel conn window screen) screenPanels
     
-    forM_ panels $ \panel -> do
-      setPanelProperties conn panel
-      liftIO $ mapWindow conn (panelWindow panel)
+    forM_ panels $ setPanelProperties conn
     
     modify $ \state -> state { phiPanels = panels }
     
+    updatePanels conn xcb
+    
+    forM_ panels $ liftIO . mapWindow conn . panelWindow
+    
     liftIO $ forkIO $ receiveEvents phi conn
     
     forever $ do