loadAll
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sun, 26 Apr 2015 21:07:30 +0100
changeset 3442 e59716e00703
parent 2380 9195eccdcbd9
permissions -rw-r--r--
Oops, fix for commit 48320b2d4: Use first element of binding to read bound value For workspace variables it does not matter much as both values are valueholders, however in inspector and for debugger, binding contains block with fixed number of arguments.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
403
32b3d1b4fdf5 *** empty log message ***
cg
parents: 389
diff changeset
     1
"/
32b3d1b4fdf5 *** empty log message ***
cg
parents: 389
diff changeset
     2
"/ base system
32b3d1b4fdf5 *** empty log message ***
cg
parents: 389
diff changeset
     3
"/
636
e54ec46157d3 *** empty log message ***
cg
parents: 634
diff changeset
     4
Smalltalk fileIn:'loadClasses'.
30
a85fb8f85586 *** empty log message ***
cg
parents: 20
diff changeset
     5
!
a85fb8f85586 *** empty log message ***
cg
parents: 20
diff changeset
     6
458
8d965d791b0a *** empty log message ***
cg
parents: 424
diff changeset
     7
Java initialize.
8d965d791b0a *** empty log message ***
cg
parents: 424
diff changeset
     8
JavaVM initialize.
8d965d791b0a *** empty log message ***
cg
parents: 424
diff changeset
     9
JavaVM initializeVM.
501
171e912a334c *** empty log message ***
cg
parents: 500
diff changeset
    10
!
131
1087f929bf55 *** empty log message ***
cg
parents: 107
diff changeset
    11
634
c5a9d34c6ae5 *** empty log message ***
cg
parents: 574
diff changeset
    12
|p|
c5a9d34c6ae5 *** empty log message ***
cg
parents: 574
diff changeset
    13
500
425d1df4be6b *** empty log message ***
cg
parents: 458
diff changeset
    14
(Java classForName:'netscape.applet.MozillaAppletContext') isNil ifTrue:[
634
c5a9d34c6ae5 *** empty log message ***
cg
parents: 574
diff changeset
    15
    (p := Smalltalk getResourceFileName:'java/ns30_unix.zip' forPackage:'stx:libjava') notNil
c5a9d34c6ae5 *** empty log message ***
cg
parents: 574
diff changeset
    16
    ifTrue:[
c5a9d34c6ae5 *** empty log message ***
cg
parents: 574
diff changeset
    17
	Java addToClassPath:p.
c5a9d34c6ae5 *** empty log message ***
cg
parents: 574
diff changeset
    18
    ] ifFalse:[
c5a9d34c6ae5 *** empty log message ***
cg
parents: 574
diff changeset
    19
	'../../libjava/java/java/ns30_unix.zip' asFilename exists ifTrue:[
c5a9d34c6ae5 *** empty log message ***
cg
parents: 574
diff changeset
    20
	    Java addToClassPath:'../../../cg/java/java/ns30_unix.zip'.
c5a9d34c6ae5 *** empty log message ***
cg
parents: 574
diff changeset
    21
	] ifFalse:[
638
f49f34dedcf7 *** empty log message ***
cg
parents: 636
diff changeset
    22
	    'C:\Programme\eXept\SmalltalkX\packages\stx\libjava\java\ns30_unix.zip' asFilename exists ifTrue:[
f49f34dedcf7 *** empty log message ***
cg
parents: 636
diff changeset
    23
		Java addToClassPath:'C:\Programme\eXept\SmalltalkX\packages\stx\libjava\java\ns30_unix.zip'.
634
c5a9d34c6ae5 *** empty log message ***
cg
parents: 574
diff changeset
    24
	     ]
c5a9d34c6ae5 *** empty log message ***
cg
parents: 574
diff changeset
    25
	]
500
425d1df4be6b *** empty log message ***
cg
parents: 458
diff changeset
    26
    ]
424
6ab47d2f7e8d *** empty log message ***
cg
parents: 411
diff changeset
    27
].
411
7702650e7c0e *** empty log message ***
cg
parents: 403
diff changeset
    28
!
7702650e7c0e *** empty log message ***
cg
parents: 403
diff changeset
    29
458
8d965d791b0a *** empty log message ***
cg
parents: 424
diff changeset
    30