From ca0a9700120319f27ef036bef18c2c8bcfb80d3c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 13 Oct 2001 16:19:49 +0000 Subject: [PATCH] . original commit: 1591a0ffe0ac0524ec3f9e50fe23750bb2fa8f9e --- collects/mred/mred.ss | 4 ++-- collects/mred/private/kernel.ss | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss index 1b8c0094..fec10694 100644 --- a/collects/mred/mred.ss +++ b/collects/mred/mred.ss @@ -5488,13 +5488,13 @@ (set-bitmap bm))))) (define post-script-dc% - (class100 wx:post-script-dc% ([i? #t][parent #f]) + (class100 wx:post-script-dc% ([interactive? #t][parent #f][use-paper-bbox? #f]) (sequence (check-top-level-parent/false '(constructor post-script-dc) parent) (as-entry (lambda () (let ([p (and parent (mred->wx parent))]) - (as-exit (lambda () (super-init i? p))))))))) + (as-exit (lambda () (super-init interactive? p use-paper-bbox?))))))))) (define printer-dc% (class100 wx:printer-dc% ([parent #f]) diff --git a/collects/mred/private/kernel.ss b/collects/mred/private/kernel.ss index 40e0c338..86820f78 100644 --- a/collects/mred/private/kernel.ss +++ b/collects/mred/private/kernel.ss @@ -401,7 +401,7 @@ set-bitmap set-pixel get-pixel) - (define-class post-script-dc% dc% ([interactive? #t] [parent #f])) + (define-class post-script-dc% dc% ([interactive? #t] [parent #f] [use-paper-bbox? #f])) (define-class printer-dc% dc% ([parent #f])) (define-class event% object% ([time-stamp 0]) get-time-stamp