diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-18 20:57:19 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-18 20:57:19 +0200 |
commit | 581e1f9c63101fd2a00711748415997b0c20b793 (patch) | |
tree | ab2ee291354819727939593655e0a53383870b03 /lib/Phi/X11.hs | |
parent | 4cc0f0f2ee44aa5c65b8b7f759620b5de0c874a3 (diff) | |
download | phi-581e1f9c63101fd2a00711748415997b0c20b793.tar phi-581e1f9c63101fd2a00711748415997b0c20b793.zip |
Make minSize depend on the screen if necessary
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 24f0986..3930826 100644 --- a/lib/Phi/X11.hs +++ b/lib/Phi/X11.hs @@ -162,7 +162,7 @@ updatePanels disp redraw = do area = panelArea panel newPanel <- if not redraw then return panel else do - let layoutedWidgets = withDimension area $ Widget.layoutWidgets (panelWidgetStates panel) 0 0 + let layoutedWidgets = (withDimension area $ Widget.layoutWidgets (panelWidgetStates panel) 0 0) $ panelScreenArea panel panel' = panel { panelWidgetStates = layoutedWidgets } renderWith buffer $ do |