diff options
| -rw-r--r-- | XMonad/Layout/DragPane.hs | 2 |
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 |