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

cocoa: fix printing bounds

Browse Source 
original commit: 4fc8797df29a4c162c3294c780427b228959e3d8
This commit is contained in:
Matthew Flatt 2011-01-18 18:42:39 -07:00
parent 6655dc982d
commit 6a4c464126
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))
(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