Smalltalk fileIn:'Java.st'.
Smalltalk fileIn:'JavaVM.st'.

Smalltalk fileIn:'JavaConstantPool.st'.
Smalltalk fileIn:'JavaSlotIndexCache.st'.

Smalltalk fileIn:'JavaObject.st'.
Smalltalk fileIn:'JavaClass.st'.
Smalltalk fileIn:'JavaMethod.st'.
Smalltalk fileIn:'JavaMethodWithBreakpoint.st'.
"/ Smalltalk fileIn:'JavaString.st'.
Smalltalk fileIn:'JavaContext.st'.
Smalltalk fileIn:'JavaProcess.st'.

Smalltalk fileIn:'JavaBrowser.st'.
Smalltalk fileIn:'JavaClassReader.st'.
Smalltalk fileIn:'JavaDecompiler.st'.
"/ Smalltalk fileIn:'JavaInterpreter.st'.
Smalltalk fileIn:'JavaExceptionTableEntry.st'.
Smalltalk fileIn:'JavaLocalVariableTable.st'.
Smalltalk fileIn:'JavaLocalVariableTableEntry.st'.

Smalltalk fileIn:'JavaRef.st'.
Smalltalk fileIn:'JavaClassRef.st'.
Smalltalk fileIn:'JavaField.st'.
Smalltalk fileIn:'JavaFieldref.st'.
Smalltalk fileIn:'JavaMethodref.st'.
Smalltalk fileIn:'JavaInterfaceMethodref.st'.
Smalltalk fileIn:'JavaNameandType.st'.
Smalltalk fileIn:'JavaClassPointerRef.st'.
Smalltalk fileIn:'JavaBuiltInClassPointerRef.st'.

Smalltalk fileIn:'JavaUnresolvedConstant.st'.
Smalltalk fileIn:'JavaUnresolvedRefConstant.st'.
Smalltalk fileIn:'JavaUnresolvedClassConstant.st'.
Smalltalk fileIn:'JavaUnresolvedFieldrefConstant.st'.
Smalltalk fileIn:'JavaUnresolvedMethodrefConstant.st'.
Smalltalk fileIn:'JavaUnresolvedInterfaceMethodrefConstant.st'.
Smalltalk fileIn:'JavaUnresolvedNameandTypeConstant.st'.
Smalltalk fileIn:'JavaUnresolvedStringConstant.st'.
!

Smalltalk fileIn:'JavaParseNode.st'.

Smalltalk fileIn:'JavaAssignmentNode.st'.
Smalltalk fileIn:'JavaBinaryExpressionNode.st'.

Smalltalk fileIn:'JavaPrimaryNode.st'.
Smalltalk fileIn:'JavaConstantNode.st'.
Smalltalk fileIn:'JavaVariableNode.st'.

Smalltalk fileIn:'JavaMessageNode.st'.
Smalltalk fileIn:'JavaNewNode.st'.
Smalltalk fileIn:'JavaReturnNode.st'.
Smalltalk fileIn:'JavaStatementNode.st'.
Smalltalk fileIn:'JavaUnaryExpressionNode.st'.
Smalltalk fileIn:'JavaExpressionNode.st'.
Smalltalk fileIn:'JavaIfNode.st'.
Smalltalk fileIn:'JavaForNode.st'.
Smalltalk fileIn:'JavaGotoNode.st'.
Smalltalk fileIn:'JavaWhileNode.st'.
Smalltalk fileIn:'JavaTryCatchNode.st'.
Smalltalk fileIn:'JavaThrowNode.st'.
Smalltalk fileIn:'JavaConditionalExpressionNode.st'.
Smalltalk fileIn:'JavaMonitorNode.st'.
Smalltalk fileIn:'JavaSwitchNode.st'.

Smalltalk fileIn:'JavaStatementList.st'.
Smalltalk fileIn:'JavaDeparser.st'.

Smalltalk fileIn:'SmalltalkAppletContext.st'.
Smalltalk fileIn:'SmalltalkAppletStub.st'.
Smalltalk fileIn:'JavaView.st'.
Smalltalk fileIn:'JavaEmbeddedFrameView.st'.

!
"/ self halt.
Java flushClasses. 
!

|javaHome|

"/
"/ need jdk1.13 & moz in classPath
"/

"/ works
javaHome := '/usr/local/java/jdk113beta'.

"/ experimental
javaHome := '/usr/local/java/jdk113'.

(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.
    (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
]
!