From cf344b9926edda82906d692b9bed0421c82abb7d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 3 Jan 2011 19:13:56 -0700 Subject: [PATCH] fix dimensions of cached image bitmap --- 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 c316b1d7bc..feb771ea6c 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 (+ (inexact->exact (round (bb-bottom bb))) 1) - (+ (inexact->exact (round (bb-right bb))) 1))) + (set! cached-bitmap (make-bitmap (+ (inexact->exact (round (bb-right bb))) 1) + (+ (inexact->exact (round (bb-bottom bb))) 1))) (define bdc (make-object bitmap-dc% cached-bitmap)) (send bdc erase) (render-image this bdc 0 0)