--- a/Launcher.st	Fri Aug 30 18:52:08 1996 +0200
+++ b/Launcher.st	Thu Sep 05 15:37:06 1996 +0200
@@ -1730,7 +1730,7 @@
      formatLabel formatComponent landscapeLabel landscapeComponent
      topInset leftInset bottomInset unitList unit
      topInsetLabel topInsetComponent leftInsetLabel leftInsetComponent
-     bottomInsetLabel bottomInsetComponent
+     bottomInsetLabel bottomInsetComponent supportsColor supportsColorComponent
      check y y1 commandListPop component oldIndent commandList row|
 
     possiblePrinters := PrinterStream withAllSubclasses asArray.
@@ -1747,6 +1747,7 @@
     topInset := Printer topInset asValue.
     leftInset := Printer leftInset asValue.
     bottomInset := Printer bottomInset asValue.
+    supportsColor := Printer supportsColor asValue.
 
     box := DialogBox new.
     box label:(resources string:'Printer settings').
@@ -1861,6 +1862,10 @@
     bottomInsetComponent converter:(PrintConverter new initForNumber).
     bottomInsetComponent model:bottomInset.
 
+    box addHorizontalLine.
+    supportsColorComponent := box addCheckBox:(resources string:'Color printer') on:supportsColor.
+    box addVerticalSpace.
+
     updater := [ |p fg hasPageSize hasMargins|
 
                        printerType selectionIndex ~~ 0 ifTrue:[
@@ -1916,6 +1921,13 @@
                            ].
 
                            printCommand value:(p printCommand).
+                       ].
+                       p supportsPostscript ifFalse:[
+                           supportsColorComponent disable.
+                           supportsColor value:false
+                       ] ifTrue:[
+                           supportsColorComponent enable.
+                           supportsColor value:(Printer supportsColor).
                        ]
                      ].
     unitList onChangeSend:#value to:updater.
@@ -1945,6 +1957,9 @@
             Printer leftInset:(UnitConverter convert:leftInset value from:unit to:#inch).
             Printer bottomInset:(UnitConverter convert:bottomInset value from:unit to:#inch).
         ].
+        Printer supportsPostscript ifTrue:[
+            Printer supportsColor:supportsColor value.
+        ].
     ].
     box destroy
 
@@ -3349,5 +3364,5 @@
 !NewLauncher  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.181 1996-08-29 23:52:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.182 1996-09-05 13:37:06 ca Exp $'
 ! !