From 0a99440e52d872287b1add151c2608f089c45c5c Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 22 Dec 2007 06:04:39 +0100 Subject: No more tabs darcs-hash:20071222050439-a5988-7eb14f0e316b41ace318d1e4b92d15aaa3808c4d.gz --- XMonad/Layout/DragPane.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad/Layout/DragPane.hs') diff --git a/XMonad/Layout/DragPane.hs b/XMonad/Layout/DragPane.hs index f13eca3..7e10597 100644 --- a/XMonad/Layout/DragPane.hs +++ b/XMonad/Layout/DragPane.hs @@ -107,7 +107,7 @@ doLay mirror (DragPane mw ty delta split) r s = do mirror $ Rectangle x y (w-halfHandleWidth) h right = case right' of Rectangle x y w h -> - mirror $ Rectangle (x+halfHandleWidth) y (w-halfHandleWidth) h + mirror $ Rectangle (x+halfHandleWidth) y (w-halfHandleWidth) h handr = case left' of Rectangle x y w h -> mirror $ Rectangle (x + fromIntegral w - halfHandleWidth) y (2*halfHandleWidth) h -- cgit v1.2.3