summaryrefslogtreecommitdiffstats
path: root/lib/Phi/X11.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Phi/X11.hs')
-rw-r--r--lib/Phi/X11.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Phi/X11.hs b/lib/Phi/X11.hs
index 709d04a..24f0986 100644
--- a/lib/Phi/X11.hs
+++ b/lib/Phi/X11.hs
@@ -86,7 +86,7 @@ runPhi xconfig config widgets = do
screens <- liftIO $ phiXScreenInfo xconfig disp
dispmvar <- liftIO $ newMVar disp
- let dispvar = Widget.Display dispmvar atoms
+ let dispvar = Widget.Display dispmvar atoms screens
widgetStates <- liftIO $ mapM (Widget.createWidgetState phi dispvar) widgets
Widget.withDisplay dispvar $ \disp -> do
@@ -172,7 +172,7 @@ updatePanels disp redraw = do
setSource pattern
paint
restore
- Widget.renderWidgets layoutedWidgets
+ Widget.renderWidgets layoutedWidgets $ panelScreenArea panel
return panel'