From be0ad5c432ec62bcd862d8a7ad7b8d857055b853 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Sun, 10 Jun 2007 22:35:13 +0200 Subject: tune layout of Tabbed just a bit. darcs-hash:20070610203513-72aca-aed9945d5a3935ce447a298f4b6c2abba53817c0.gz --- Tabbed.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Tabbed.hs') diff --git a/Tabbed.hs b/Tabbed.hs index 139a8d3..d97e77c 100644 --- a/Tabbed.hs +++ b/Tabbed.hs @@ -29,7 +29,7 @@ dolay sc [w] = return [(w,sc)] dolay sc@(Rectangle x _ wid _) ws = do let ts = gentabs x wid (length ws) tws = zip ts ws - maketab (t,w) = newDecoration t 1 0x000000 0x00FFFF (drawtab t w) (focus w) + maketab (t,w) = newDecoration t 1 0x000000 0x777777 (drawtab t w) (focus w) drawtab r@(Rectangle _ _ wt ht) w d w' gc = do nw <- getName w focusw <- gets (W.focus . W.stack . W.workspace . W.current . windowset) @@ -44,7 +44,7 @@ dolay sc@(Rectangle x _ wid _) ws = -- let nameh = ht `div` 2 -- namew = textWidth font name -- textWidth also causes a crash! let nameh = ht - 6 - namew = wt - 20 + namew = wt - 10 io $ drawString d w' gc (fromIntegral (wt `div` 2) - fromIntegral (namew `div` 2)) (fromIntegral (ht `div` 2) + fromIntegral (nameh `div` 2)) name -- cgit v1.2.3