Don't show HintedTile in the description

This commit is contained in:
Spencer Janssen 2007-11-22 07:26:15 +00:00
parent afce47a330
commit 0ef0c613d7

View File

@ -69,7 +69,7 @@ instance LayoutClass HintedTile Window where
resize Expand = c { frac = min 1 $ frac c + delta c } resize Expand = c { frac = min 1 $ frac c + delta c }
incmastern (IncMasterN d) = c { nmaster = max 0 $ nmaster c + d } incmastern (IncMasterN d) = c { nmaster = max 0 $ nmaster c + d }
description l = "HintedTile " ++ show (orientation l) description l = show (orientation l)
adjBorder :: Dimension -> Dimension -> D -> D adjBorder :: Dimension -> Dimension -> D -> D
adjBorder n b (w, h) = (w + n * 2 * b, h + n * 2 * b) adjBorder n b (w, h) = (w + n * 2 * b, h + n * 2 * b)