diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-09-10 22:48:44 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-09-10 23:10:56 +0200 |
commit | 58bd42b0df4bf504cd9288b7c7e9c86753c38e75 (patch) | |
tree | f9dde4d872591c01e3b4b40f53006125c72af4e5 /XMonad/Core.hs | |
parent | 6286b30a91b0938a598f25ff461c5982db366ac3 (diff) | |
download | metatile-58bd42b0df4bf504cd9288b7c7e9c86753c38e75.tar metatile-58bd42b0df4bf504cd9288b7c7e9c86753c38e75.zip |
Implement simple reparenting
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 |