X.L.MouseResizableTile: keep draggers on the bottom of the window stack.

2025-07-27 10:11:52 -07:00 · 2009-11-26 17:34:13 +00:00
parent c198812fb6
commit 02063ff97e
1 changed files with 1 additions and 0 deletions
--- a/XMonad/Layout/MouseResizableTile.hs
+++ b/XMonad/Layout/MouseResizableTile.hs
@@ -229,6 +229,7 @@ splitHorizontallyBy f (Rectangle sx sy sw sh) = ((leftHalf, rightHalf), (dragger
 createDragger :: Rectangle -> DraggerWithRect -> X DraggerWithWin
 createDragger sr (draggerRect, draggerCursor, draggerInfo) = do
        draggerWin <- createInputWindow draggerCursor $ sanitizeRectangle sr draggerRect
+        io . flip lowerWindow draggerWin =<< asks display
        return (draggerWin, draggerInfo)

 deleteDragger :: DraggerWithWin -> X ()