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

PR 10783 addendum

Browse Source 
svn: r18346
This commit is contained in:
Robby Findler 2010-02-26 03:38:00 +00:00
parent 2e90dfc081
commit 700a530f4e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mrlib/image-core.ss
View File

@ -562,8 +562,8 @@ has been moved out).
(define (save-image-as-bitmap image filename kind)
(let* ([bb (send image get-bb)]
[bm (make-object bitmap%
(ceiling (inexact->exact (bb-right bb)))
(ceiling (inexact->exact (bb-bottom bb))))]
(+ 1 (ceiling (inexact->exact (bb-right bb))))
(+ 1 (ceiling (inexact->exact (bb-bottom bb)))))]
[bdc (make-object bitmap-dc% bm)])
(send bdc clear)
(render-image image bdc 0 0)