cocoa: erasing a non-transparent canvas uses white

original commit: 5f4ee4f9f83e2a2db9a9c7cc5f38318f4228e018
2011-01-07 14:15:35 -07:00 · 2011-01-07 14:15:35 -07:00 · 4ffe777f3a
commit 4ffe777f3a
parent e7ecd69f95
1 changed files with 3 additions and 1 deletions
--- a/collects/mred/private/wx/cocoa/dc.rkt
+++ b/collects/mred/private/wx/cocoa/dc.rkt
@ -48,7 +48,9 @@
                   g)))))

    ;; Use a quartz bitmap so that text looks good:
-    (define/override (make-backing-bitmap w h) (make-object quartz-bitmap% w h))
+    (define trans? transparent?)
+    (define/override (make-backing-bitmap w h) 
+      (make-object quartz-bitmap% w h trans?))
    (define/override (can-combine-text? sz) #t)

    (define/override (get-backing-size xb yb)