loadAll
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 21 May 2013 00:17:00 +0100
branchperformance-optimizations
changeset 2603 000dff7f0e7b
parent 2380 9195eccdcbd9
permissions -rw-r--r--
Optimization of JavaClass>>includesBehavior: Do not build a list of all interfaces. Instead. enaumerate them and return true onf first match.

"/
"/ base system
"/
Smalltalk fileIn:'loadClasses'.
!

Java initialize.
JavaVM initialize.
JavaVM initializeVM.
!

|p|

(Java classForName:'netscape.applet.MozillaAppletContext') isNil ifTrue:[
    (p := Smalltalk getResourceFileName:'java/ns30_unix.zip' forPackage:'stx:libjava') notNil
    ifTrue:[
	Java addToClassPath:p.
    ] ifFalse:[
	'../../libjava/java/java/ns30_unix.zip' asFilename exists ifTrue:[
	    Java addToClassPath:'../../../cg/java/java/ns30_unix.zip'.
	] ifFalse:[
	    'C:\Programme\eXept\SmalltalkX\packages\stx\libjava\java\ns30_unix.zip' asFilename exists ifTrue:[
		Java addToClassPath:'C:\Programme\eXept\SmalltalkX\packages\stx\libjava\java\ns30_unix.zip'.
	     ]
	]
    ]
].
!