From af6ec3c4bab521763bf35cfa6e3ddcf2f8b957b7 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 29 Jul 2003 12:21:19 +0000 Subject: [PATCH] .. original commit: 8632213ed2d7eeb5aece25a8a6a0ae3ec69b91db --- collects/framework/private/text.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss index c1a6158d..e383a3b0 100644 --- a/collects/framework/private/text.ss +++ b/collects/framework/private/text.ss @@ -427,8 +427,8 @@ (send big-snip get-extent dc x y bwb bhb #f #f #f #f) (let* ([cw (send dc get-char-width)] [ch (send dc get-char-height)] - [w (quotient (unbox bwb) cw)] - [h (quotient (unbox bhb) ch)]) + [w (floor (/ (unbox bwb) cw))] + [h (floor (/ (unbox bhb) ch))]) (set/f! wb w) (set/f! hb h) (set! width w)