diff options
Diffstat (limited to 'XMonad/Main.hsc')
| -rw-r--r-- | XMonad/Main.hsc | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/XMonad/Main.hsc b/XMonad/Main.hsc index d09e024..4c00b20 100644 --- a/XMonad/Main.hsc +++ b/XMonad/Main.hsc @@ -313,7 +313,7 @@ reparent :: Window -> X () reparent w = withDisplay $ \dpy -> do rootw <- asks theRoot p <- asks normalBorder - noFrame <- getsWindowState ((==0) . wsFrame) w + noFrame <- getsWindowState ((==none) . wsFrame) w when noFrame $ do trace $ "reparent: " ++ show w frame <- io $ allocaSetWindowAttributes $ \swa -> do @@ -329,15 +329,15 @@ reparent w = withDisplay $ \dpy -> do hideParent :: Window -> X () hideParent w = withDisplay $ \dpy -> do frame <- getsWindowState wsFrame w - when (frame /= 0) $ io $ unmapWindow dpy frame + when (frame /= none) $ io $ unmapWindow dpy frame unparent :: Window -> X () unparent w = withDisplay $ \dpy -> do trace $ "unparent: " ++ show w frame <- getsWindowState wsFrame w - when (frame /= 0) $ do + when (frame /= none) $ do io $ destroyWindow dpy frame - modifyWindowState (\ws -> ws { wsFrame = 0 }) w + modifyWindowState (\ws -> ws { wsFrame = none }) w -- --------------------------------------------------------------------- -- IO stuff. Doesn't require any X state |