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 | 4d50ea094cb9956a9c895bda32eefba935d9210e (patch) | |
tree | 9a0edf2d9ec082ec6647dc878a024ff6846d7f6d | |
parent | 02f250e44834ddb356cc61e84188b3396de1b32c (diff) | |
download | xmonad-4d50ea094cb9956a9c895bda32eefba935d9210e.tar.gz xmonad-4d50ea094cb9956a9c895bda32eefba935d9210e.tar.xz xmonad-4d50ea094cb9956a9c895bda32eefba935d9210e.zip |
changed type of getScreenInfo in Graphics.X11.Xinerama
darcs-hash:20070320044253-b9aa7-d32f71aca7e91b282efaad1689310c5ca72a0e1f.gz
Diffstat (limited to '')
-rw-r--r-- | Main.hs | 10 | ||||
-rw-r--r-- | XMonad.hs | 4 |
2 files changed, 6 insertions, 8 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 @@ -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 |