diff options
Diffstat (limited to 'XMonad/Core.hs')
-rw-r--r-- | XMonad/Core.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index 0ebb3fa..4171060 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -61,7 +61,8 @@ import qualified Data.Map as M data WindowState = WindowState { wsMapped :: !Bool , wsWaitingUnmap :: !Int -- ^ the number of expected UnmapEvents - } deriving (Eq) + , wsFrame :: !Window + } deriving (Show, Eq) -- | XState, the (mutable) window manager state. @@ -218,7 +219,7 @@ getAtom :: String -> X Atom getAtom str = withDisplay $ \dpy -> io $ internAtom dpy str False emptyWindowState :: WindowState -emptyWindowState = WindowState False 0 +emptyWindowState = WindowState False 0 0 getWindowState :: Window -> X WindowState getWindowState w = gets $ M.findWithDefault emptyWindowState w . windowState |