From c700e32c1782b021a7a1d6dd14dc685471580603 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 13 Aug 2016 13:24:43 -0600 Subject: [PATCH] 0-sized window =/=> 0-sized backing bitmap --- gui-lib/mred/private/wx/common/backing-dc.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gui-lib/mred/private/wx/common/backing-dc.rkt b/gui-lib/mred/private/wx/common/backing-dc.rkt index 2c5f4b11..dde9594c 100644 --- a/gui-lib/mred/private/wx/common/backing-dc.rkt +++ b/gui-lib/mred/private/wx/common/backing-dc.rkt @@ -124,7 +124,7 @@ (let ([w (box 0)] [h (box 0)]) (get-backing-size w h) - (let ([bm (get-backing-bitmap (lambda (w h) (make-backing-bitmap w h)) (unbox w) (unbox h))]) + (let ([bm (get-backing-bitmap (lambda (w h) (make-backing-bitmap (max 1 w) (max 1 h))) (unbox w) (unbox h))]) (internal-set-bitmap bm #t)) (let ([cr (super get-cr)]) (set! retained-cr cr)