From 50c9d007d5334e5dccdf61b98e26bcbe3df26324 Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Tue, 20 Mar 2007 05:42:53 +0100
Subject: changed type of getScreenInfo in Graphics.X11.Xinerama

darcs-hash:20070320044253-b9aa7-d32f71aca7e91b282efaad1689310c5ca72a0e1f
---
 Main.hs   | 10 +++++-----
 XMonad.hs |  4 +---
 2 files changed, 6 insertions(+), 8 deletions(-)

diff --git a/Main.hs b/Main.hs
index a63c8ef..762a303 100644
--- a/Main.hs
+++ b/Main.hs
@@ -77,7 +77,7 @@ main = do
             { display      = dpy
             , screen       = dflt
 	    , xineScreens  = xinesc
-	    , wsOnScreen   = M.fromList $ map ((\n -> (n,n)) . fromIntegral . xsi_screen_number) xinesc 
+	    , wsOnScreen   = M.fromList $ map (\n -> (n,n)) [0..((length xinesc)-1)]
             , theRoot      = rootw
             , wmdelete     = wmdelt
             , wmprotocols  = wmprot
@@ -227,10 +227,10 @@ refresh = do
     forM_ (M.assocs ws2sc) $ \(n, scn) -> 
 	whenJust (W.peekStack n ws) $ \w -> withDisplay $ \d -> do
 	    let sc = xinesc !! scn
-	    io $ do moveResizeWindow d w (fromIntegral $ xsi_x_org sc) 
-					 (fromIntegral $ xsi_y_org sc)
-					 (fromIntegral $ xsi_width sc)
-					 (fromIntegral $ xsi_height sc) -- fullscreen
+	    io $ do moveResizeWindow d w (rect_x sc)
+					 (rect_y sc)
+					 (rect_width sc)
+					 (rect_height sc)
 		    raiseWindow d w
     whenJust (W.peek ws) setFocus
 
diff --git a/XMonad.hs b/XMonad.hs
index af4026d..0895999 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -28,8 +28,6 @@ import System.Posix.Process (executeFile, forkProcess, getProcessStatus)
 import System.Exit
 import Graphics.X11.Xlib
 
-import Graphics.X11.Xinerama
-
 import qualified Data.Map as M
 
 -- | XState, the window manager state.
@@ -37,7 +35,7 @@ import qualified Data.Map as M
 data XState = XState
     { display       :: Display
     , screen        :: {-# UNPACK #-} !ScreenNumber
-    , xineScreens   :: {-# UNPACK #-} ![XineramaScreenInfo]
+    , xineScreens   :: {-# UNPACK #-} ![Rectangle]
     -- a mapping of workspaces to xinerama screen numbers
     , wsOnScreen    :: {-# UNPACK #-} !(M.Map Int Int)
     , theRoot       :: {-# UNPACK #-} !Window
-- 
cgit v1.2.3