From 4fc8797df29a4c162c3294c780427b228959e3d8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 18 Jan 2011 18:42:39 -0700 Subject: [PATCH] cocoa: fix printing bounds --- collects/mred/private/wx/cocoa/printer-dc.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/mred/private/wx/cocoa/printer-dc.rkt b/collects/mred/private/wx/cocoa/printer-dc.rkt index 580ad92e1d..84f2eab309 100644 --- a/collects/mred/private/wx/cocoa/printer-dc.rkt +++ b/collects/mred/private/wx/cocoa/printer-dc.rkt @@ -174,9 +174,10 @@ (+ (NSPoint-y (NSRect-origin b)) (NSSize-height (NSRect-size b)))) page-scaling)) - (let* ([surface (cairo_quartz_surface_create_for_cg_context cg - (inexact->exact (ceiling page-width)) - (inexact->exact (ceiling page-height)))] + (let* ([surface (cairo_quartz_surface_create_for_cg_context + cg + (inexact->exact (ceiling (/ page-width page-scaling))) + (inexact->exact (ceiling (/ page-height page-scaling))))] [cr (cairo_create surface)]) (cairo_surface_destroy surface) (let ([dc (make-object (dc-mixin