aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTomas Janousek <tomi@nomi.cz>2009-11-26 18:34:13 +0100
committerTomas Janousek <tomi@nomi.cz>2009-11-26 18:34:13 +0100
commit4ac52ef81a245cafabc48b9396276cc761bb9320 (patch)
tree74d0daea0447d662c592e6ddeea063aa8138368e
parent9eb5a8c343094c9d570a76f6d7b4b007454a9646 (diff)
downloadXMonadContrib-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.hs1
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 ()