loadAll
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sun, 16 Dec 2012 21:04:02 +0100
branchdirectory_structure_refactoring
changeset 1899 800c0f76adce
parent 1818 2e5ed72e7dfd
child 2380 9195eccdcbd9
permissions -rw-r--r--
Closing branch directory_structure_refactoring
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     1
"/
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     2
"/ base system
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     3
"/
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     4
Smalltalk fileIn:'loadClasses'.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     5
!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     6
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     7
Java initialize.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     8
JavaVM initialize.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
     9
JavaVM initializeVM.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    10
!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    11
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    12
|p|
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    13
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    14
(Java classForName:'netscape.applet.MozillaAppletContext') isNil ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    15
    (p := Smalltalk getResourceFileName:'java/ns30_unix.zip' forPackage:'stx:libjava') notNil
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    16
    ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    17
	Java addToClassPath:p.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    18
    ] ifFalse:[
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    19
	'../../libjava/java/java/ns30_unix.zip' asFilename exists ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    20
	    Java addToClassPath:'../../../cg/java/java/ns30_unix.zip'.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    21
	] ifFalse:[
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    22
	    'C:\Programme\eXept\SmalltalkX\packages\stx\libjava\java\ns30_unix.zip' asFilename exists ifTrue:[
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    23
		Java addToClassPath:'C:\Programme\eXept\SmalltalkX\packages\stx\libjava\java\ns30_unix.zip'.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    24
	     ]
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    25
	]
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    26
    ]
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    27
].
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    28
!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    29
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
    30