Make screen info dynamic: first step to supporting randr

darcs-hash:20070521152759-a5988-736e7caea5252a77bb01d7631cce0db4287ff6f2

1 files changed, 4 insertions, 4 deletions

diff --git a/Main.hs b/Main.hs
index 9aef16f..a38df80 100644
--- a/Main.hs
+++ b/Main.hs
@@ -45,19 +45,19 @@ main = do
     let safeLayouts = case defaultLayouts of [] -> (full, []); (x:xs) -> (x, xs)
         cf = XConf
             { display       = dpy
-            , xineScreens   = xinesc
             , theRoot       = rootw
             , wmdelete      = wmdelt
             , wmprotocols   = wmprot
             -- fromIntegral needed for X11 versions that use Int instead of CInt.
-            , dimensions    = (fromIntegral (displayWidth dpy dflt),
-                               fromIntegral (displayHeight dpy dflt))
             , normalBorder  = nbc
             , focusedBorder = fbc
             }
         st = XState
             { windowset     = new (fromIntegral workspaces) (fromIntegral $ length xinesc)
-            , layouts       = M.fromList [(w, safeLayouts) | w <- [0 .. W workspaces - 1]] }
+            , layouts       = M.fromList [(w, safeLayouts) | w <- [0 .. W workspaces - 1]]
+            , xineScreens   = xinesc
+            , dimensions    = (fromIntegral (displayWidth dpy dflt),
+                               fromIntegral (displayHeight dpy dflt)) }
 
     xSetErrorHandler -- in C, I'm too lazy to write the binding: dons