keep drag panes on the bottom of the window stack.

This commit is contained in:
David Roundy
2008-06-10 17:40:44 +00:00
parent 78f934255b
commit d988bda23f

View File

@@ -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