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

added a comment

Browse Source 
svn: r4349
This commit is contained in:
Robby Findler 2006-09-16 02:36:06 +00:00
parent 27ce8d0f3b
commit 7fa381cace
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

@ -203,6 +203,7 @@
(let* ([bm (make-object bitmap% w h)] (let* ([bm (make-object bitmap% w h)]
[bdc (make-object bitmap-dc% bm)]) [bdc (make-object bitmap-dc% bm)])
(send bdc clear) (send bdc clear)
; (send bdc set-smoothing 'aligned) ; causes image-inside? to fail in test suite.
(draw bdc) (draw bdc)
(send bdc set-bitmap #f) (send bdc set-bitmap #f)
bm)) bm))