From d428edc7ed56e4cd043c8b9bea80c2fa04d018fa Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 3 Jan 2011 19:55:22 -0600 Subject: [PATCH] make sure make-bitmap gets exacts as args original commit: 30f9c4338f4ebbca7126f74e672cfcef3315fcd7 --- collects/mrlib/image-core.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mrlib/image-core.rkt b/collects/mrlib/image-core.rkt index df779dfc..c316b1d7 100644 --- a/collects/mrlib/image-core.rkt +++ b/collects/mrlib/image-core.rkt @@ -318,8 +318,8 @@ has been moved out). (define/override (draw dc x y left top right bottom dx dy draw-caret?) (unless cached-bitmap - (set! cached-bitmap (make-bitmap (+ (round (bb-bottom bb)) 1) - (+ (round (bb-right bb)) 1))) + (set! cached-bitmap (make-bitmap (+ (inexact->exact (round (bb-bottom bb))) 1) + (+ (inexact->exact (round (bb-right bb))) 1))) (define bdc (make-object bitmap-dc% cached-bitmap)) (send bdc erase) (render-image this bdc 0 0)