diff options
| -rw-r--r-- | XMonad/Actions/UpdatePointer.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/XMonad/Actions/UpdatePointer.hs b/XMonad/Actions/UpdatePointer.hs index f79d068..2068e33 100644 --- a/XMonad/Actions/UpdatePointer.hs +++ b/XMonad/Actions/UpdatePointer.hs @@ -26,6 +26,7 @@ module XMonad.Actions.UpdatePointer import XMonad import Control.Monad import XMonad.StackSet (member, peek, screenDetail, current) +import Data.Maybe -- $usage -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@: @@ -66,8 +67,10 @@ updatePointer p = do root <- asks theRoot mouseIsMoving <- asks mouseFocused (_sameRoot,_,currentWindow,rootx,rooty,_,_,_) <- io $ queryPointer dpy root + drag <- gets dragging unless (pointWithin (fi rootx) (fi rooty) rect || mouseIsMoving + || isJust drag || not (currentWindow `member` ws || currentWindow == none)) $ case p of Nearest -> do |