summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Operations.hs4
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