From a57fb5bf9f57ca464bf0efc63b5ccb2fa6917f0e Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 13 Jan 2011 08:02:09 -0700 Subject: [PATCH] fix `erase' on a monochrome bitmap Closes PR 11615 --- collects/racket/draw/private/bitmap-dc.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/racket/draw/private/bitmap-dc.rkt b/collects/racket/draw/private/bitmap-dc.rkt index f7098100f5..8a7362b4f1 100644 --- a/collects/racket/draw/private/bitmap-dc.rkt +++ b/collects/racket/draw/private/bitmap-dc.rkt @@ -84,7 +84,7 @@ (define/override (collapse-bitmap-b&w?) b&w?) (define/override (get-clear-operator) - (if (send bm has-alpha-channel?) + (if (or b&w? (send bm has-alpha-channel?)) CAIRO_OPERATOR_CLEAR CAIRO_OPERATOR_OVER))