From 6a9cd8b2317374284655af688383746ce17953e3 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Tue, 7 Oct 2008 23:43:51 +0200
Subject: Regression: ungrab buttons on *non* root windows

darcs-hash:20081007214351-25a6b-ef1bdcaa0a28956db5e807df659ef8b4cc096f1b
---
 XMonad/Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad/Operations.hs')

diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs
index 5f7d39a..a4eb352 100644
--- a/XMonad/Operations.hs
+++ b/XMonad/Operations.hs
@@ -317,7 +317,7 @@ setFocusX w = withWindowSet $ \ws -> do
             setButtonGrab True otherw
 
     -- If we ungrab buttons on the root window, we lose our mouse bindings.
-    whenX (isRoot w) $ setButtonGrab False w
+    whenX (not <$> isRoot w) $ setButtonGrab False w
     io $ do setInputFocus dpy w revertToPointerRoot 0
             -- raiseWindow dpy w
 
-- 
cgit v1.2.3