*** empty log message ***
authorcg
Fri, 15 Aug 1997 11:24:17 +0000
changeset 227 4af2f4e4538a
parent 226 a48121c92205
child 228 18ed0b234062
*** empty log message ***
loadAll
--- a/loadAll	Fri Aug 15 11:09:10 1997 +0000
+++ b/loadAll	Fri Aug 15 11:24:17 1997 +0000
@@ -71,31 +71,50 @@
 Smalltalk fileIn:'SmalltalkAppletStub.st'.
 
 !
-
+"/ self halt.
 Java flushClasses. 
 !
 
 |javaHome|
 
-javaHome := '/usr/local/java'.
-javaHome asFilename exists ifFalse:[
-    javaHome := '/usr/lib/java'.
-].
-[javaHome size <= 0 
- or:[javaHome asFilename exists
-     and:[(javaHome asFilename construct:'lib/classes') exists]]] whileFalse:[
-    javaHome := Dialog request:'what is the home of your java installation\\(Must contain the subdirs ''lib/classes'' and ''src'')' withCRs
-		       initialAnswer:javaHome.
+"/
+"/ need jdk1.13 & moz in classPath
+"/
+
+javaHome := '/usr/local/java/jdk1.13/java'.
+
+(javaHome asFilename exists 
+and:[(javaHome asFilename construct:'lib/classes') exists]) ifFalse:[
+    javaHome := '/usr/local/java'.
+    (javaHome asFilename exists 
+    and:[(javaHome asFilename construct:'lib/classes') exists]) ifFalse:[
+	javaHome := '/usr/lib/java'.
+	[javaHome size <= 0 
+	 or:[javaHome asFilename exists
+	     and:[(javaHome asFilename construct:'lib/classes') exists]]] whileFalse:[
+	    javaHome := Dialog request:'what is the home of your java installation\\(Must contain the subdirs ''lib/classes'' and ''src'')' withCRs
+			       initialAnswer:javaHome.
+	].
+    ].
 ].
 
 javaHome size > 0 ifTrue:[
     Java javaHome:javaHome.
-    Java classPath:(Array with:(javaHome , '/lib/classes')).
-    Java sourceDirectories:(Array with:(javaHome , '/src')).
+    (javaHome asFilename construct:'lib/classes') exists ifTrue:[
+	Java classPath:(Array with:(javaHome , '/lib/classes')).
+	Java sourceDirectories:(Array with:(javaHome , '/src')).
+    ] ifFalse:[
+	Java classPath:(Array with:(javaHome)).
+	Java sourceDirectories:(Array with:(javaHome)).
+    ].
+
+    Java addToClassPath:'/usr/local/java/moz3_0/lib_unix/classes'.
 
     "/ JavaClassReader loadClass:'java/util/Stack'. 
     JavaClassReader loadClass:'sun.tools.javac.Main'. 
+    JavaClassReader loadClass:'sun.applet.AppletViewer'. 
     JavaClassReader loadClass:'java/rmi/server/RemoteServer'. 
+    JavaClassReader loadClass:'netscape.applet.EmbeddedAppletFrame'. 
     JavaBrowser open
 ]
 !