diff options
| author | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-21 03:17:00 +0200 |
|---|---|---|
| committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-21 03:17:00 +0200 |
| commit | adaa494d40394b3db3df65118f91bf310a943afc (patch) | |
| tree | 1b425b44115b9600bb8224a4b6b70f2913bf9f3e /Operations.hs | |
| parent | d5ef958f82520a392c77ace3df5ea398c133b81c (diff) | |
| download | metatile-adaa494d40394b3db3df65118f91bf310a943afc.tar metatile-adaa494d40394b3db3df65118f91bf310a943afc.zip | |
only perform mouse events on managed windows. closes #28
darcs-hash:20070621011700-9c5c1-a6ada0f63aaee23bdb3ae0c7cd38dadeae5cd20a
Diffstat (limited to 'Operations.hs')
| -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 |