twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Tomas Janousek 2009-11-26 17:34:13 +00:00
parent c198812fb6
commit 02063ff97e
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
XMonad/Layout/MouseResizableTile.hs
View File

@ -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 ()