From 2850d101f31ffdbd624c0fa2353fe62e0cb79c88 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 1 Aug 2009 16:17:35 +0000 Subject: [PATCH] clear bitmap created for a snip->cached-image-snip conversion svn: r15656 --- collects/mrlib/cache-image-snip.ss | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/mrlib/cache-image-snip.ss b/collects/mrlib/cache-image-snip.ss index 91a799b1be..0e37ec1d28 100644 --- a/collects/mrlib/cache-image-snip.ss +++ b/collects/mrlib/cache-image-snip.ss @@ -295,6 +295,7 @@ (inexact->exact (floor w)) (inexact->exact (floor h)))] [bdc (make-object bitmap-dc% bmp)]) + (send bdc clear) (send snp draw bdc 0 0 0 0 w h 0 0 'no-caret) (send bdc set-bitmap #f) (bitmaps->cache-image-snip bmp