--- a/Launcher.st	Fri Sep 06 11:09:05 1996 +0200
+++ b/Launcher.st	Sat Sep 07 13:34:33 1996 +0200
@@ -1728,8 +1728,9 @@
      possiblePrinters possibleTypes printerType printCommand 
      possiblePageFormats pageFormat landscape format updater
      formatLabel formatComponent landscapeLabel landscapeComponent
-     topMargin leftMargin bottomMargin unitList unit
+     topMargin leftMargin rightMargin bottomMargin unitList unit
      topMarginLabel topMarginComponent leftMarginLabel leftMarginComponent
+     rightMarginLabel rightMarginComponent
      bottomMarginLabel bottomMarginComponent supportsColor supportsColorComponent
      check y y1 commandListPop component oldIndent commandList row|
 
@@ -1746,6 +1747,7 @@
 
     topMargin := Printer topMargin asValue.
     leftMargin := Printer leftMargin asValue.
+    rightMargin := Printer rightMargin asValue.
     bottomMargin := Printer bottomMargin asValue.
     supportsColor := Printer supportsColor asValue.
 
@@ -1852,6 +1854,16 @@
     leftMarginComponent converter:(PrintConverter new initForNumber).
     leftMarginComponent model:leftMargin.
 
+    rightMarginComponent := box 
+        addLabelledInputField:(resources string:'right margin:')
+        adjust:#right
+        on:nil "/ rightMargin 
+        tabable:true
+        from:0.0 to:0.5
+        separateAtX:0.6.
+    rightMarginComponent converter:(PrintConverter new initForNumber).
+    rightMarginComponent model:rightMargin.
+
     bottomMarginComponent := box 
         addLabelledInputField:(resources string:'bottom margin:')
         adjust:#right
@@ -1901,14 +1913,17 @@
 
                           topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
                           leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
+                          rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
                           bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
 
                           topMarginComponent enable.
                           leftMarginComponent enable.
+                          rightMarginComponent enable.
                           bottomMarginComponent enable.
                        ] ifFalse:[ 
                           topMarginComponent disable.
                           leftMarginComponent disable.
+                          rightMarginComponent disable.
                           bottomMarginComponent disable.
                        ].
                        formatLabel foregroundColor:fg.
@@ -1955,6 +1970,7 @@
             ].
             Printer topMargin:(UnitConverter convert:topMargin value from:unit to:#inch).
             Printer leftMargin:(UnitConverter convert:leftMargin value from:unit to:#inch).
+            Printer rightMargin:(UnitConverter convert:rightMargin value from:unit to:#inch).
             Printer bottomMargin:(UnitConverter convert:bottomMargin value from:unit to:#inch).
         ].
         Printer supportsPostscript ifTrue:[
@@ -3364,5 +3380,5 @@
 !NewLauncher  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.183 1996-09-05 19:57:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.184 1996-09-07 11:34:33 ca Exp $'
 ! !