diff options
author | Jason Creighton <jcreigh@gmail.com> | 2007-03-20 05:42:53 +0100 |
---|---|---|
committer | Jason Creighton <jcreigh@gmail.com> | 2007-03-20 05:42:53 +0100 |
commit | 50c9d007d5334e5dccdf61b98e26bcbe3df26324 (patch) | |
tree | 9a0edf2d9ec082ec6647dc878a024ff6846d7f6d /Main.hs | |
parent | 6c92eaa391732f083be0cd0f3eff7972d00ec4d0 (diff) | |
download | metatile-50c9d007d5334e5dccdf61b98e26bcbe3df26324.tar metatile-50c9d007d5334e5dccdf61b98e26bcbe3df26324.zip |
changed type of getScreenInfo in Graphics.X11.Xinerama
darcs-hash:20070320044253-b9aa7-d32f71aca7e91b282efaad1689310c5ca72a0e1f
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -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 |