diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-22 06:04:39 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-22 06:04:39 +0100 |
| commit | 0a99440e52d872287b1add151c2608f089c45c5c (patch) | |
| tree | c6a40d4bac13964240a59f2162f22856cdb21004 /XMonad/Layout/DragPane.hs | |
| parent | ec481040cf268fac8f527a7946e3ca92de09278d (diff) | |
| download | XMonadContrib-0a99440e52d872287b1add151c2608f089c45c5c.tar.gz XMonadContrib-0a99440e52d872287b1add151c2608f089c45c5c.tar.xz XMonadContrib-0a99440e52d872287b1add151c2608f089c45c5c.zip | |
No more tabs
darcs-hash:20071222050439-a5988-7eb14f0e316b41ace318d1e4b92d15aaa3808c4d.gz
Diffstat (limited to 'XMonad/Layout/DragPane.hs')
| -rw-r--r-- | XMonad/Layout/DragPane.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |