summaryrefslogtreecommitdiffhomepage
path: root/XUtil.hsc
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2010-02-10 14:59:23 +0100
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2010-02-10 14:59:23 +0100
commit785760051218a726e68f16a3558b7607a52975e0 (patch)
tree6511b7398a6d2e41424383506ac52e4d79bd2fdb /XUtil.hsc
parentae96068742055dd6237693a9f7d6c8c7704221bd (diff)
downloadxmobar-785760051218a726e68f16a3558b7607a52975e0.tar.gz
xmobar-785760051218a726e68f16a3558b7607a52975e0.tar.bz2
fix issue 5
Ignore-this: afbb42721d0f68dee3a764185564a32f8c5d01e5 darcs-hash:20100210135923-d6583-708784af45753c2928c50eedbb39ceada47ad3f2.gz
Diffstat (limited to 'XUtil.hsc')
-rw-r--r--XUtil.hsc4
1 files changed, 2 insertions, 2 deletions
diff --git a/XUtil.hsc b/XUtil.hsc
index 4f6fda2..2550acf 100644
--- a/XUtil.hsc
+++ b/XUtil.hsc
@@ -171,9 +171,9 @@ printString dpy drw fs@(Xft font) gc fc bc x y s = do
gi <- xftTextExtents dpy font s
setForeground dpy gc bcolor
fillRectangle dpy drw gc (x - fi (xglyphinfo_x gi))
- (y - fi a)
+ (y - fi (a + d))
(fi $ xglyphinfo_xOff gi)
- (fi $ a + d)
+ (fi $ 4 + a + d)
withXftDraw dpy drw visual colormap $
\draw -> withXftColorName dpy visual colormap fc $
\color -> xftDrawString draw color font x (y - 2) s