mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-07-26 17:51:51 -07:00
X.L.MouseResizableTile: keep draggers on the bottom of the window stack.
This commit is contained in:
@@ -229,6 +229,7 @@ splitHorizontallyBy f (Rectangle sx sy sw sh) = ((leftHalf, rightHalf), (dragger
|
|||||||
createDragger :: Rectangle -> DraggerWithRect -> X DraggerWithWin
|
createDragger :: Rectangle -> DraggerWithRect -> X DraggerWithWin
|
||||||
createDragger sr (draggerRect, draggerCursor, draggerInfo) = do
|
createDragger sr (draggerRect, draggerCursor, draggerInfo) = do
|
||||||
draggerWin <- createInputWindow draggerCursor $ sanitizeRectangle sr draggerRect
|
draggerWin <- createInputWindow draggerCursor $ sanitizeRectangle sr draggerRect
|
||||||
|
io . flip lowerWindow draggerWin =<< asks display
|
||||||
return (draggerWin, draggerInfo)
|
return (draggerWin, draggerInfo)
|
||||||
|
|
||||||
deleteDragger :: DraggerWithWin -> X ()
|
deleteDragger :: DraggerWithWin -> X ()
|
||||||
|
Reference in New Issue
Block a user