From 3bf5609453485e8b20a75797994ff3b64d8c60ed Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Thu, 12 Sep 2013 21:08:13 +0200
Subject: Split up window and frame state

---
 MetaTile/Main.hsc | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'MetaTile/Main.hsc')

diff --git a/MetaTile/Main.hsc b/MetaTile/Main.hsc
index abdb75c..426e78f 100644
--- a/MetaTile/Main.hsc
+++ b/MetaTile/Main.hsc
@@ -126,6 +126,7 @@ metatile initxmc = do
             { windowset       = initialWinset
             , numberlockMask  = 0
             , windowState     = M.empty
+            , frameState     = M.empty
             , dragging        = Nothing
             , extensibleState = extState
             }
@@ -323,6 +324,7 @@ reparent w = withDisplay $ \dpy -> do
             addToSaveSet dpy w
             reparentWindow dpy w frame 0 0
         modifyWindowState (\ws -> ws { wsFrame = frame }) w
+        setFrameState frame $ FrameState { fsWindow = w, fsBorderWidth = BorderWidth 0 0 0 0 }
 
 hideParent :: Window -> X ()
 hideParent w = withDisplay $ \dpy -> do
@@ -336,6 +338,7 @@ unparent w = withDisplay $ \dpy -> do
         trace $ "unparent: " ++ show w
         io $ destroyWindow dpy frame
         modifyWindowState (\ws -> ws { wsFrame = none }) w
+        deleteFrameState frame
 
 -- ---------------------------------------------------------------------
 -- IO stuff. Doesn't require any X state
-- 
cgit v1.2.3