Java.st
changeset 641 79545e4f055c
parent 615 2645eb9c9d3b
child 648 33e16bf2722f
--- a/Java.st	Thu Dec 23 17:23:39 1999 +0000
+++ b/Java.st	Thu Dec 23 17:40:41 1999 +0000
@@ -303,7 +303,7 @@
     |tryJDK1_2 tryJDK1_2beta tryJDK1_17 tryJDK1_16 tryJDK1_15 tryJDK1_13 tryJDK1_11 tryJDK1_03 
      tryJDK1_02 directoriesToSearch possibleJavaDirs
      jHome jClasses jSources mozillaHome tryNetscape4_0
-     tryMS tryBorland tryVA tryJRE1_1 fn|
+     tryMS tryBorland tryVA tryJRE1_1 fn d|
 
     "/ those dirs are tried to search for a java system ...
     possibleJavaDirs := #(
@@ -535,6 +535,10 @@
     directoriesToSearch := OrderedCollection new.
     directoriesToSearch add:'/usr/local/java/moz3_0/lib_unix'.
     directoriesToSearch add:'..\..\..\cg\java\java\ns30_unix.zip'.
+    d := Smalltalk projectDirectoryForClass:self.
+    d notNil ifTrue:[
+        directoriesToSearch add:((d asFilename construct:'java') constructString:'ns30_unix.zip').
+    ].
 
     tryVA == true ifTrue:[        
         directoriesToSearch add:'C:\IBMVJava\EAB\bdk'.
@@ -1429,6 +1433,6 @@
 !Java class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/Java.st,v 1.111 1999/10/29 14:48:43 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/Java.st,v 1.112 1999/12/23 17:40:41 cg Exp $'
 ! !
 Java initialize!