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

cocoa: fix initialization of screen bitmaps

Browse Source
This commit is contained in:
Matthew Flatt 2011-03-10 11:51:17 -06:00
parent 7378c2e42f
commit 0ec4c3ae8f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mred/private/wx/cocoa/bitmap.rkt
View File

@ -24,9 +24,10 @@
w w
h)]) h)])
;; initialize bitmap to empty - needed? ;; initialize bitmap to empty - needed?
#;
(let ([cr (cairo_create s)]) (let ([cr (cairo_create s)])
(cairo_set_operator cr CAIRO_OPERATOR_CLEAR) (cairo_set_operator cr (if with-alpha?
CAIRO_OPERATOR_CLEAR
CAIRO_OPERATOR_SOURCE))
(cairo_set_source_rgba cr 1.0 1.0 1.0 1.0) (cairo_set_source_rgba cr 1.0 1.0 1.0 1.0)
(cairo_paint cr) (cairo_paint cr)
(cairo_destroy cr)) (cairo_destroy cr))