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

win32: tell Cairo when drawing to a printing context

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-13 19:28:36 -07:00
parent 4f292a95c5
commit 559f756374
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wx/win32/printer-dc.rkt
View File

@ -190,7 +190,7 @@
[page-no (in-naturals 1)]) [page-no (in-naturals 1)])
(when (<= from-page page-no to-page) (when (<= from-page page-no to-page)
(StartPage hdc) (StartPage hdc)
(let* ([s (cairo_win32_surface_create hdc)] (let* ([s (cairo_win32_printing_surface_create hdc)]
[cr (cairo_create s)]) [cr (cairo_create s)])
(set-point-scale hdc cr) (set-point-scale hdc cr)
(proc (proc

4
collects/racket/draw/unsafe/cairo.rkt
View File

@ -74,6 +74,10 @@
(_fun _pointer -> _cairo_surface_t) (_fun _pointer -> _cairo_surface_t)
#:make-fail make-not-available #:make-fail make-not-available
#:wrap (allocator cairo_surface_destroy)) #:wrap (allocator cairo_surface_destroy))
(define-cairo cairo_win32_printing_surface_create
(_fun _pointer -> _cairo_surface_t)
#:make-fail make-not-available
#:wrap (allocator cairo_surface_destroy))
(define-cairo cairo_surface_create_similar (define-cairo cairo_surface_create_similar
(_fun _cairo_surface_t _int _int _int -> _cairo_surface_t)) (_fun _cairo_surface_t _int _int _int -> _cairo_surface_t))