suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
svn: r15656
This commit is contained in:
Matthew Flatt 2009-08-01 16:17:35 +00:00
parent 32353b76d2
commit 2850d101f3
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/mrlib/cache-image-snip.ss
View File

@ -295,6 +295,7 @@
(inexact->exact (floor w)) (inexact->exact (floor w))
(inexact->exact (floor h)))] (inexact->exact (floor h)))]
[bdc (make-object bitmap-dc% bmp)]) [bdc (make-object bitmap-dc% bmp)])
(send bdc clear)
(send snp draw bdc 0 0 0 0 w h 0 0 'no-caret) (send snp draw bdc 0 0 0 0 w h 0 0 'no-caret)
(send bdc set-bitmap #f) (send bdc set-bitmap #f)
(bitmaps->cache-image-snip bmp (bitmaps->cache-image-snip bmp