diff options
| author | David Roundy <droundy@darcs.net> | 2007-08-10 19:37:46 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-08-10 19:37:46 +0200 |
| commit | 96acc1c542c200e30896793bff5242e20d8e71a1 (patch) | |
| tree | 43caad7a608cddc9f6de6f0e1bf296dffe1f98b1 | |
| parent | 460505b5ed48f7da854d939f6ecb14460b28c71e (diff) | |
| download | XMonadContrib-96acc1c542c200e30896793bff5242e20d8e71a1.tar.gz XMonadContrib-96acc1c542c200e30896793bff5242e20d8e71a1.tar.xz XMonadContrib-96acc1c542c200e30896793bff5242e20d8e71a1.zip | |
center prompt text in window.
darcs-hash:20070810173746-72aca-add5457dcb36c22bed178f9db5ae560229912d2d.gz
| -rw-r--r-- | XPrompt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -380,7 +380,7 @@ printPrompt drw gc fontst = do ht = height c (fsl,psl) = (textWidth fontst f, textWidth fontst p) (_,asc,desc,_) = textExtents fontst str - y = fi $ (ht + fi (asc + desc)) `div` 2 + y = fi $ ((ht - fi (asc + desc)) `div` 2) + fi asc x = (asc + desc) `div` 2 fgcolor <- io $ initColor d $ fgColor c bgcolor <- io $ initColor d $ bgColor c |