From ddb291c94fbb1d051b34d281d70151f2ee9d45ae Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Fri, 28 Dec 2007 13:59:13 +0100 Subject: textExtentsXMF doesn't require the display darcs-hash:20071228125913-32816-e6193e40cb78fed678761c550644a7c64062cb56.gz --- XMonad/Prompt.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'XMonad/Prompt.hs') diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 41ff787..3459db7 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -454,7 +454,7 @@ printPrompt drw = do ht = height c fsl <- io $ textWidthXMF (dpy st) fs f psl <- io $ textWidthXMF (dpy st) fs p - (_,asc,desc,_) <- io $ textExtentsXMF (dpy st) fs str + (_,asc,desc,_) <- io $ textExtentsXMF fs str let y = fi $ ((ht - fi (asc + desc)) `div` 2) + fi asc x = (asc + desc) `div` 2 @@ -521,7 +521,7 @@ getComplWinDim compl = do (x,y) = case position c of Top -> (0,ht) Bottom -> (0, (0 + rem_height - actual_height)) - (_,asc,desc,_) <- io $ textExtentsXMF (dpy st) fs $ head compl + (_,asc,desc,_) <- io $ textExtentsXMF fs $ head compl let yp = fi $ (ht + fi (asc - desc)) `div` 2 xp = (asc + desc) `div` 2 yy = map fi . take (fi actual_rows) $ [yp,(yp + ht)..] -- cgit v1.2.3