only perform mouse events on managed windows. closes #28

darcs-hash:20070621011700-9c5c1-a6ada0f63aaee23bdb3ae0c7cd38dadeae5cd20a

1 files 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