diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2010-02-10 14:59:23 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2010-02-10 14:59:23 +0100 |
| commit | 785760051218a726e68f16a3558b7607a52975e0 (patch) | |
| tree | 6511b7398a6d2e41424383506ac52e4d79bd2fdb | |
| parent | ae96068742055dd6237693a9f7d6c8c7704221bd (diff) | |
| download | xmobar-785760051218a726e68f16a3558b7607a52975e0.tar.gz xmobar-785760051218a726e68f16a3558b7607a52975e0.tar.bz2 | |
fix issue 5
Ignore-this: afbb42721d0f68dee3a764185564a32f8c5d01e5
darcs-hash:20100210135923-d6583-708784af45753c2928c50eedbb39ceada47ad3f2.gz
| -rw-r--r-- | XUtil.hsc | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |