diff options
| -rw-r--r-- | XMonad/Layout/ThreeColumns.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Layout/ThreeColumns.hs b/XMonad/Layout/ThreeColumns.hs index 4140537..ae33f33 100644 --- a/XMonad/Layout/ThreeColumns.hs +++ b/XMonad/Layout/ThreeColumns.hs @@ -92,9 +92,9 @@ tile3 middle f r nmaster n split3HorizontallyBy :: Bool -> Rational -> Rectangle -> (Rectangle, Rectangle, Rectangle) split3HorizontallyBy middle f (Rectangle sx sy sw sh) = if middle - then ( Rectangle (sx + fromIntegral r2w) sy r1w sh - , Rectangle sx sy r2w sh - , Rectangle (sx + fromIntegral r2w + fromIntegral r1w) sy r3w sh ) + then ( Rectangle (sx + fromIntegral r3w) sy r1w sh + , Rectangle (sx + fromIntegral r3w + fromIntegral r1w) sy r2w sh + , Rectangle sx sy r3w sh ) else ( Rectangle sx sy r1w sh , Rectangle (sx + fromIntegral r1w) sy r2w sh , Rectangle (sx + fromIntegral r1w + fromIntegral r2w) sy r3w sh ) |