fix initial transformation matrix of {post-script,pdf}-dc%

2011-01-14 20:30:07 -07:00 · 2011-01-14 20:30:07 -07:00 · aa31641733
commit aa31641733
parent 4e47aff061
1 changed files with 3 additions and 1 deletions
--- a/collects/racket/draw/private/post-script-dc.rkt
+++ b/collects/racket/draw/private/post-script-dc.rkt
@ -180,7 +180,9 @@
    (define is-eps? (and as-eps #t))
    (define/public (multiple-pages-ok?) (not is-eps?))

-    (super-new)))
+    (super-new)
+    
+    (when c (init-cr-matrix c))))

 (define post-script-dc% (class (doc+page-check-mixin (dc-mixin (make-dc-backend #f))
                                                     'post-script-dc%)