From 48e7bd4be296b293af7f1be486c3b55831587012 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 original commit: c817beb86b31298be90b74833d2646ac21fe8bdc --- collects/framework/private/frame.ss | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index 6f82c20f..5e789f1b 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)