diff options
| author | Tomas Janousek <tomi@nomi.cz> | 2009-11-26 18:34:13 +0100 |
|---|---|---|
| committer | Tomas Janousek <tomi@nomi.cz> | 2009-11-26 18:34:13 +0100 |
| commit | 4ac52ef81a245cafabc48b9396276cc761bb9320 (patch) | |
| tree | 74d0daea0447d662c592e6ddeea063aa8138368e | |
| parent | 9eb5a8c343094c9d570a76f6d7b4b007454a9646 (diff) | |
| download | XMonadContrib-4ac52ef81a245cafabc48b9396276cc761bb9320.tar.gz XMonadContrib-4ac52ef81a245cafabc48b9396276cc761bb9320.tar.xz XMonadContrib-4ac52ef81a245cafabc48b9396276cc761bb9320.zip | |
X.L.MouseResizableTile: keep draggers on the bottom of the window stack.
Ignore-this: 8089cf8ce53580090b045f4aebb1b899
darcs-hash:20091126173413-c9ff5-2fd78e7bbedef172c2abfc2c2e46c19f13fb7a52.gz
| -rw-r--r-- | XMonad/Layout/MouseResizableTile.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/XMonad/Layout/MouseResizableTile.hs b/XMonad/Layout/MouseResizableTile.hs index 6af586b..8c0b7f8 100644 --- 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 () |