Added widget layout functions

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'