aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDavid Roundy <droundy@darcs.net>2007-06-10 22:35:13 +0200
committerDavid Roundy <droundy@darcs.net>2007-06-10 22:35:13 +0200
commitbe0ad5c432ec62bcd862d8a7ad7b8d857055b853 (patch)
treeae151d16b6580cae5f120276eb7da335f3069cd5
parent1dc38bd9200da27719e7f6c7f86bbcf066c97127 (diff)
downloadXMonadContrib-be0ad5c432ec62bcd862d8a7ad7b8d857055b853.tar.gz
XMonadContrib-be0ad5c432ec62bcd862d8a7ad7b8d857055b853.tar.xz
XMonadContrib-be0ad5c432ec62bcd862d8a7ad7b8d857055b853.zip
tune layout of Tabbed just a bit.
darcs-hash:20070610203513-72aca-aed9945d5a3935ce447a298f4b6c2abba53817c0.gz
-rw-r--r--Tabbed.hs4
1 files changed, 2 insertions, 2 deletions
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