From 4f3216f55a2fec5431b89b77e52fadc2b2709fb4 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 19 Aug 2015 11:59:18 -0600 Subject: [PATCH] fix GC blit resizing Conversion of a bitmap to the specified size was broken and made more broken by recent changes. --- gui-lib/mred/private/wx/common/canvas-mixin.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gui-lib/mred/private/wx/common/canvas-mixin.rkt b/gui-lib/mred/private/wx/common/canvas-mixin.rkt index e6c2eb04..6a688935 100644 --- a/gui-lib/mred/private/wx/common/canvas-mixin.rkt +++ b/gui-lib/mred/private/wx/common/canvas-mixin.rkt @@ -203,8 +203,8 @@ (= (send on get-width) w) (= (send on get-height) h)) on - (let ([bm (make-object bitmap% w h #:backing-scale (send on get-backing-scale))]) - (let ([dc (make-object bitmap-dc% on)]) + (let ([bm (make-object bitmap% w h #f #f (send on get-backing-scale))]) + (let ([dc (make-object bitmap-dc% bm)]) (send dc draw-bitmap-section on 0 0 on-x on-y w h) (send dc set-bitmap #f) bm))))