diff options
author | David Roundy <droundy@darcs.net> | 2007-06-10 22:35:13 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-06-10 22:35:13 +0200 |
commit | be0ad5c432ec62bcd862d8a7ad7b8d857055b853 (patch) | |
tree | ae151d16b6580cae5f120276eb7da335f3069cd5 | |
parent | 1dc38bd9200da27719e7f6c7f86bbcf066c97127 (diff) | |
download | XMonadContrib-be0ad5c432ec62bcd862d8a7ad7b8d857055b853.tar.gz XMonadContrib-be0ad5c432ec62bcd862d8a7ad7b8d857055b853.tar.xz XMonadContrib-be0ad5c432ec62bcd862d8a7ad7b8d857055b853.zip |
tune layout of Tabbed just a bit.
darcs-hash:20070610203513-72aca-aed9945d5a3935ce447a298f4b6c2abba53817c0.gz
Diffstat (limited to '')
-rw-r--r-- | Tabbed.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |