diff options
Diffstat (limited to 'lib/Phi/X11.hs')
| -rw-r--r-- | lib/Phi/X11.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Phi/X11.hs b/lib/Phi/X11.hs index 9bd5cd4..f0cf62c 100644 --- a/lib/Phi/X11.hs +++ b/lib/Phi/X11.hs @@ -223,7 +223,6 @@ updatePanels dispvar = do -- copy buffer to window liftIO $ do - setWindowBackgroundPixmap disp (panelWindow panel') pixmap (withDimension area $ clearArea disp (panelWindow panel') 0 0) True sync disp False @@ -282,6 +281,7 @@ createPanel disp win widgets screenRect = do depth = defaultDepth disp screen pixmap <- liftIO $ (withDimension rect $ createPixmap disp win) depth + liftIO $ setWindowBackgroundPixmap disp win pixmap return PanelState { panelWindow = win , panelPixmap = pixmap |