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 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'Main.hs')

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
 
-- 
cgit v1.2.3