--- a/Launcher.st	Fri Feb 09 21:30:48 1996 +0100
+++ b/Launcher.st	Fri Feb 09 22:54:35 1996 +0100
@@ -1195,21 +1195,29 @@
 
     y := box yPosition.
     component := box addTextLabel:(resources string:'print command:').
-    component width:0.5; adjust:#right; borderWidth:0.
+    component width:0.3; adjust:#right; borderWidth:0.
     box yPosition:y.
-    component := box addInputFieldOn:printCommand tabable:true.
-    component width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
-
+    component := box addComboBoxOn:printCommand tabable:true.
+"/    component := box addInputFieldOn:printCommand tabable:true.
+    component width:0.7; left:0.3; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
+    "/ some common print commands ...
+    component list:#('lpr' 
+                     'lpr -P<your-printer>' 
+                     'cat | rsh <printHost> lpr -h' 
+                     'cat >xxx ; ghostview xxx'
+                    ).
     box addVerticalSpace.
 
     box addAbortButton; addOkButton.
     box showAtPointer.
 
     box accepted ifTrue:[
-	Printer printCommand:printCommand value.
-	Printer := possiblePrinters at:(printerType selectionIndex).
+        Printer printCommand:printCommand value.
+        Printer := possiblePrinters at:(printerType selectionIndex).
     ].
     box destroy
+
+    "Modified: 9.2.1996 / 19:52:28 / cg"
 !
 
 viewStyleSetting 
@@ -2170,5 +2178,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.78 1996-02-09 17:43:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.79 1996-02-09 21:54:35 cg Exp $'
 ! !