--- a/PostscriptPrinterStream.st Fri Sep 20 09:34:11 1996 +0200
+++ b/PostscriptPrinterStream.st Tue Oct 01 20:44:35 1996 +0200
@@ -332,7 +332,7 @@
LeftX := (UnitConverter convert:LeftMargin from:#inch to:#twip) rounded.
PhysicalPageHeight := (UnitConverter convert:1 from:(PageFormat , 'H') to:#twip) rounded.
- Landscape ifTrue:[
+ Landscape == true ifTrue:[
PageHeight := (UnitConverter convert:1 from:(PageFormat , 'lH') to:#twip) rounded.
] ifFalse:[
PageHeight := (UnitConverter convert:1 from:(PageFormat , 'H') to:#twip) rounded.
@@ -1092,6 +1092,6 @@
!PostscriptPrinterStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.47 1996-09-07 14:28:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/PostscriptPrinterStream.st,v 1.48 1996-10-01 18:44:35 cg Exp $'
! !
PostscriptPrinterStream initialize!