clear bitmap created for a snip->cached-image-snip conversion

svn: r15656
2009-08-01 16:17:35 +00:00 · 2009-08-01 16:17:35 +00:00 · 2850d101f3
commit 2850d101f3
parent 32353b76d2
1 changed files with 1 additions and 0 deletions
--- 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