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

fix save-file and get-argb-pixels for screen bitmaps

Browse Source 
original commit: 674d2e524858398f715b391d565153ced0443e45
This commit is contained in:
Matthew Flatt 2010-10-18 17:28:29 -07:00
parent 01a656c32f
commit 4e249b61a8
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
collects/mred/private/wx/cocoa/dc.rkt
View File

@ -26,9 +26,17 @@
(super-make-object (make-alternate-bitmap-kind w h)) (super-make-object (make-alternate-bitmap-kind w h))
(define s (define s
(cairo_quartz_surface_create CAIRO_FORMAT_ARGB32 (let ([s (cairo_quartz_surface_create CAIRO_FORMAT_ARGB32
w w
h)) h)])
;; initialize bitmap to empty - needed?
#;
(let ([cr (cairo_create s)])
(cairo_set_operator cr CAIRO_OPERATOR_CLEAR)
(cairo_set_source_rgba cr 1.0 1.0 1.0 1.0)
(cairo_paint cr)
(cairo_destroy cr))
s))
(define/override (ok?) #t) (define/override (ok?) #t)
(define/override (is-color?) #t) (define/override (is-color?) #t)

3
collects/scribblings/gui/blurbs.rkt
View File

@ -4,7 +4,8 @@
scribble/manual scribble/manual
scribble/scheme scribble/scheme
scribble/decode scribble/decode
(for-label scheme/gui/base) (for-label scheme/gui/base
scheme/base)
(for-syntax scheme/base)) (for-syntax scheme/base))
(provide (except-out (all-defined-out) p define-inline)) (provide (except-out (all-defined-out) p define-inline))