diff options
Diffstat (limited to 'lib/Phi/X11.hs')
-rw-r--r-- | lib/Phi/X11.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lib/Phi/X11.hs b/lib/Phi/X11.hs index 057d1ee..b79001c 100644 --- a/lib/Phi/X11.hs +++ b/lib/Phi/X11.hs @@ -115,17 +115,14 @@ updatePanels redraw = do newPanel <- if not redraw then return panel else do let surface = panelSurface panel area = panelArea panel - layoutedWidgets = Widget.layoutWidgets (panelWidgetStates panel) (fromIntegral $ rect_width area) (fromIntegral $ rect_height area) + layoutedWidgets = withDimension area $ Widget.layoutWidgets (panelWidgetStates panel) 0 0 panel' = panel { panelWidgetStates = layoutedWidgets } -- draw background liftIO $ withRectangle (panelArea panel) (copyArea disp rootPixmap (panelPixmap panel) (panelGC panel)) 0 0 surfaceMarkDirty surface - renderWith surface $ do - save - Widget.renderWidgets layoutedWidgets - restore + renderWith surface $ Widget.renderWidgets layoutedWidgets surfaceFlush surface return panel' |