diff options
| author | David Roundy <droundy@darcs.net> | 2008-06-10 19:40:44 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2008-06-10 19:40:44 +0200 |
| commit | 5adaf87ffd7c3bb6b386e4f437445a8d488dc772 (patch) | |
| tree | 74e313dc958446bfe4dc5d3e0659c5f37e2b136b /XMonad/Layout/DragPane.hs | |
| parent | 7bac92dd074fea6bc67e52bddaa5f93225a16f42 (diff) | |
| download | XMonadContrib-5adaf87ffd7c3bb6b386e4f437445a8d488dc772.tar.gz XMonadContrib-5adaf87ffd7c3bb6b386e4f437445a8d488dc772.tar.xz XMonadContrib-5adaf87ffd7c3bb6b386e4f437445a8d488dc772.zip | |
keep drag panes on the bottom of the window stack.
darcs-hash:20080610174044-72aca-270d4b06cd1670389e5d8a34b0a1bd4a28554fa8.gz
Diffstat (limited to 'XMonad/Layout/DragPane.hs')
| -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 |