369.5

svn: r5366

original commit: 87c0d5754e3e1d27de577c9f1c83bbc92a38042e

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))

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?)

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