diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-11 11:26:53 +0100 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-11 11:26:53 +0100 |
commit | 42bf14a7d8a336431c7e70000993a16085216493 (patch) | |
tree | 0a223da2144bc238ee8bd0e062dc3d1e19b31599 /XMonad.hs | |
parent | ca52042c86a157c6932d0153b7988f8a0de9f4ea (diff) | |
download | xmonad-42bf14a7d8a336431c7e70000993a16085216493.tar.gz xmonad-42bf14a7d8a336431c7e70000993a16085216493.tar.xz xmonad-42bf14a7d8a336431c7e70000993a16085216493.zip |
general refactor, and call xerrorhandler to ignore certain undetectable issues
darcs-hash:20070311102653-9c5c1-de74160d207f006000afc640dc9745d1b20ce05b.gz
Diffstat (limited to 'XMonad.hs')
-rw-r--r-- | XMonad.hs | 9 |
1 files changed, 6 insertions, 3 deletions
@@ -23,14 +23,17 @@ import StackSet (StackSet) import Control.Monad.State import System.IO import System.Process (runCommand) -import Graphics.X11.Xlib (Display,Window) +import Graphics.X11.Xlib -- | XState, the window manager state. -- Just the display, width, height and a window list data XState = XState { display :: Display - , screenWidth :: {-# UNPACK #-} !Int - , screenHeight :: {-# UNPACK #-} !Int + , screen :: {-# UNPACK #-} !ScreenNumber + , theRoot :: {-# UNPACK #-} !Window + , wmdelete :: {-# UNPACK #-} !Atom + , wmprotocols :: {-# UNPACK #-} !Atom + , dimensions :: {-# UNPACK #-} !(Int,Int) , workspace :: {-# UNPACK #-} !WorkSpace -- ^ workspace list } |