From 5adaf87ffd7c3bb6b386e4f437445a8d488dc772 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Tue, 10 Jun 2008 19:40:44 +0200
Subject: keep drag panes on the bottom of the window stack.

darcs-hash:20080610174044-72aca-270d4b06cd1670389e5d8a34b0a1bd4a28554fa8.gz
---
 XMonad/Layout/DragPane.hs | 2 ++
 1 file changed, 2 insertions(+)

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

diff --git a/XMonad/Layout/DragPane.hs b/XMonad/Layout/DragPane.hs
index 6bb099b..e15f5c5 100644
--- a/XMonad/Layout/DragPane.hs
+++ b/XMonad/Layout/DragPane.hs
@@ -133,4 +133,6 @@ newDragWin r = do
   let mask = Just $ exposureMask .|. buttonPressMask
   w <- createNewWindow r mask handleColor False
   showWindow  w
+  d <- asks display
+  liftIO $ lowerWindow d w
   return      w
-- 
cgit v1.2.3