From 559f7563749e96842c1e725b346a6e5a8a85d2cc Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 13 Jan 2011 19:28:36 -0700 Subject: [PATCH] win32: tell Cairo when drawing to a printing context --- collects/mred/private/wx/win32/printer-dc.rkt | 2 +- collects/racket/draw/unsafe/cairo.rkt | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/collects/mred/private/wx/win32/printer-dc.rkt b/collects/mred/private/wx/win32/printer-dc.rkt index 18dda0f9cd..23c504fe95 100644 --- a/collects/mred/private/wx/win32/printer-dc.rkt +++ b/collects/mred/private/wx/win32/printer-dc.rkt @@ -190,7 +190,7 @@ [page-no (in-naturals 1)]) (when (<= from-page page-no to-page) (StartPage hdc) - (let* ([s (cairo_win32_surface_create hdc)] + (let* ([s (cairo_win32_printing_surface_create hdc)] [cr (cairo_create s)]) (set-point-scale hdc cr) (proc diff --git a/collects/racket/draw/unsafe/cairo.rkt b/collects/racket/draw/unsafe/cairo.rkt index 6682f4835b..8522e8a756 100644 --- a/collects/racket/draw/unsafe/cairo.rkt +++ b/collects/racket/draw/unsafe/cairo.rkt @@ -74,6 +74,10 @@ (_fun _pointer -> _cairo_surface_t) #:make-fail make-not-available #: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 (_fun _cairo_surface_t _int _int _int -> _cairo_surface_t))