From 0ec4c3ae8feb31c7ad25fa0fdcb975088e5c0bbf Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 10 Mar 2011 11:51:17 -0600 Subject: [PATCH] cocoa: fix initialization of screen bitmaps --- collects/mred/private/wx/cocoa/bitmap.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wx/cocoa/bitmap.rkt b/collects/mred/private/wx/cocoa/bitmap.rkt index 2cafb775d4..431eb5dc3f 100644 --- a/collects/mred/private/wx/cocoa/bitmap.rkt +++ b/collects/mred/private/wx/cocoa/bitmap.rkt @@ -24,9 +24,10 @@ w h)]) ;; initialize bitmap to empty - needed? - #; (let ([cr (cairo_create s)]) - (cairo_set_operator cr CAIRO_OPERATOR_CLEAR) + (cairo_set_operator cr (if with-alpha? + CAIRO_OPERATOR_CLEAR + CAIRO_OPERATOR_SOURCE)) (cairo_set_source_rgba cr 1.0 1.0 1.0 1.0) (cairo_paint cr) (cairo_destroy cr))