diff options
Diffstat (limited to 'MetaTile/Main.hsc')
-rw-r--r-- | MetaTile/Main.hsc | 3 |
1 files changed, 3 insertions, 0 deletions
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 |