summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/Phi/Widget.hs2
-rw-r--r--lib/Phi/X11.hs10
2 files changed, 6 insertions, 6 deletions
diff --git a/lib/Phi/Widget.hs b/lib/Phi/Widget.hs
index 25b08d4..a598887 100644
--- a/lib/Phi/Widget.hs
+++ b/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
diff --git a/lib/Phi/X11.hs b/lib/Phi/X11.hs
index a4fd5c1..7e0bfff 100644
--- a/lib/Phi/X11.hs
+++ b/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