fix get-default-print-size n landscape mode

svn: r16942
2009-11-21 16:17:08 +00:00 · 2009-11-21 16:17:08 +00:00 · fbf7f79d8c
commit fbf7f79d8c
parent 7b05f75878
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))))

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