From 785760051218a726e68f16a3558b7607a52975e0 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Wed, 10 Feb 2010 14:59:23 +0100
Subject: fix issue 5

Ignore-this: afbb42721d0f68dee3a764185564a32f8c5d01e5

darcs-hash:20100210135923-d6583-708784af45753c2928c50eedbb39ceada47ad3f2.gz
---
 XUtil.hsc | 4 ++--
 1 file 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
-- 
cgit v1.2.3