From 4c5cce8383eda80ffe686d93dcac57b84e4fa29f Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 21 May 2007 17:27:59 +0200 Subject: Make screen info dynamic: first step to supporting randr darcs-hash:20070521152759-a5988-736e7caea5252a77bb01d7631cce0db4287ff6f2 --- XMonad.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'XMonad.hs') diff --git a/XMonad.hs b/XMonad.hs index cb9ead5..0355e6f 100644 --- a/XMonad.hs +++ b/XMonad.hs @@ -39,6 +39,9 @@ import qualified Data.Map as M -- Just the display, width, height and a window list data XState = XState { windowset :: !WindowSet -- ^ workspace list + , xineScreens :: ![Rectangle] -- ^ dimensions of each screen + , dimensions :: !(Int,Int) -- ^ dimensions of the screen, + -- used for hiding windows , layouts :: !(M.Map WorkspaceId (Layout, [Layout])) } -- ^ mapping of workspaces to descriptions of their layouts @@ -48,10 +51,7 @@ data XConf = XConf , theRoot :: !Window -- ^ the root window , wmdelete :: !Atom -- ^ window deletion atom , wmprotocols :: !Atom -- ^ wm protocols atom - , dimensions :: !(Int,Int) -- ^ dimensions of the screen, - -- used for hiding windows - , xineScreens :: ![Rectangle] -- ^ dimensions of each screen , normalBorder :: !Color -- ^ border color of unfocused windows , focusedBorder :: !Color } -- ^ border color of the focused window -- cgit v1.2.3