twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-02 21:21:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

only perform mouse events on managed windows. closes #28

Browse Source
This commit is contained in:
Don Stewart
2007-06-21 01:17:00 +00:00
parent e99d7431c8
commit c6da7fc14a
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Operations.hs
View File

@@ -499,7 +499,7 @@ mouseDrag f = do
io $ ungrabPointer d currentTime io $ ungrabPointer d currentTime
mouseMoveWindow :: Window -> X () mouseMoveWindow :: Window -> X ()
mouseMoveWindow w = withDisplay $ \d -> do mouseMoveWindow w = whenX (isClient w) $ withDisplay $ \d -> do
io $ raiseWindow d w io $ raiseWindow d w
wa <- io $ getWindowAttributes d w wa <- io $ getWindowAttributes d w
(_, _, _, ox, oy, _, _, _) <- io $ queryPointer d w (_, _, _, ox, oy, _, _, _) <- io $ queryPointer d w
@@ -509,7 +509,7 @@ mouseMoveWindow w = withDisplay $ \d -> do
float w float w
mouseResizeWindow :: Window -> X () mouseResizeWindow :: Window -> X ()
mouseResizeWindow w = withDisplay $ \d -> do mouseResizeWindow w = whenX (isClient w) $ withDisplay $ \d -> do
io $ raiseWindow d w io $ raiseWindow d w
wa <- io $ getWindowAttributes d w wa <- io $ getWindowAttributes d w
sh <- io $ getWMNormalHints d w sh <- io $ getWMNormalHints d w