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

fix GC blit resizing

Browse Source 
Conversion of a bitmap to the specified size was broken and made more
broken by recent changes.
This commit is contained in:
Matthew Flatt 2015-08-19 11:59:18 -06:00
parent 4453642e52
commit 4f3216f55a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gui-lib/mred/private/wx/common/canvas-mixin.rkt
View File

@ -203,8 +203,8 @@
(= (send on get-width) w) (= (send on get-width) w)
(= (send on get-height) h)) (= (send on get-height) h))
on on
(let ([bm (make-object bitmap% w h #:backing-scale (send on get-backing-scale))]) (let ([bm (make-object bitmap% w h #f #f (send on get-backing-scale))])
(let ([dc (make-object bitmap-dc% on)]) (let ([dc (make-object bitmap-dc% bm)])
(send dc draw-bitmap-section on 0 0 on-x on-y w h) (send dc draw-bitmap-section on 0 0 on-x on-y w h)
(send dc set-bitmap #f) (send dc set-bitmap #f)
bm)))) bm))))