--- a/Launcher.st	Thu May 18 17:52:52 1995 +0200
+++ b/Launcher.st	Fri May 19 01:01:34 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.12 1995-05-17 12:50:26 claus Exp $
+$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.13 1995-05-18 23:01:34 claus Exp $
 "
 ! !
 
@@ -71,11 +71,13 @@
 	Display hasColors ifTrue:[
 	    green := (Color red:0 green:80 blue:20) darkened.
 	    dark := Color grey:10.
+	    image photometric:#palette.
 	] ifFalse:[
 	    dark := Color black.
 	    green := Color white.
+	    image photometric:#blackIs0.
 	].
-	image colorMap:(Array with:dark with:green); photometric:#palette.
+	image colorMap:(Array with:dark with:green).
 	Display depth > 2 ifTrue:[
 	    image := (Image implementorForDepth:Display depth) fromImage:image.
 	]
@@ -884,18 +886,21 @@
 !
 
 miscSettings
-    |box logDoits compileLazy shadows|
+    |box logDoits compileLazy shadows updChanges|
 
     logDoits := Smalltalk logDoits asValue.
     compileLazy := Autoload compileLazy asValue.
     shadows := PopUpView shadows asValue.
+    updChanges := Class updatingChanges asValue.
 
     box := DialogBox new.
     box label:'Other settings'.
     box extent:200@300.
 
+    box addCheckBox:'log compiles in changes file' on:updChanges.
     box addCheckBox:'log doIts in changes file' on:logDoits.
     box addHorizontalLine.
+
     box addCheckBox:'lazy compilation when autoloading' on:compileLazy.
 
     box addHorizontalLine.
@@ -908,6 +913,7 @@
 	Smalltalk logDoits:logDoits value.
 	Autoload compileLazy:compileLazy value.
 	PopUpView shadows:shadows value.
+	Class updateChanges:updChanges value.
     ]
 ! !