--- a/Launcher.st	Fri Jun 07 20:06:03 1996 +0200
+++ b/Launcher.st	Mon Jun 10 20:34:59 1996 +0200
@@ -901,7 +901,7 @@
 
 displaySettings
     |box 
-     sizes sizeNames sizeList sizeX sizeY
+     sizes sizeNames sizeList sizeX sizeY deepIcons
      isColorMonitor useFixPalette idx
      check y component oldIndent commandList|
 
@@ -922,6 +922,7 @@
                    ).
 
     isColorMonitor := Screen current hasColors asValue.
+    deepIcons := Screen current supportsDeepIcons asValue.
     useFixPalette := Color fixColors notNil asValue.
 
     sizeList := SelectionInList with:sizeNames.
@@ -988,6 +989,9 @@
     box addVerticalSpace.
     box addCheckBox:(resources string:'fix color palette (6x6x4)') on:useFixPalette.
 
+    box addVerticalSpace.
+    box addCheckBox:(resources string:'allow colored/grayscale icons') on:deepIcons.
+
     box 
         addHelpButtonFor:'NewLauncher/screenSettings.html';
         addAbortButton; addOkButton.
@@ -1003,6 +1007,8 @@
         Screen current widthInMillimeter:sizeX value.
         Screen current heightInMillimeter:sizeY value.
 
+        Screen current supportsDeepIcons:deepIcons value.
+
         self withWaitCursorDo:[
             Transcript showCR:'reconfiguring view style ...'.
             View defaultStyle:(View defaultStyle).
@@ -1011,7 +1017,7 @@
     ].
     box destroy
 
-    "Modified: 31.5.1996 / 21:00:58 / cg"
+    "Modified: 10.6.1996 / 19:53:10 / cg"
 !
 
 fontSettings
@@ -2927,5 +2933,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.147 1996-06-04 10:26:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.148 1996-06-10 18:34:59 cg Exp $'
 ! !