From 44e16cb55e3564ac40b6d8ce107680bdf0dc29bc Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Wed, 11 Sep 2013 02:20:53 +0200 Subject: Use none for zero XIDs --- XMonad/Main.hsc | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'XMonad/Main.hsc') 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 -- cgit v1.2.3