aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Layout/DragPane.hs
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/Layout/DragPane.hs')
-rw-r--r--XMonad/Layout/DragPane.hs2
1 files changed, 2 insertions, 0 deletions
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