--- a/Launcher.st	Thu Feb 01 20:51:34 1996 +0100
+++ b/Launcher.st	Thu Feb 01 21:02:43 1996 +0100
@@ -921,8 +921,7 @@
     box := DialogBox new.
     box label:(resources string:'Memory manager settings').
 
-    box addTextLabel:'Warning - invalid settings may make the system unusable
-or lead to poor performance.
+    box addTextLabel:'Warning - invalid settings may result in poor performance.
 
 You have been warned.'.
     box addHorizontalLine.
@@ -947,7 +946,7 @@
     fields add:component.
     component width:0.3; left:0.7; acceptOnLeave:false.
     component converter:(PrintConverter new initForNumber).
-    box addTextLabel:'(start IGC whenever this many has been allocated)'.
+    box addTextLabel:'(start IGC whenever this amount has been allocated)'.
 
     box addHorizontalLine.
 
@@ -971,7 +970,7 @@
     fields add:component.
     component width:0.3; left:0.7; acceptOnLeave:false.
     component converter:(PrintConverter new initForNumber).
-    box addTextLabel:'(try always to get this amount of free space)'.
+    box addTextLabel:'(try to keep this amount for peak requests)'.
 
     box addHorizontalLine.
 
@@ -983,7 +982,7 @@
     fields add:component.
     component width:0.3; left:0.7; acceptOnLeave:false.
     component converter:(PrintConverter new initForNumber).
-    box addTextLabel:'(if running out, increase oldSpace in chunks of this size)'.
+    box addTextLabel:'(increase oldSpace in chunks of this size)'.
 
     box addHorizontalLine.
 
@@ -1018,7 +1017,7 @@
     ].
     box destroy
 
-    "Modified: 26.1.1996 / 23:01:18 / cg"
+    "Modified: 1.2.1996 / 11:43:28 / cg"
 !
 
 messageSettings
@@ -1162,8 +1161,8 @@
 
     resourceDir := Smalltalk getSystemFileName:'resources'.
     resourceDir isNil ifTrue:[
-        self warn:'no styles found (missing ''resources'' directory)'.
-        ^ self
+	self warn:'no styles found (missing ''resources'' directory)'.
+	^ self
     ].
     dir := FileDirectory directoryNamed:resourceDir.
 
@@ -1192,13 +1191,13 @@
 "/
     infoForwarder := Plug new.
     infoForwarder respondTo:#showInfo
-                  with:[
-                        |nm sheet comment|
-                        nm := list selection.
-                        sheet := ViewStyle fromFile:(nm , '.style').
-                        comment := sheet at:#comment ifAbsent:''.
-                        infoLabel label:comment withCRs asStringCollection
-                       ].
+		  with:[
+			|nm sheet comment|
+			nm := list selection.
+			sheet := ViewStyle fromFile:(nm , '.style').
+			comment := sheet at:#comment ifAbsent:''.
+			infoLabel label:comment withCRs asStringCollection
+		       ].
 
     list := SelectionInList with:listOfStyles.
     list onChangeSend:#showInfo to:infoForwarder.
@@ -1223,14 +1222,14 @@
     box showAtPointer.
 
     box accepted ifTrue:[
-        newStyle := list selection.
-        newStyle notNil ifTrue:[
-            self withWaitCursorDo:[
-                Transcript showCr:'change style to ' , newStyle , ' ...'.
-                View defaultStyle:newStyle asSymbol.
-            ].
-            self reopenLauncher.
-        ]
+	newStyle := list selection.
+	newStyle notNil ifTrue:[
+	    self withWaitCursorDo:[
+		Transcript showCr:'change style to ' , newStyle , ' ...'.
+		View defaultStyle:newStyle asSymbol.
+	    ].
+	    self reopenLauncher.
+	]
     ].
     box destroy
 ! !
@@ -2108,5 +2107,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.75 1996-01-30 22:56:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.76 1996-02-01 20:02:43 cg Exp $'
 ! !