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

cocoa: fix printing bounds

Browse Source
This commit is contained in:
Matthew Flatt 2011-01-18 18:42:39 -07:00
parent 98822cf1f9
commit 4fc8797df2
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/private/wx/cocoa/printer-dc.rkt
View File

@ -174,9 +174,10 @@
(+ (NSPoint-y (NSRect-origin b)) (+ (NSPoint-y (NSRect-origin b))
(NSSize-height (NSRect-size b)))) (NSSize-height (NSRect-size b))))
page-scaling)) page-scaling))
(let* ([surface (cairo_quartz_surface_create_for_cg_context cg (let* ([surface (cairo_quartz_surface_create_for_cg_context
(inexact->exact (ceiling page-width)) cg
(inexact->exact (ceiling page-height)))] (inexact->exact (ceiling (/ page-width page-scaling)))
(inexact->exact (ceiling (/ page-height page-scaling))))]
[cr (cairo_create surface)]) [cr (cairo_create surface)])
(cairo_surface_destroy surface) (cairo_surface_destroy surface)
(let ([dc (make-object (dc-mixin (let ([dc (make-object (dc-mixin