--- a/Launcher.st	Wed Apr 17 18:50:08 1996 +0200
+++ b/Launcher.st	Wed Apr 17 22:19:06 1996 +0200
@@ -186,6 +186,13 @@
     "Modified: 31.8.1995 / 13:11:08 / claus"
 !
 
+startDocumentationIndex
+    self showDocumentation:'index.html'
+
+    "Modified: 31.8.1995 / 13:11:28 / claus"
+    "Created: 17.4.1996 / 22:08:55 / cg"
+!
+
 startDocumentationTool
     self showDocumentation:'TOP.html'
 
@@ -2091,17 +2098,21 @@
         l := #(
                 'active help \c'
                 'ST/X documentation'
+                'index'
               ).
         s := #(
                 #toggleActiveHelp:
                 #startDocumentationTool
+                #startDocumentationIndex
               )
     ] ifFalse:[
         l := #(
                 'ST/X documentation'
+                'index'
               ).
         s := #(
                 #startDocumentationTool
+                #startDocumentationIndex
               )
     ].
 
@@ -2115,7 +2126,7 @@
         (myMenu menuAt:#help) checkToggleAt:#toggleActiveHelp: put:true
     ].
 
-    "Modified: 26.2.1996 / 23:28:57 / cg"
+    "Modified: 17.4.1996 / 22:09:32 / cg"
 !
 
 setupOtherViewsIn:aTopView
@@ -2458,5 +2469,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.105 1996-04-13 11:52:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.106 1996-04-17 20:19:06 cg Exp $'
 ! !