PostscriptPrinterStream.st
changeset 447 8986b0c4f589
parent 440 da568c775e8b
child 467 10cca849db9e
--- 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!