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

---
 Operations.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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