diff options
| -rw-r--r-- | Operations.hs | 4 |
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 |