From d988bda23f120e0b56b21e6a7e37a06713ffbc47 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Tue, 10 Jun 2008 17:40:44 +0000
Subject: [PATCH] keep drag panes on the bottom of the window stack.

---
 XMonad/Layout/DragPane.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/XMonad/Layout/DragPane.hs b/XMonad/Layout/DragPane.hs
index 6bb099be..e15f5c5a 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