--- a/Launcher.st	Mon Jun 03 19:18:57 1996 +0200
+++ b/Launcher.st	Mon Jun 03 19:26:34 1996 +0200
@@ -1522,13 +1522,13 @@
     printerType selectionIndex:(possiblePrinters identityIndexOf:Printer).
     printCommand := Printer printCommand asValue.
 
-    pageFormat := SelectionInList new list:(PrinterStream defaultPageFormats).
-    pageFormat selection:(PrinterStream pageFormat).
-    landscape := PrinterStream landscape asValue.
-
-    topInset := PrinterStream topInset asValue.
-    leftInset := PrinterStream leftInset asValue.
-    bottomInset := PrinterStream bottomInset asValue.
+    pageFormat := SelectionInList new list:(Printer defaultPageFormats).
+    pageFormat selection:(Printer pageFormat).
+    landscape := Printer landscape asValue.
+
+    topInset := Printer topInset asValue.
+    leftInset := Printer leftInset asValue.
+    bottomInset := Printer bottomInset asValue.
 
     box := DialogBox new.
     box label:(resources string:'Printer settings').
@@ -1642,7 +1642,7 @@
                        printerType selectionIndex ~~ 0 ifTrue:[
                            p := possiblePrinters at:(printerType selectionIndex).
                            hasPageSize := p supportsPageSizes. 
-                           hasMargins := p supportsPageSizes. 
+                           hasMargins := p supportsMargins. 
                        ] ifFalse:[
                            hasPageSize := false.
                            hasMargins := false.
@@ -1723,7 +1723,7 @@
     ].
     box destroy
 
-    "Modified: 3.6.1996 / 19:17:06 / cg"
+    "Modified: 3.6.1996 / 19:25:41 / cg"
 !
 
 viewStyleSetting 
@@ -2925,5 +2925,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.144 1996-06-03 17:18:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.145 1996-06-03 17:26:34 cg Exp $'
 ! !