use new documentView
authorClaus Gittinger <cg@exept.de>
Tue, 21 May 1996 14:35:19 +0200
changeset 555 c5efe38d2c46
parent 554 0f8303e1fdfd
child 556 1549bab879c7
use new documentView
Launcher.st
--- a/Launcher.st	Mon May 20 10:40:58 1996 +0200
+++ b/Launcher.st	Tue May 21 14:35:19 1996 +0200
@@ -166,22 +166,20 @@
      although that one is not yet finished,
      its better than nothing ...
     "
-    XtHTML notNil ifTrue:[
-	"
-	 temporary kludge;
-	 not all machines can autoload binaries;
-	 however, on my SGI (which can) we want it
-	 to load automatically.
-	"
-	XtHTML isLoaded ifFalse:[
-	    (OperatingSystem getSystemType = 'iris') ifTrue:[
-		ErrorSignal catch:[XtHTML autoload]
-	    ]
-	].
-	XtHTML isLoaded ifTrue:[
-	    XtHTML openFullOnDocumentationFile:aRelativeDocFilePath. 
-	    ^ self
-	].
+    HTMLDocumentView notNil ifTrue:[
+        "
+         temporary kludge;
+         not all machines can autoload binaries;
+         however, on my SGI (which can) we want it
+         to load automatically.
+        "
+        HTMLDocumentView isLoaded ifFalse:[
+            ErrorSignal catch:[HTMLDocumentView autoload]
+        ].
+        HTMLDocumentView isLoaded ifTrue:[
+            HTMLDocumentView openFullOnDocumentationFile:aRelativeDocFilePath. 
+            ^ self
+        ].
     ].
 
     self warn:'Sorry, the ST/X HTML reader is not (yet) 
@@ -193,6 +191,7 @@
 The documentation is found in the ''doc/online'' directory.'.
 
     "Modified: 31.8.1995 / 13:11:08 / claus"
+    "Modified: 21.5.1996 / 14:15:57 / cg"
 !
 
 startClassDocumentation
@@ -2597,5 +2596,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.124 1996-05-18 13:59:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.125 1996-05-21 12:35:19 cg Exp $'
 ! !