suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix get-default-print-size n landscape mode

Browse Source 
svn: r16942
This commit is contained in:
Matthew Flatt 2009-11-21 16:17:08 +00:00
parent 7b05f75878
commit fbf7f79d8c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/mred/private/wxme/editor.ss
View File

@ -97,9 +97,9 @@
(set-box! w PAGE-WIDTH) (set-box! w PAGE-WIDTH)
(set-box! h PAGE-HEIGHT) (set-box! h PAGE-HEIGHT)
(when (eq? (get-printer-orientation) 'landscape) (when (eq? (get-printer-orientation) 'landscape)
(let ([tmp h]) (let ([tmp (unbox h)])
(set! h w) (set-box! h (unbox w))
(set! w tmp)))) (set-box! w tmp))))
;; ---------------------------------------- ;; ----------------------------------------