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

make sure make-bitmap gets exacts as args

Browse Source 
original commit: 30f9c4338f4ebbca7126f74e672cfcef3315fcd7
This commit is contained in:
Robby Findler 2011-01-03 19:55:22 -06:00
parent ef0187721b
commit d428edc7ed
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.rkt
View File

@ -318,8 +318,8 @@ has been moved out).
(define/override (draw dc x y left top right bottom dx dy draw-caret?) (define/override (draw dc x y left top right bottom dx dy draw-caret?)
(unless cached-bitmap (unless cached-bitmap
(set! cached-bitmap (make-bitmap (+ (round (bb-bottom bb)) 1) (set! cached-bitmap (make-bitmap (+ (inexact->exact (round (bb-bottom bb))) 1)
(+ (round (bb-right bb)) 1))) (+ (inexact->exact (round (bb-right bb))) 1)))
(define bdc (make-object bitmap-dc% cached-bitmap)) (define bdc (make-object bitmap-dc% cached-bitmap))
(send bdc erase) (send bdc erase)
(render-image this bdc 0 0) (render-image this bdc 0 0)