suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pict: restore use of loaded mask, if any, by bitmap

Browse Source 
In case a `bitmap%` object with a mask is passed to `bitmap`.
This commit is contained in:
Matthew Flatt 2013-10-08 16:10:35 -06:00
parent 16552e9a67
commit 94e767cfa9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/pict-pkgs/pict-lib/texpict/utils.rkt
View File

@ -1018,7 +1018,7 @@
[h (send bm get-height)]) [h (send bm get-height)])
(dc (dc
(lambda (dc x y) (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)) w h))
(frame (inset (colorize (text "bitmap failed") "red") 2))))) (frame (inset (colorize (text "bitmap failed") "red") 2)))))