From adaa494d40394b3db3df65118f91bf310a943afc Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Thu, 21 Jun 2007 03:17:00 +0200
Subject: only perform mouse events on managed windows. closes #28

darcs-hash:20070621011700-9c5c1-a6ada0f63aaee23bdb3ae0c7cd38dadeae5cd20a
---
 Operations.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index f014ed2..a40b2a0 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -499,7 +499,7 @@ mouseDrag f = do
     io $ ungrabPointer d currentTime
 
 mouseMoveWindow :: Window -> X ()
-mouseMoveWindow w = withDisplay $ \d -> do
+mouseMoveWindow w = whenX (isClient w) $ withDisplay $ \d -> do
     io $ raiseWindow d w
     wa <- io $ getWindowAttributes d w
     (_, _, _, ox, oy, _, _, _) <- io $ queryPointer d w
@@ -509,7 +509,7 @@ mouseMoveWindow w = withDisplay $ \d -> do
     float w
 
 mouseResizeWindow :: Window -> X ()
-mouseResizeWindow w = withDisplay $ \d -> do
+mouseResizeWindow w = whenX (isClient w) $ withDisplay $ \d -> do
     io $ raiseWindow d w
     wa <- io $ getWindowAttributes d w
     sh <- io $ getWMNormalHints d w
-- 
cgit v1.2.3