From 4ac52ef81a245cafabc48b9396276cc761bb9320 Mon Sep 17 00:00:00 2001
From: Tomas Janousek <tomi@nomi.cz>
Date: Thu, 26 Nov 2009 18:34:13 +0100
Subject: X.L.MouseResizableTile: keep draggers on the bottom of the window
 stack.

Ignore-this: 8089cf8ce53580090b045f4aebb1b899

darcs-hash:20091126173413-c9ff5-2fd78e7bbedef172c2abfc2c2e46c19f13fb7a52.gz
---
 XMonad/Layout/MouseResizableTile.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'XMonad/Layout/MouseResizableTile.hs')

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 ()
-- 
cgit v1.2.3