From 4ffe777f3a9631acc64e18ca700023374a62703d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 7 Jan 2011 14:15:35 -0700 Subject: [PATCH] cocoa: erasing a non-transparent canvas uses white original commit: 5f4ee4f9f83e2a2db9a9c7cc5f38318f4228e018 --- collects/mred/private/wx/cocoa/dc.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/mred/private/wx/cocoa/dc.rkt b/collects/mred/private/wx/cocoa/dc.rkt index 0b821447..cb81eb3e 100644 --- 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)