From 58bd42b0df4bf504cd9288b7c7e9c86753c38e75 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Tue, 10 Sep 2013 22:48:44 +0200
Subject: Implement simple reparenting

---
 XMonad/Core.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'XMonad/Core.hs')

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
-- 
cgit v1.2.3