--- a/Launcher.st	Wed May 03 03:13:28 1995 +0200
+++ b/Launcher.st	Wed May 03 19:18:53 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.7 1995-05-03 01:12:52 claus Exp $
+$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.8 1995-05-03 17:18:53 claus Exp $
 "
 ! !
 
@@ -154,6 +154,7 @@
     icon := self class smallAboutIcon.
     icon notNil ifTrue:[
 	myMenu labels at:1 put:icon.
+	myMenu height:(myMenu height max:(icon height + (View viewSpacing * 2)))
     ].
 
     myMenu selectors:#(
@@ -237,11 +238,13 @@
 					'language'
 					'view style'
 					'compilation'
+					'misc'
 					))
 	   selectors:#(
 					#languageSetting 
 					#viewStyleSetting 
-					#compilerSetting 
+					#compilerSettings 
+					#miscSettings 
 		      )
 	   receiver:self.
 
@@ -690,8 +693,7 @@
     listOfStyles := dir select:[:aFileName | aFileName endsWith:'.style'].
     listOfStyles := listOfStyles collect:[:aFileName | aFileName copyWithoutLast:6].
 
-    box := ListSelectionBox new.
-    box title:(resources string:'STYLE_MSG') withCRs.
+    box := ListSelectionBox title:(resources string:'STYLE_MSG') withCRs.
     box label:(resources string:'Style selection').
     box list:listOfStyles.
     box initialText:View defaultStyle.
@@ -719,8 +721,7 @@
 			 'italian'
 			).
 
-    box := ListSelectionBox new.
-    box title:(resources string:'LANG_MSG') withCRs.
+    box := ListSelectionBox title:(resources string:'LANG_MSG') withCRs.
     box label:(resources string:'Language selection').
     box list:listOfLanguages.
     box initialText:(Language).
@@ -735,7 +736,7 @@
     box showAtPointer
 !
 
-compilerSetting
+compilerSettings
     |box warnSTX allowUnderscore immutableArrays ok|
 
     warnSTX := Compiler warnSTXSpecials asValue.
@@ -760,6 +761,27 @@
 	Compiler allowUnderscoreInIdentifier:allowUnderscore value.
 	Compiler arraysAreImmutable:immutableArrays value.
     ]
+!
+
+miscSettings
+    |box logDoits ok|
+
+    logDoits := Smalltalk logDoits asValue.
+
+    box := DialogBox new.
+    box label:'Other settings'.
+    box extent:200@300.
+
+    box addCheckBox:'log doIts in changes file' on:logDoits.
+
+    box addAbortButton; addOkButton:[ok := true].
+
+    ok := false.
+    box showAtPointer.
+
+    ok ifTrue:[
+	Smalltalk logDoits:logDoits value.
+    ]
 ! !
 
 !NewLauncher methodsFor:'infoview update'!
@@ -837,7 +859,10 @@
 	self warn:'Sorry, no HTML reader seems to be available.
 
 you should get one of Mosaic, netscape, chimera ...
-... or wait till HTML support in ST/X is complete.'.
+... or wait till HTML support in ST/X is complete.
+
+Alternatively, use the FileBrowser on *.doc-files 
+found in the documentation/online directory.'.
     ]
 ! !
 
@@ -1122,7 +1147,7 @@
 
     (buttonPanel subViews includes:aComponent) ifTrue:[
 	"kludge: look for its change selector"
-	sel := aComponent changeSymbol.
+	sel := aComponent changeMessage.
 	sel == #startSystemBrowser ifTrue:[
 	    ^ resources string:'opens a\SystemBrowser'
 	].