diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-19 14:50:04 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-19 14:50:04 +0200 |
| commit | 227cf56f443d1ce45fce2e13a4daf442a29bc862 (patch) | |
| tree | 0d53ff45098d54e49099aa45afc992ffc4c0fd63 /lib/Phi/X11.hs | |
| parent | bc9f8e1fbc7e117ec5368d2d74742cdb2c5f22f7 (diff) | |
| download | phi-227cf56f443d1ce45fce2e13a4daf442a29bc862.tar phi-227cf56f443d1ce45fce2e13a4daf442a29bc862.zip | |
Add native error handler for systray
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 |