cocoa: fix initialization of screen bitmaps

2011-03-10 11:51:17 -06:00 · 2011-03-10 11:51:17 -06:00 · 0ec4c3ae8f
commit 0ec4c3ae8f
parent 7378c2e42f
1 changed files with 3 additions and 2 deletions
--- 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))