From 71c995e57e036fe30424756b2ebc92c7f38eda0b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 13 Sep 1998 16:01:30 +0000 Subject: [PATCH] . original commit: a6ad0a81b0a7af3b6d722eb4633889f6763ee118 --- src/mred/wrap/mred.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss index ee0631ac..c26f242c 100644 --- a/src/mred/wrap/mred.ss +++ b/src/mred/wrap/mred.ss @@ -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]))