From 94e767cfa90acaed663d81db5c826047f56a1797 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 8 Oct 2013 16:10:35 -0600 Subject: [PATCH] pict: restore use of loaded mask, if any, by `bitmap` In case a `bitmap%` object with a mask is passed to `bitmap`. --- pkgs/pict-pkgs/pict-lib/texpict/utils.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/pict-pkgs/pict-lib/texpict/utils.rkt b/pkgs/pict-pkgs/pict-lib/texpict/utils.rkt index dd0e48d438..3a71b945a0 100644 --- a/pkgs/pict-pkgs/pict-lib/texpict/utils.rkt +++ b/pkgs/pict-pkgs/pict-lib/texpict/utils.rkt @@ -1018,7 +1018,7 @@ [h (send bm get-height)]) (dc (lambda (dc x y) - (send dc draw-bitmap bm x y 'solid black-color)) + (send dc draw-bitmap bm x y 'solid black-color (send bm get-loaded-mask))) w h)) (frame (inset (colorize (text "bitmap failed") "red") 2)))))