From be30bf721d4d6782c6fba4feeacd7c471b875157 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 22 Feb 2016 05:04:37 -0700 Subject: [PATCH] Cocoa: avoid backing-dc failure on zero-sized canvas Closes https://github.com/racket/racket#1255 --- gui-lib/mred/private/wx/cocoa/dc.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/gui-lib/mred/private/wx/cocoa/dc.rkt b/gui-lib/mred/private/wx/cocoa/dc.rkt index 9781cf84..e4caf96a 100644 --- a/gui-lib/mred/private/wx/cocoa/dc.rkt +++ b/gui-lib/mred/private/wx/cocoa/dc.rkt @@ -153,9 +153,11 @@ (display-bitmap-resolution 0 void))) (define (make-window-bitmap w h win [trans? #t] [flipped? #f]) - (if win - (make-object layer-bitmap% w h win trans? flipped?) - (make-screen-bitmap w h))) + (let ([w (max 1 w)] + [h (max 1 h)]) + (if win + (make-object layer-bitmap% w h win trans? flipped?) + (make-screen-bitmap w h)))) (define layer-bitmap% (class quartz-bitmap%