diff options
| -rw-r--r-- | XMonad/Layout/MouseResizableTile.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/XMonad/Layout/MouseResizableTile.hs b/XMonad/Layout/MouseResizableTile.hs index 6af586b..8c0b7f8 100644 --- a/XMonad/Layout/MouseResizableTile.hs +++ b/XMonad/Layout/MouseResizableTile.hs @@ -229,6 +229,7 @@ splitHorizontallyBy f (Rectangle sx sy sw sh) = ((leftHalf, rightHalf), (dragger createDragger :: Rectangle -> DraggerWithRect -> X DraggerWithWin createDragger sr (draggerRect, draggerCursor, draggerInfo) = do draggerWin <- createInputWindow draggerCursor $ sanitizeRectangle sr draggerRect + io . flip lowerWindow draggerWin =<< asks display return (draggerWin, draggerInfo) deleteDragger :: DraggerWithWin -> X () |