fix get-default-print-size n landscape mode

svn: r16942 original commit: fbf7f79d8c16046f10a0fcf612ef376d37d1d46d
2009-11-21 16:17:08 +00:00 · 2009-11-21 16:17:08 +00:00 · cb51783238
commit cb51783238
parent 4d5dc77595
1 changed files with 3 additions and 3 deletions
--- a/collects/mred/private/wxme/editor.ss
+++ b/collects/mred/private/wxme/editor.ss
@ -97,9 +97,9 @@
  (set-box! w PAGE-WIDTH)
  (set-box! h PAGE-HEIGHT)
  (when (eq? (get-printer-orientation) 'landscape)
-    (let ([tmp h])
-      (set! h w)
-      (set! w tmp))))
+    (let ([tmp (unbox h)])
+      (set-box! h (unbox w))
+      (set-box! w tmp))))

 ;; ----------------------------------------