From 617822e20545c78ef40154f105b0b9c611be9eb8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 16 Jan 2007 20:55:13 +0000 Subject: [PATCH] 369.5 svn: r5366 original commit: 87c0d5754e3e1d27de577c9f1c83bbc92a38042e --- collects/mred/edit.ss | 9 +++++++++ collects/mred/private/moredialogs.ss | 2 +- doc/release-notes/mred/HISTORY | 6 ++++++ 3 files changed, 16 insertions(+), 1 deletion(-) diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss index 50f56344..01ad9763 100644 --- a/collects/mred/edit.ss +++ b/collects/mred/edit.ss @@ -68,6 +68,15 @@ (lambda (item event) (send e save-file "" 'text)))) (make-object separator-menu-item% file-menu) + (when (can-get-page-setup-from-user?) + (make-object menu-item% "Page Setup..." file-menu + (lambda (item event) + (let ([s (get-page-setup-from-user #f f)]) + (when s + (send (current-ps-setup) copy-from s)))) + #\P + #f void + (cons 'shift (get-default-shortcut-prefix)))) (make-object menu-item% "Print..." file-menu (lambda (item event) (send e print)) diff --git a/collects/mred/private/moredialogs.ss b/collects/mred/private/moredialogs.ss index c72d3511..96038289 100644 --- a/collects/mred/private/moredialogs.ss +++ b/collects/mred/private/moredialogs.ss @@ -181,7 +181,7 @@ (let ([s (make-object wx:ps-setup%)]) (send s copy-from (or pss-in (wx:current-ps-setup))) (and (parameterize ([wx:current-ps-setup s]) - (wx:show-print-setup parent)) + (wx:show-print-setup (and parent (mred->wx parent)))) s)))])) (define (can-get-page-setup-from-user?) diff --git a/doc/release-notes/mred/HISTORY b/doc/release-notes/mred/HISTORY index 91f7e52c..56518838 100644 --- a/doc/release-notes/mred/HISTORY +++ b/doc/release-notes/mred/HISTORY @@ -1,3 +1,9 @@ +Version 369.5 + +Mac OS X printer-dc% uses scaling specified by the current ps-setup% + +---------------------------------------------------------------------- + Version 360, November 2006 Added get-other-altgr-key-code and get-other-shift-altgr-key-code