win32: fix printing bug related to clipping

2011-01-27 12:07:03 -07:00 · 2011-01-27 12:07:03 -07:00 · d34deeba91
commit d34deeba91
parent efb66b0cc4
1 changed files with 1 additions and 1 deletions
--- a/collects/mred/private/wx/win32/printer-dc.rkt
+++ b/collects/mred/private/wx/win32/printer-dc.rkt
@ -237,7 +237,7 @@
                       (class (dc-mixin default-dc-backend%)
                         (super-new)
                         (define/override (init-cr-matrix cr)
-                           (set-point-scale hdc cr))
+                           (set-point-scale hdc cr margin-left margin-top))
                         (define/override (get-cr) cr))))
                     (cairo_destroy cr)
                     (cairo_surface_destroy s))