From c3b92ec25599fca88f8cbc053e58e3c325f5b3d4 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 8 Apr 2013 10:12:00 -0500 Subject: [PATCH] fix improper fraction display closes PR 13558 please include in the release (cherry picked from commit d9adb4e6e987124571f043a28be682b465435aa7) --- collects/framework/private/number-snip.rkt | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/framework/private/number-snip.rkt b/collects/framework/private/number-snip.rkt index 16013d1225..56edc4c141 100644 --- a/collects/framework/private/number-snip.rkt +++ b/collects/framework/private/number-snip.rkt @@ -391,13 +391,14 @@ [th (send style get-text-height dc)] [old-font (send dc get-font)]) (send dc set-font (send style get-font)) - (let-values ([(nw nh na nd) (send dc get-text-extent improper-nums)] - [(dw dh da dd) (send dc get-text-extent dens)] - [(ww wh wa wd) (send dc get-text-extent improper-prefix)]) + (let-values ([(nw nh nd na) (send dc get-text-extent improper-nums)] + [(dw dh dd da) (send dc get-text-extent dens)] + [(ww wh wd wa) (send dc get-text-extent improper-prefix)]) + (define frac-h (+ nh dh 1)) (set-box/f! h (+ nh dh 1)) (set-box/f! w (+ ww (max nw dw))) - (set-box/f! descent (+ wd (/ dh 2))) - (set-box/f! space (+ wa (/ nh 2))) + (set-box/f! descent (+ wd (/ (- frac-h wh) 2))) + (set-box/f! space (+ wa (/ (- frac-h wh) 2))) (set-box/f! lspace 0) (set-box/f! rspace 0))))