--- a/Launcher.st	Thu Jun 13 17:26:28 1996 +0200
+++ b/Launcher.st	Fri Jun 14 12:56:35 1996 +0200
@@ -986,8 +986,10 @@
 
     box addCheckBox:(resources string:'color monitor') on:isColorMonitor.
 
-    box addVerticalSpace.
-    box addCheckBox:(resources string:'use fix color palette (6x6x4)') on:useFixPalette.
+    Screen current visualType == #Palette ifTrue:[
+        box addVerticalSpace.
+        component := box addCheckBox:(resources string:'use fix color palette (6x6x4)') on:useFixPalette.
+    ].
 
     box addVerticalSpace.
     box addCheckBox:(resources string:'allow colored/grayscale icons') on:deepIcons.
@@ -998,10 +1000,12 @@
     box open.
 
     box accepted ifTrue:[
-        useFixPalette value ifTrue:[
-            Color getColors6x6x4
-        ] ifFalse:[
-            Color releaseFixColors
+        Screen current visualType == #Palette ifTrue:[
+            useFixPalette value ifTrue:[
+                Color getColors6x6x4
+            ] ifFalse:[
+                Color releaseFixColors
+            ]
         ].
         Screen current hasColors:isColorMonitor value.
         Screen current widthInMillimeter:sizeX value.
@@ -2951,5 +2955,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.152 1996-06-12 12:11:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.153 1996-06-14 10:56:35 cg Exp $'
 ! !