From c817beb86b31298be90b74833d2646ac21fe8bdc Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 17 Jan 2007 11:07:24 +0000 Subject: [PATCH] added page setup dialog svn: r5379 --- collects/drscheme/private/unit.ss | 3 ++- collects/framework/private/frame.ss | 13 +++++++++++++ 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index 35eb2fc5c1..95fc950c10 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -1526,7 +1526,8 @@ module browser threading seems wrong. (if logging (stop-logging) (start-logging))))) - (make-object separator-menu-item% file-menu))) + (make-object separator-menu-item% file-menu) + (super file-menu:between-save-as-and-print file-menu))) [define/override file-menu:print-string (λ () (string-constant print-definitions))] (define/override (file-menu:between-print-and-close file-menu) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index 6f82c20fd5..5e789f1bdf 100644 --- a/collects/framework/private/frame.ss +++ b/collects/framework/private/frame.ss @@ -1125,6 +1125,19 @@ (preferences:get 'framework:print-output-mode)) #t)) (define/override file-menu:create-print? (λ () #t)) + + (inherit get-top-level-window) + (define/override (file-menu:between-save-as-and-print file-menu) + (when (can-get-page-setup-from-user?) + (new menu-item% + [parent file-menu] + [label (string-constant page-setup-menu-item)] + [help-string (string-constant page-setup-info)] + [callback + (lambda (item event) + (let ([s (get-page-setup-from-user #f (get-top-level-window))]) + (when s + (send (current-ps-setup) copy-from s))))]))) (define/override edit-menu:between-select-all-and-find (λ (edit-menu)