Merge pull request #275 from liskin/pr/notifications-obscured-by-floats

Fix obscuring notifications when moving floats
This commit is contained in:
Tomáš Janoušek
2021-03-21 21:30:36 +00:00
committed by GitHub
2 changed files with 3 additions and 2 deletions

View File

@@ -32,6 +32,9 @@
* Change `ScreenDetail` to a newtype and make `RationalRect` strict in
its contents.
* Fixed dunst notifications being obscured when moving floats.
https://github.com/xmonad/xmonad/issues/208
## 0.15 (September 30, 2018)
* Reimplement `sendMessage` to deal properly with windowset changes made

View File

@@ -637,7 +637,6 @@ mouseDrag f done = do
-- | drag the window under the cursor with the mouse while it is dragged
mouseMoveWindow :: Window -> X ()
mouseMoveWindow w = whenX (isClient w) $ withDisplay $ \d -> do
io $ raiseWindow d w
wa <- io $ getWindowAttributes d w
(_, _, _, ox', oy', _, _, _) <- io $ queryPointer d w
let ox = fromIntegral ox'
@@ -652,7 +651,6 @@ mouseMoveWindow w = whenX (isClient w) $ withDisplay $ \d -> do
-- | resize the window under the cursor with the mouse while it is dragged
mouseResizeWindow :: Window -> X ()
mouseResizeWindow w = whenX (isClient w) $ withDisplay $ \d -> do
io $ raiseWindow d w
wa <- io $ getWindowAttributes d w
sh <- io $ getWMNormalHints d w
io $ warpPointer d none w 0 0 0 0 (fromIntegral (wa_width wa)) (fromIntegral (wa_height wa))