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

.

Browse Source 
original commit: a6ad0a81b0a7af3b6d722eb4633889f6763ee118
This commit is contained in:
Matthew Flatt 1998-09-13 16:01:30 +00:00
parent d2f2856dc3
commit 71c995e57e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mred/wrap/mred.ss
View File

@ -3230,7 +3230,7 @@
(define-values (xsb ysb xtb ytb) (values (box 0) (box 0) (box 0) (box 0)))
(send paper set-selection (or (find-pos papers (send pss get-paper-name) equal?) 0))
(send orientation set-selection (if (eq? (send pss get-orientation) 'vertical) 1 0))
(send orientation set-selection (if (eq? (send pss get-orientation) 'landscape) 1 0))
(when unix?
(send destination set-selection (case (send pss get-mode)
[(printer) 0] [(preview) 1] [(file) 2]))