--- a/Launcher.st	Thu Aug 31 07:01:58 1995 +0200
+++ b/Launcher.st	Thu Aug 31 15:26:53 1995 +0200
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.35 1995-08-30 18:36:12 claus Exp $
+$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.36 1995-08-31 13:26:53 claus Exp $
 "
 !
 
@@ -1320,7 +1320,7 @@
     box showAtCenter
 !
 
-startDocumentationTool
+showDocumentation:aRelativeDocFilePath
     "
      although that one is not yet finished,
      its better than nothing ...
@@ -1338,7 +1338,7 @@
 	    ]
 	].
 	XtHTML isLoaded ifTrue:[
-	    XtHTML openFull.
+	    XtHTML openFullOnDocumentationFile:aRelativeDocFilePath. 
 	    ^ self
 	].
     ].
@@ -1350,6 +1350,14 @@
 other HTML viewer to see the documentation.
 
 The documentation is found in the ''doc/online'' directory.'.
+
+    "Modified: 31.8.1995 / 13:11:08 / claus"
+!
+
+startDocumentationTool
+    self showDocumentation:'TOP.html'
+
+    "Modified: 31.8.1995 / 13:11:28 / claus"
 ! !
 
 !NewLauncher methodsFor:'actions - tools'!