hg/stx-libjava: JavaClass.st@e693added0af (annotated)

454 38f590639d65 * empty log message * cg parents: 451 diff changeset	1	"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2	COPYRIGHT (c) 1996-2011 by Claus Gittinger
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	3
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	4	New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	5
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	6	COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	7	SWING Research Group, Czech Technical University in Prague
454 38f590639d65 * empty log message * cg parents: 451 diff changeset	8
38f590639d65 * empty log message * cg parents: 451 diff changeset	9	This software is furnished under a license and may be used
38f590639d65 * empty log message * cg parents: 451 diff changeset	10	only in accordance with the terms of that license and with the
38f590639d65 * empty log message * cg parents: 451 diff changeset	11	inclusion of the above copyright notice. This software may not
38f590639d65 * empty log message * cg parents: 451 diff changeset	12	be provided or otherwise made available to, or used by, any
38f590639d65 * empty log message * cg parents: 451 diff changeset	13	other person. No title to or ownership of the software is
38f590639d65 * empty log message * cg parents: 451 diff changeset	14	hereby transferred.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	15
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	16	[1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	17	of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	18	see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	19	as of 1.9.2010
2080 452972372142 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	20	"
674 f83368a07379 * empty log message * cg parents: 654 diff changeset	21	"{ Package: 'stx:libjava' }"
f83368a07379 * empty log message * cg parents: 654 diff changeset	22
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	23	JavaBehavior subclass:#JavaClass
2476 d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2434 diff changeset	24	instanceVariableNames:'classLoader fullName sourceFile sourceString classfileBytes
2504 08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	25	fields staticFields annotations protectionDomain signatureJ
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	26	versions'
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	27	classVariableNames:'ArgumentConversionErrorSignal OrderOfClassInits'
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	28	poolDictionaries:'JavaConstants'
2107 f4509f6767fa category change Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	29	category:'Languages-Java-Classes'
1 083530508d9c intitial checkin cg parents: diff changeset	30	!
083530508d9c intitial checkin cg parents: diff changeset	31
2504 08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	32	Object subclass:#JavaClassVersionDiedHandler
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	33	instanceVariableNames:''
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	34	classVariableNames:''
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	35	poolDictionaries:''
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	36	privateIn:JavaClass
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	37	!
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	38
133 adaf7cad0bc2 checkin from browser cg parents: 132 diff changeset	39	!JavaClass class methodsFor:'documentation'!
adaf7cad0bc2 checkin from browser cg parents: 132 diff changeset	40
454 38f590639d65 * empty log message * cg parents: 451 diff changeset	41	copyright
38f590639d65 * empty log message * cg parents: 451 diff changeset	42	"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	43	COPYRIGHT (c) 1996-2011 by Claus Gittinger
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	44
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	45	New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	46
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	47	COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	48	SWING Research Group, Czech Technical University in Prague
454 38f590639d65 * empty log message * cg parents: 451 diff changeset	49
38f590639d65 * empty log message * cg parents: 451 diff changeset	50	This software is furnished under a license and may be used
38f590639d65 * empty log message * cg parents: 451 diff changeset	51	only in accordance with the terms of that license and with the
38f590639d65 * empty log message * cg parents: 451 diff changeset	52	inclusion of the above copyright notice. This software may not
38f590639d65 * empty log message * cg parents: 451 diff changeset	53	be provided or otherwise made available to, or used by, any
38f590639d65 * empty log message * cg parents: 451 diff changeset	54	other person. No title to or ownership of the software is
38f590639d65 * empty log message * cg parents: 451 diff changeset	55	hereby transferred.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	56
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	57	[1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	58	of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	59	see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	60	as of 1.9.2010
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	61
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	62	"
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	63	!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	64
133 adaf7cad0bc2 checkin from browser cg parents: 132 diff changeset	65	examples
adaf7cad0bc2 checkin from browser cg parents: 132 diff changeset	66	"
adaf7cad0bc2 checkin from browser cg parents: 132 diff changeset	67	(Java at:'java.util.Stack') new inspect
adaf7cad0bc2 checkin from browser cg parents: 132 diff changeset	68	(Java at:'java.util.Vector') new inspect
adaf7cad0bc2 checkin from browser cg parents: 132 diff changeset	69	"
adaf7cad0bc2 checkin from browser cg parents: 132 diff changeset	70	! !
1 083530508d9c intitial checkin cg parents: diff changeset	71
130 0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	72	!JavaClass class methodsFor:'instance creation'!
1 083530508d9c intitial checkin cg parents: diff changeset	73
7 de8ce26e1f2c checkin from browser cg parents: 5 diff changeset	74	fullName:aString
90 918e2740098c resolve rewritten cg parents: 86 diff changeset	75	self shouldNotImplement.
918e2740098c resolve rewritten cg parents: 86 diff changeset	76	^ self new flags:0; setFullName:aString
7 de8ce26e1f2c checkin from browser cg parents: 5 diff changeset	77
de8ce26e1f2c checkin from browser cg parents: 5 diff changeset	78	!
de8ce26e1f2c checkin from browser cg parents: 5 diff changeset	79
38 3f1b61722466 checkin from browser cg parents: 34 diff changeset	80	fullName:aString numStatic:nStatic
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	81	\|meta cls classLoader \|
38 3f1b61722466 checkin from browser cg parents: 34 diff changeset	82
130 0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	83	"/ check for a JAVA nameSpace to exist
0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	84	JAVA isNil ifTrue:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	85	JavaPackage name:'JAVA'
130 0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	86	].
0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	87
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	88	classLoader := JavaClassReader classLoaderQuerySignal query.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	89
38 3f1b61722466 checkin from browser cg parents: 34 diff changeset	90	"create the metaclass first"
3f1b61722466 checkin from browser cg parents: 34 diff changeset	91
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	92	meta := JavaMetaclass new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	93	meta setSuperclass:self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	94	meta instSize:(meta superclass instSize + nStatic).
172 c3a531a73cda * empty log message * cg parents: 170 diff changeset	95	"/ meta setName:(aString , 'class') asSymbol.
c3a531a73cda * empty log message * cg parents: 170 diff changeset	96	"/ meta setClassVariableString:''.
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 249 diff changeset	97	meta flags:(meta flags bitOr:Behavior flagJavaClass).
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 249 diff changeset	98	"/ meta setSuperclass:JavaObject class.
38 3f1b61722466 checkin from browser cg parents: 34 diff changeset	99
3f1b61722466 checkin from browser cg parents: 34 diff changeset	100	"then let the new meta create the class"
3f1b61722466 checkin from browser cg parents: 34 diff changeset	101	cls := meta new.
3f1b61722466 checkin from browser cg parents: 34 diff changeset	102	cls setSuperclass:JavaObject.
3f1b61722466 checkin from browser cg parents: 34 diff changeset	103	cls instSize:0.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	104	cls setName:('JAVA::' , aString).
38 3f1b61722466 checkin from browser cg parents: 34 diff changeset	105	cls flags:0.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	106
590 b0de66f7e728 * empty log message * cg parents: 587 diff changeset	107	cls setAccessFlags:0.
40 7f332a95e015 checkin from browser cg parents: 38 diff changeset	108	"/ cls setClassVariableString:''.
38 3f1b61722466 checkin from browser cg parents: 34 diff changeset	109	cls setInstanceVariableString:''.
2143 4fe17c2f531c * empty log message * Claus Gittinger <cg@exept.de> parents: 2118 diff changeset	110	cls setCategory:#java.
590 b0de66f7e728 * empty log message * cg parents: 587 diff changeset	111	cls setFullName:aString.
40 7f332a95e015 checkin from browser cg parents: 38 diff changeset	112
38 3f1b61722466 checkin from browser cg parents: 34 diff changeset	113	^ cls
3f1b61722466 checkin from browser cg parents: 34 diff changeset	114
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	115	"Created: / 15-04-1996 / 15:52:55 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	116	"Modified: / 03-01-1998 / 22:32:25 / cg"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	117	"Modified: / 04-04-2012 / 09:36:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
38 3f1b61722466 checkin from browser cg parents: 34 diff changeset	118	!
3f1b61722466 checkin from browser cg parents: 34 diff changeset	119
1 083530508d9c intitial checkin cg parents: diff changeset	120	name:aString
7 de8ce26e1f2c checkin from browser cg parents: 5 diff changeset	121	self shouldNotImplement
1 083530508d9c intitial checkin cg parents: diff changeset	122
083530508d9c intitial checkin cg parents: diff changeset	123	"Created: 15.4.1996 / 15:52:55 / cg"
083530508d9c intitial checkin cg parents: diff changeset	124	! !
083530508d9c intitial checkin cg parents: diff changeset	125
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	126	!JavaClass class methodsFor:'boxing-unboxing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	127
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	128	box: stArgumentsCollection to: typesCollection
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	129	" box smalltalk arguments collection to Java arguments "
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	130	^ stArgumentsCollection with: typesCollection collect: [ :stObject :javaType \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	131	(JavaTypeBox typeBoxForJava: javaType) box: stObject.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	132	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	133
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	134	"Created: / 25-09-2011 / 20:20:35 / Jan Kurs <kursjan@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	135	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	136
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	137	unbox:jObj returnType: returnType
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	138
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	139	"JV@2011-02-04"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	140	"Hack for primitive types"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	141	"/ JK: it is hack, but it is fast :)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	142	(JavaDescriptor baseTypesByTypeName keys includes: returnType) ifTrue:[^jObj].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	143
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	144	^ (JavaTypeBox typeBoxForJava: returnType) unbox: jObj.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	145
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	146	"Created: / 30-08-2011 / 22:13:41 / Jan Kurs <kursjan@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	147	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	148
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	149	!JavaClass class methodsFor:'class initialization'!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	150
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	151	initialize
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	152
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	153	ArgumentConversionErrorSignal := Signal new notifierString:'argument conversion error'.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	154
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	155	"Created: / 20-10-2010 / 11:11:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	156	! !
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	157
229 b91c9462ac83 * empty log message * cg parents: 215 diff changeset	158	!JavaClass class methodsFor:'method lookup'!
b91c9462ac83 * empty log message * cg parents: 215 diff changeset	159
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	160	canConvertArgsToJava:argArray asSpecifiedIn:argSigSpecArray
08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	161	"given a smalltalk argument array, return true, if these can be converted to java objects as appropriate."
08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	162
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	163	argArray
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	164	with:argSigSpecArray
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	165	do:[:arg :type \|
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	166	self
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	167	convertToJava:arg
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	168	type:type
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	169	ifFail:[:msg :default\| ^ false]].
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	170	^ true
08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	171
08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	172	"Created: / 5.11.1998 / 18:25:05 / cg"
426 ddb18042134a checkin from browser cg parents: 425 diff changeset	173	"Modified: / 6.11.1998 / 00:45:58 / cg"
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	174	!
08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	175
426 ddb18042134a checkin from browser cg parents: 425 diff changeset	176	convertArgsToJava:argArray asSpecifiedIn:argSigSpecArray numArgs:na
ddb18042134a checkin from browser cg parents: 425 diff changeset	177	"given a smalltalk argument array, convert to java objects as appropriate.
ddb18042134a checkin from browser cg parents: 425 diff changeset	178	Currently, only Strings and booleans are converted."
ddb18042134a checkin from browser cg parents: 425 diff changeset	179
ddb18042134a checkin from browser cg parents: 425 diff changeset	180	\|sigIndex newArgIndex newArgArray\|
ddb18042134a checkin from browser cg parents: 425 diff changeset	181
ddb18042134a checkin from browser cg parents: 425 diff changeset	182	sigIndex := newArgIndex := 1.
ddb18042134a checkin from browser cg parents: 425 diff changeset	183
ddb18042134a checkin from browser cg parents: 425 diff changeset	184	newArgArray := Array new:na.
ddb18042134a checkin from browser cg parents: 425 diff changeset	185	argArray do:[:arg \|
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	186	\|type newArg\|
426 ddb18042134a checkin from browser cg parents: 425 diff changeset	187
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	188	type := argSigSpecArray at:sigIndex.
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	189	sigIndex := sigIndex + 1.
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	190	newArg := self convertToJava:arg type:type.
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	191	newArgArray at:newArgIndex put:newArg.
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	192	newArgIndex := newArgIndex + 1.
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	193	(type == #long or:[type == #double]) ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	194	newArgIndex > na ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	195	self halt:'should not happen'
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	196	].
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	197	newArgArray at:newArgIndex put:nil.
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	198	newArgIndex := newArgIndex + 1.
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	199	]
426 ddb18042134a checkin from browser cg parents: 425 diff changeset	200	].
ddb18042134a checkin from browser cg parents: 425 diff changeset	201
ddb18042134a checkin from browser cg parents: 425 diff changeset	202	^ newArgArray
ddb18042134a checkin from browser cg parents: 425 diff changeset	203
ddb18042134a checkin from browser cg parents: 425 diff changeset	204	"Created: / 5.11.1998 / 18:30:57 / cg"
ddb18042134a checkin from browser cg parents: 425 diff changeset	205	"Modified: / 6.11.1998 / 00:45:00 / cg"
ddb18042134a checkin from browser cg parents: 425 diff changeset	206	!
ddb18042134a checkin from browser cg parents: 425 diff changeset	207
ddb18042134a checkin from browser cg parents: 425 diff changeset	208	convertToJava:arg type:type
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	209	"given a smalltalk argument, convert to a java object as appropriate."
08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	210
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	211	^ self
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	212	convertToJava:arg
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	213	type:type
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	214	ifFail:[:msg :default \|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	215	ArgumentConversionErrorSignal
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	216	raiseWith:arg
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	217	errorString:msg.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	218	default
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	219	]
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	220
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	221	"Created: / 06-11-1998 / 00:45:13 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	222	"Modified: / 20-10-2010 / 11:08:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	223	!
08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	224
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	225	convertToJava: arg type: type ifFail: failBlock
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	226	"given a smalltalk argument, convert to a java object as appropriate.
08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	227	Currently, only a few types are converted."
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	228
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	229	\| expectedCls f failValue \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	230
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	231	type == #boolean ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	232	arg == true ifTrue: [ ^ 1 ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	233	arg == false ifTrue: [ ^ 0 ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	234	^ failBlock value: ('cannot convert argument to ' , type) value: 0
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	235	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	236	type == #int ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	237	arg isInteger ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	238	(arg between: (16r8000000 * -1) and: 16r7FFFFFFF) ifTrue: [ ^ arg ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	239	^ failBlock value: ('integer range; cannot convert argument to ' , type)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	240	value: 0.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	241	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	242	^ failBlock value: ('cannot convert argument to ' , type) value: 0
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	243	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	244	type == #long ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	245	arg isInteger ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	246	(arg "(-1 * 16r800000000000000) -->" between: -576460752303423488
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	247	and: 16r7FFFFFFFFFFFFFFF) ifTrue: [ ^ arg ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	248	^ failBlock value: ('integer range; cannot convert argument to ' , type)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	249	value: 0
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	250	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	251	^ failBlock value: ('cannot convert argument to ' , type) value: 0
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	252	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	253	(type == #float) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	254	arg isLimitedPrecisionReal ifTrue: [ ^ arg asShortFloat ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	255	^ failBlock value: ('cannot convert argument to ' , type) value: 0.0.
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	256	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	257	(type = 'java.lang.Float') ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	258	arg isLimitedPrecisionReal ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	259	f := (Java at: 'java.lang.Float') new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	260	f perform: #'<init>(F)V' with: (arg asShortFloat).
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	261	self halt.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	262	^ f.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	263	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	264	^ failBlock value: ('cannot convert argument to ' , type) value: 0.0.
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	265	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	266	(type = 'java.lang.Double') ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	267	arg isLimitedPrecisionReal ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	268	f := (Java at: 'java.lang.Double') new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	269	f perform: #'<init>(D)V' with: (arg asFloat).
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	270	self halt.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	271	^ f.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	272	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	273	^ failBlock value: ('cannot convert argument to ' , type) value: 0.0.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	274	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	275	(type == #double) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	276	arg isLimitedPrecisionReal ifTrue: [ ^ arg asFloat ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	277	^ failBlock value: ('cannot convert argument to ' , type) value: 0.0.
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	278	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	279	(type == #char) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	280	arg isCharacter ifTrue: [ ^ arg asciiValue ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	281	^ failBlock value: ('cannot convert argument to ' , type) value: 0
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	282	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	283	(type = 'char[]') ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	284	arg isString ifTrue: [ ^ arg ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	285	^ failBlock value: ('cannot convert argument to ' , type) value: ''
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	286	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	287	(type = 'int[]') ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	288	(arg isArray or: [ arg isMemberOf: SignedIntegerArray ]) ifTrue: [ ^ arg ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	289	^ failBlock value: ('cannot convert argument to ' , type) value: ''
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	290	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	291	(type = 'long[]') ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	292	(arg isArray or: [ arg isMemberOf: SignedIntegerArray ]) ifTrue: [ ^ arg ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	293	^ failBlock value: ('cannot convert argument to ' , type) value: ''
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	294	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	295	(type = 'float[]') ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	296	(arg isArray or: [ arg isMemberOf: FloatArray ]) ifTrue: [ ^ arg ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	297	^ failBlock value: ('cannot convert argument to ' , type) value: ''
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	298	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	299	(type = 'double[]') ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	300	(arg isArray or: [ arg isMemberOf: DoubleArray ]) ifTrue: [ ^ arg ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	301	^ failBlock value: ('cannot convert argument to ' , type) value: ''
426 ddb18042134a checkin from browser cg parents: 425 diff changeset	302	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	303	(type endsWith: '[]') ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	304	(arg isArray or: [ arg isNil ]) ifTrue: [ ^ arg ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	305	^ failBlock value: ('cannot convert argument to ' , type) value: ''
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	306	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	307	expectedCls := JavaVM classForName: type.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	308	(arg isKindOf: expectedCls) ifTrue: [
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	309	"/ matches class and subclasses
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	310	^ arg
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	311	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	312	(type = 'java.lang.Object') ifTrue: [
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	313	"/ matches any
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	314	^ arg
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	315	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	316	(type = 'java.lang.String') ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	317	arg isString ifTrue: [ ^ Java as_String: arg ].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	318	failValue := ''
2080 452972372142 * empty log message * Claus Gittinger <cg@exept.de> parents: 749 diff changeset	319	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	320	arg isNil ifTrue: [
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	321	"/ matches any
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	322	^ arg
456 bbed0c5ce05f checkin from browser cg parents: 454 diff changeset	323	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	324	self halt.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	325	^ failBlock value: ('cannot convert argument to ' , type) value: failValue
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	326
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	327	"Created: / 06-11-1998 / 00:46:19 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	328	"Modified: / 06-11-2001 / 13:28:29 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	329	"Modified: / 17-01-2011 / 10:08:04 / kursjan <kursjan@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	330	"Modified: / 17-03-2011 / 14:09:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	331	!
08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	332
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	333	convertToSmalltalk:jObj type:type
426 ddb18042134a checkin from browser cg parents: 425 diff changeset	334	"given a java return value, convert to a smalltalk object as appropriate.
ddb18042134a checkin from browser cg parents: 425 diff changeset	335	Currently, only a few types are converted."
336 263450c8902e checkin from browser cg parents: 321 diff changeset	336
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	337	"JV@2011-02-04"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	338	"Hack for primitive types"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	339	(JavaDescriptor baseTypesByTypeName keys includes: type) ifTrue:[^jObj].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	340	"jObj is registered for the specified type?"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	341
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	342	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	343	(JavaObjectDictionary new reflectionOf: jObj class name) = (Java classForName: type) ifTrue: [
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	344	^ jObj
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	345	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	346	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	347
426 ddb18042134a checkin from browser cg parents: 425 diff changeset	348	type == #boolean ifTrue:[
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	349	jObj == 0 ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	350	^ false
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	351	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	352	^ true
426 ddb18042134a checkin from browser cg parents: 425 diff changeset	353	].
ddb18042134a checkin from browser cg parents: 425 diff changeset	354
ddb18042134a checkin from browser cg parents: 425 diff changeset	355	type == #void ifTrue:[
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	356	^ nil
336 263450c8902e checkin from browser cg parents: 321 diff changeset	357	].
263450c8902e checkin from browser cg parents: 321 diff changeset	358
426 ddb18042134a checkin from browser cg parents: 425 diff changeset	359	(type = 'java.lang.String') ifTrue:[
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	360	^ Java as_ST_String:jObj
426 ddb18042134a checkin from browser cg parents: 425 diff changeset	361	].
336 263450c8902e checkin from browser cg parents: 321 diff changeset	362
433 d9d6841784f1 checkin from browser cg parents: 428 diff changeset	363	"/ (type = 'java.lang.Float') ifTrue:[
d9d6841784f1 checkin from browser cg parents: 428 diff changeset	364	"/ ^ jObj instVarNamed:'value'
d9d6841784f1 checkin from browser cg parents: 428 diff changeset	365	"/ ].
d9d6841784f1 checkin from browser cg parents: 428 diff changeset	366	"/ (type = 'java.lang.Double') ifTrue:[
d9d6841784f1 checkin from browser cg parents: 428 diff changeset	367	"/ ^ jObj instVarNamed:'value'
d9d6841784f1 checkin from browser cg parents: 428 diff changeset	368	"/ ].
d9d6841784f1 checkin from browser cg parents: 428 diff changeset	369
426 ddb18042134a checkin from browser cg parents: 425 diff changeset	370	(type == #char) ifTrue:[
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	371	jObj isInteger ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	372	^ Character value:jObj
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	373	].
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	374	].
426 ddb18042134a checkin from browser cg parents: 425 diff changeset	375
ddb18042134a checkin from browser cg parents: 425 diff changeset	376	^ jObj
ddb18042134a checkin from browser cg parents: 425 diff changeset	377
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	378	"Created: / 06-11-1998 / 00:49:53 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	379	"Modified: / 11-11-1998 / 02:08:11 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	380	"Modified: / 17-01-2011 / 10:42:56 / kursjan <kursjan@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	381	"Modified: / 08-04-2011 / 17:04:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
336 263450c8902e checkin from browser cg parents: 321 diff changeset	382	!
263450c8902e checkin from browser cg parents: 321 diff changeset	383
236 46195f733e51 * empty log message * cg parents: 229 diff changeset	384	lookupMethod:selector numArgs:nargs in:aClass static:staticMethod
229 b91c9462ac83 * empty log message * cg parents: 215 diff changeset	385	"lookup a method"
b91c9462ac83 * empty log message * cg parents: 215 diff changeset	386
b91c9462ac83 * empty log message * cg parents: 215 diff changeset	387	\|method cls sel\|
b91c9462ac83 * empty log message * cg parents: 215 diff changeset	388
b91c9462ac83 * empty log message * cg parents: 215 diff changeset	389	sel := selector.
b91c9462ac83 * empty log message * cg parents: 215 diff changeset	390	(sel includes:$:) ifTrue:[
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	391	sel := sel copyTo:(sel indexOf:$:)-1
229 b91c9462ac83 * empty log message * cg parents: 215 diff changeset	392	].
b91c9462ac83 * empty log message * cg parents: 215 diff changeset	393
b91c9462ac83 * empty log message * cg parents: 215 diff changeset	394	sel := sel asSymbolIfInterned.
b91c9462ac83 * empty log message * cg parents: 215 diff changeset	395	sel notNil ifTrue:[
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	396	cls := aClass.
229 b91c9462ac83 * empty log message * cg parents: 215 diff changeset	397
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	398	[cls notNil
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	399	and:[cls ~~ JavaObject
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	400	and:[cls ~~ JavaClass]]] whileTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	401	cls methodDictionary keysAndValuesDo:[:jSel :m \|
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	402	\|aMethod\|
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	403
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	404	aMethod := m.
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	405	aMethod isWrapped ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	406	aMethod := aMethod originalMethod
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	407	].
456 bbed0c5ce05f checkin from browser cg parents: 454 diff changeset	408
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	409	((jSel == sel)
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	410	or:[aMethod name = sel
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	411	or:[aMethod signatureNameWithoutReturnType = sel]])
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	412	ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	413	aMethod numArgs == nargs ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	414	staticMethod == (aMethod isStatic) ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	415	^ m
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	416	]
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	417	]
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	418	]
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	419	].
229 b91c9462ac83 * empty log message * cg parents: 215 diff changeset	420
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	421	cls := cls superclass.
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	422	].
229 b91c9462ac83 * empty log message * cg parents: 215 diff changeset	423	].
375 988259a6fa03 checkin from browser cg parents: 360 diff changeset	424	"/ self halt.
229 b91c9462ac83 * empty log message * cg parents: 215 diff changeset	425	^ nil
b91c9462ac83 * empty log message * cg parents: 215 diff changeset	426
375 988259a6fa03 checkin from browser cg parents: 360 diff changeset	427	"Created: / 17.8.1997 / 18:25:47 / cg"
456 bbed0c5ce05f checkin from browser cg parents: 454 diff changeset	428	"Modified: / 16.11.1998 / 16:46:48 / cg"
415 b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	429	!
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	430
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	431	lookupMethods:selector numArgs:nargs in:aClass static:staticMethod
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	432	"lookup methods matching a selector.
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	433	This is a special entry for doesNotUnderstand redirection
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	434	(the caller must select the one method which fits the argument(s) best."
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	435
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	436	\|methods cls sel\|
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	437
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	438	sel := selector.
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	439	(sel includes:$:) ifTrue:[
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	440	sel := sel copyTo:(sel indexOf:$:)-1
415 b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	441	].
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	442
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	443	sel := sel asSymbolIfInterned.
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	444	sel notNil ifTrue:[
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	445	cls := aClass.
415 b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	446
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	447	[cls notNil
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	448	and:[cls ~~ JavaObject
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	449	and:[cls ~~ JavaClass]]] whileTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	450	cls methodDictionary keysAndValuesDo:[:jSel :aMethod \|
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	451	((jSel == sel)
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	452	or:[aMethod name = sel
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	453	or:[aMethod signatureNameWithoutReturnType = sel]])
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	454	ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	455	(nargs isNil
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	456	or:[aMethod numArgs == nargs]) ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	457	staticMethod == (aMethod isStatic) ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	458	methods isNil ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	459	methods := OrderedCollection new
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	460	].
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	461	methods add:aMethod
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	462	]
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	463	]
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	464	]
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	465	].
415 b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	466
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	467	cls := cls superclass.
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	468	].
415 b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	469	].
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	470	^ methods ? #()
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	471
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	472	"Created: / 4.11.1998 / 19:04:51 / cg"
b8abde6f5a0d cleanup (removed obsolete invoke stuff) cg parents: 413 diff changeset	473	"Modified: / 4.11.1998 / 19:31:33 / cg"
229 b91c9462ac83 * empty log message * cg parents: 215 diff changeset	474	! !
b91c9462ac83 * empty log message * cg parents: 215 diff changeset	475
2578 fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	476	!JavaClass class methodsFor:'others'!
fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	477
fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	478	version_HG
fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	479
fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	480	^ '$Changeset: <not expanded> $'
fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	481	! !
fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	482
130 0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	483	!JavaClass class methodsFor:'signature parsing'!
52 1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	484
1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	485	initialValueFromSignature:aSignature
1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	486	"given a signature, return an initializer value"
1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	487
1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	488	\|s\|
1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	489
1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	490	s := aSignature readStream.
1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	491	^ self initialValueFromStream:s.
1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	492
1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	493	"
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	494	JavaClass initialValueFromSignature:'LObject;'
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	495	JavaClass initialValueFromSignature:'B'
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	496	JavaClass initialValueFromSignature:'I'
52 1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	497	"
1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	498
1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	499
1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	500	! !
1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	501
130 0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	502	!JavaClass class methodsFor:'special'!
40 7f332a95e015 checkin from browser cg parents: 38 diff changeset	503
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	504	deinitClasses
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	505
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	506	Smalltalk allClassesDo:
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	507	[:cls\|cls isJavaClass ifTrue:[cls deinit]].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	508	self flushClassesInitOrder.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	509
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	510	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	511	JavaClass deinitClasses
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	512	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	513
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	514	"Created: / 25-10-2010 / 16:47:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	515	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	516
2104 1b6366474dbf isReal -> isLimitedPrecisionReal Claus Gittinger <cg@exept.de> parents: 2102 diff changeset	517	flushClassesInitOrder
1b6366474dbf isReal -> isLimitedPrecisionReal Claus Gittinger <cg@exept.de> parents: 2102 diff changeset	518	OrderOfClassInits := nil
1b6366474dbf isReal -> isLimitedPrecisionReal Claus Gittinger <cg@exept.de> parents: 2102 diff changeset	519
1b6366474dbf isReal -> isLimitedPrecisionReal Claus Gittinger <cg@exept.de> parents: 2102 diff changeset	520	"Created: / 6.11.2001 / 09:49:49 / cg"
1b6366474dbf isReal -> isLimitedPrecisionReal Claus Gittinger <cg@exept.de> parents: 2102 diff changeset	521	!
1b6366474dbf isReal -> isLimitedPrecisionReal Claus Gittinger <cg@exept.de> parents: 2102 diff changeset	522
435 de6d4b3a67ac remember class init-order cg parents: 433 diff changeset	523	orderOfClassInits
de6d4b3a67ac remember class init-order cg parents: 433 diff changeset	524	^ OrderOfClassInits
de6d4b3a67ac remember class init-order cg parents: 433 diff changeset	525
de6d4b3a67ac remember class init-order cg parents: 433 diff changeset	526	"Created: / 12.11.1998 / 15:35:57 / cg"
de6d4b3a67ac remember class init-order cg parents: 433 diff changeset	527	!
de6d4b3a67ac remember class init-order cg parents: 433 diff changeset	528
40 7f332a95e015 checkin from browser cg parents: 38 diff changeset	529	setInstanceVariableStringFromFields:f in:aClass
7f332a95e015 checkin from browser cg parents: 38 diff changeset	530	\|varNames\|
7f332a95e015 checkin from browser cg parents: 38 diff changeset	531
7f332a95e015 checkin from browser cg parents: 38 diff changeset	532	varNames := ''.
7f332a95e015 checkin from browser cg parents: 38 diff changeset	533	f do:[:aField \|
172 c3a531a73cda * empty log message * cg parents: 170 diff changeset	534	varNames := varNames , aField name , ' '
40 7f332a95e015 checkin from browser cg parents: 38 diff changeset	535	].
7f332a95e015 checkin from browser cg parents: 38 diff changeset	536	aClass setInstanceVariableString:varNames.
7f332a95e015 checkin from browser cg parents: 38 diff changeset	537
7f332a95e015 checkin from browser cg parents: 38 diff changeset	538	"Created: 15.4.1996 / 16:42:52 / cg"
435 de6d4b3a67ac remember class init-order cg parents: 433 diff changeset	539	!
de6d4b3a67ac remember class init-order cg parents: 433 diff changeset	540
de6d4b3a67ac remember class init-order cg parents: 433 diff changeset	541	startRememberingOrderOfClassInits
de6d4b3a67ac remember class init-order cg parents: 433 diff changeset	542	OrderOfClassInits := OrderedCollection new.
de6d4b3a67ac remember class init-order cg parents: 433 diff changeset	543
de6d4b3a67ac remember class init-order cg parents: 433 diff changeset	544	"Created: / 12.11.1998 / 15:26:32 / cg"
de6d4b3a67ac remember class init-order cg parents: 433 diff changeset	545	"Modified: / 12.11.1998 / 15:29:10 / cg"
40 7f332a95e015 checkin from browser cg parents: 38 diff changeset	546	! !
7f332a95e015 checkin from browser cg parents: 38 diff changeset	547
5 f026f5d20c15 checkin from browser cg parents: 3 diff changeset	548	!JavaClass methodsFor:'accessing'!
f026f5d20c15 checkin from browser cg parents: 3 diff changeset	549
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	550	allFields
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	551	"Returns all fields, including those inherited from
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	552	a superclass"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	553	\| cls all \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	554
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	555	cls := self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	556	all := OrderedCollection new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	557	[ cls isJavaClass ] whileTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	558	all addAll: cls fields.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	559	cls := cls superclass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	560	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	561	^all.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	562
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	563	"Created: / 04-04-2012 / 01:37:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	564	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	565
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	566	allInterfaces
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	567
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	568	\| ifaces cls \|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	569
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	570	ifaces := Set new.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	571	cls := self.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	572	[ cls isJavaClass ] whileTrue:
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	573	[cls interfaces do:[:iface\| ifaces add: iface; addAll: iface allInterfaces].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	574	cls := cls superclass].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	575	^ifaces.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	576
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	577	"Created: / 05-02-2011 / 23:51:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	578	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	579
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	580	allStaticFields
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	581	"Returns all fields, including those inherited from
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	582	a superclass"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	583	\| cls all \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	584
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	585	cls := self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	586	all := OrderedCollection new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	587	[ cls isJavaClass ] whileTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	588	all addAll: cls staticFields.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	589	cls := cls superclass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	590	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	591	^all.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	592
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	593	"Created: / 04-04-2012 / 01:37:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	594	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	595
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	596	annotations
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	597	^ annotations ifNil:[JavaClassAnnotationContainer empty].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	598
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	599	"Modified: / 03-03-2011 / 22:52:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	600	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	601
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	602	annotations:something
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	603	annotations := something.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	604	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	605
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	606	classLoader
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	607	^ classLoader
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	608	!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	609
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	610	classLoader:classLoaderOrNil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	611	classLoader := classLoaderOrNil.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	612
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	613	"Modified: / 18-02-2012 / 20:21:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
255 2d8b3948a08a * empty log message * cg parents: 252 diff changeset	614	!
2d8b3948a08a * empty log message * cg parents: 252 diff changeset	615
2476 d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2434 diff changeset	616	classfileBytes
d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2434 diff changeset	617	^ classfileBytes
d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2434 diff changeset	618	!
d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2434 diff changeset	619
651 c4f8130fb962 checkin from browser cg parents: 626 diff changeset	620	compiledMethodAt:name
c4f8130fb962 checkin from browser cg parents: 626 diff changeset	621	"redefined to find the constructor"
c4f8130fb962 checkin from browser cg parents: 626 diff changeset	622
c4f8130fb962 checkin from browser cg parents: 626 diff changeset	623	\|m\|
c4f8130fb962 checkin from browser cg parents: 626 diff changeset	624
c4f8130fb962 checkin from browser cg parents: 626 diff changeset	625	m := super compiledMethodAt:name.
c4f8130fb962 checkin from browser cg parents: 626 diff changeset	626	m isNil ifTrue:[
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	627	name = self lastName ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	628	^ super compiledMethodAt:#'<init>()V'
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	629	].
651 c4f8130fb962 checkin from browser cg parents: 626 diff changeset	630	].
c4f8130fb962 checkin from browser cg parents: 626 diff changeset	631	^ m
c4f8130fb962 checkin from browser cg parents: 626 diff changeset	632
c4f8130fb962 checkin from browser cg parents: 626 diff changeset	633	"
c4f8130fb962 checkin from browser cg parents: 626 diff changeset	634	JAVA::java::lang::Object compiledMethodAt:#Object
c4f8130fb962 checkin from browser cg parents: 626 diff changeset	635	"
c4f8130fb962 checkin from browser cg parents: 626 diff changeset	636
c4f8130fb962 checkin from browser cg parents: 626 diff changeset	637	"Created: / 24.12.1999 / 02:02:50 / cg"
c4f8130fb962 checkin from browser cg parents: 626 diff changeset	638	"Modified: / 24.12.1999 / 02:04:46 / cg"
c4f8130fb962 checkin from browser cg parents: 626 diff changeset	639	!
c4f8130fb962 checkin from browser cg parents: 626 diff changeset	640
185 99ff1b6d90fe * empty log message * cg parents: 183 diff changeset	641	compiledMethodAt:name signature:sig
99ff1b6d90fe * empty log message * cg parents: 183 diff changeset	642	"lookup the classes methodDictionary"
99ff1b6d90fe * empty log message * cg parents: 183 diff changeset	643
99ff1b6d90fe * empty log message * cg parents: 183 diff changeset	644	methodDictionary keysAndValuesDo:[:mFullSelector :aMethod \|
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 249 diff changeset	645	aMethod name == name ifTrue:[
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 249 diff changeset	646	aMethod signature == sig ifTrue:[
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 249 diff changeset	647	^ aMethod
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 249 diff changeset	648	]
04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 249 diff changeset	649	]
185 99ff1b6d90fe * empty log message * cg parents: 183 diff changeset	650	].
99ff1b6d90fe * empty log message * cg parents: 183 diff changeset	651	^ nil
99ff1b6d90fe * empty log message * cg parents: 183 diff changeset	652
99ff1b6d90fe * empty log message * cg parents: 183 diff changeset	653	"Created: 1.8.1997 / 00:01:58 / cg"
99ff1b6d90fe * empty log message * cg parents: 183 diff changeset	654	!
99ff1b6d90fe * empty log message * cg parents: 183 diff changeset	655
5 f026f5d20c15 checkin from browser cg parents: 3 diff changeset	656	constantPool
f026f5d20c15 checkin from browser cg parents: 3 diff changeset	657	^ constantPool
7 de8ce26e1f2c checkin from browser cg parents: 5 diff changeset	658	!
de8ce26e1f2c checkin from browser cg parents: 5 diff changeset	659
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	660	ensureHasAnnotations
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	661	annotations ifNil: [ annotations := JavaAnnotationContainer for: self ].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	662	^ annotations
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	663
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	664	"Created: / 25-02-2011 / 16:02:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	665	"Modified: / 16-03-2011 / 17:13:47 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	666	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	667
83 2d61ef3579e4 * empty log message * cg parents: 79 diff changeset	668	fields
2d61ef3579e4 * empty log message * cg parents: 79 diff changeset	669	^ fields
2d61ef3579e4 * empty log message * cg parents: 79 diff changeset	670	!
2d61ef3579e4 * empty log message * cg parents: 79 diff changeset	671
7 de8ce26e1f2c checkin from browser cg parents: 5 diff changeset	672	fullName
de8ce26e1f2c checkin from browser cg parents: 5 diff changeset	673	^ fullName
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 7 diff changeset	674	!
4df3a66460a3 can now read (undoc) 3.45 format cg parents: 7 diff changeset	675
90 918e2740098c resolve rewritten cg parents: 86 diff changeset	676	javaClass
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	677
90 918e2740098c resolve rewritten cg parents: 86 diff changeset	678	^ self
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	679
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	680	"Modified: / 22-05-2011 / 13:32:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	681	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	682
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	683	javaComponentClass
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	684	^self.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	685
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	686	"Created: / 20-12-2010 / 22:02:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	687	"Modified: / 30-05-2011 / 23:26:13 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
691 8dcc24aeaa95 * empty log message * cg parents: 689 diff changeset	688	!
8dcc24aeaa95 * empty log message * cg parents: 689 diff changeset	689
2085 dc0785700fbb * empty log message * Claus Gittinger <cg@exept.de> parents: 2083 diff changeset	690	javaName
dc0785700fbb * empty log message * Claus Gittinger <cg@exept.de> parents: 2083 diff changeset	691	"the javaname - as seen by a java programmer.
dc0785700fbb * empty log message * Claus Gittinger <cg@exept.de> parents: 2083 diff changeset	692	(with '/'s replaced by dots) extract from the fullName"
dc0785700fbb * empty log message * Claus Gittinger <cg@exept.de> parents: 2083 diff changeset	693
dc0785700fbb * empty log message * Claus Gittinger <cg@exept.de> parents: 2083 diff changeset	694	^ fullName copyReplaceAll:$/ with:$.
dc0785700fbb * empty log message * Claus Gittinger <cg@exept.de> parents: 2083 diff changeset	695
dc0785700fbb * empty log message * Claus Gittinger <cg@exept.de> parents: 2083 diff changeset	696	"
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	697	Java allClasses first fullName
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	698	Java allClasses first name
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	699	Java allClasses first javaName
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	700	Java allClasses first javaPackage
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	701	Java allClasses first package
2085 dc0785700fbb * empty log message * Claus Gittinger <cg@exept.de> parents: 2083 diff changeset	702	"
dc0785700fbb * empty log message * Claus Gittinger <cg@exept.de> parents: 2083 diff changeset	703	!
dc0785700fbb * empty log message * Claus Gittinger <cg@exept.de> parents: 2083 diff changeset	704
684 d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	705	javaPackage
d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	706	"the javaPackage - as seen by a java programmer.
d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	707	(with '/'s replaced by dots) extract from the fullName"
d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	708
d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	709	\|components\|
d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	710
d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	711	components := fullName asCollectionOfSubstringsSeparatedBy:$/.
d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	712	components size > 1 ifTrue:[
2554 46bb4696954a Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 2436 diff changeset	713	^ (components copyButLast:1) asStringWith:$.
684 d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	714	].
d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	715	^ fullName
d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	716
d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	717	"
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	718	Java allClasses first fullName
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	719	Java allClasses first javaPackage
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	720	Java allClasses first package
684 d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	721	"
d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	722	!
d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	723
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	724	javaPackageAsDirname
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	725	"the javaPackage - as directory in class path"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	726
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	727	\|components\|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	728
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	729	components := fullName asCollectionOfSubstringsSeparatedBy:$/.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	730	components size > 1 ifTrue:[
2554 46bb4696954a Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 2436 diff changeset	731	^ (components copyButLast:1) asStringWith: Filename separator
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	732	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	733	^ fullName
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	734
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	735	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	736	Java allClasses first fullName
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	737	Java allClasses first javaPackage
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	738	Java allClasses first package
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	739	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	740
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	741	"Created: / 30-11-2010 / 12:17:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	742	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	743
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	744	javaWrapperClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	745
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	746	fullName == #'java/lang/String' ifTrue:[ ^ String ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	747	self error:'Should not happen'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	748
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	749	"Created: / 20-04-2012 / 20:03:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	750	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	751
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	752	lastName
08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	753	^ fullName copyFrom:(fullName lastIndexOf:$/)+1
08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	754
08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	755	"Created: / 5.11.1998 / 19:16:00 / cg"
08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	756	!
08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	757
8 4df3a66460a3 can now read (undoc) 3.45 format cg parents: 7 diff changeset	758	name
27 4560bb77bb36 checkin from browser cg parents: 24 diff changeset	759	^ name "/ fullName
22 d22e13bdf100 checkin from browser cg parents: 21 diff changeset	760	!
d22e13bdf100 checkin from browser cg parents: 21 diff changeset	761
130 0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	762	nameWithoutNameSpacePrefix
0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	763	^ fullName
0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	764
0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	765	"Created: 20.1.1997 / 13:05:30 / cg"
0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	766	!
0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	767
0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	768	nameWithoutPrefix
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	769	^ self lastName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	770
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	771	"Created: / 20-01-1997 / 13:06:06 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	772	"Modified: / 20-04-2012 / 18:35:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
130 0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	773	!
0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	774
22 d22e13bdf100 checkin from browser cg parents: 21 diff changeset	775	package
684 d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	776	"the package (as seen by a smalltalk programmer)
d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	777	extract from the fullName, (with '/'s) and prepend 'java:'"
22 d22e13bdf100 checkin from browser cg parents: 21 diff changeset	778
686 aa412739da79 * empty log message * cg parents: 684 diff changeset	779	\|components p i\|
aa412739da79 * empty log message * cg parents: 684 diff changeset	780
aa412739da79 * empty log message * cg parents: 684 diff changeset	781	i := fullName lastIndexOf:$/.
aa412739da79 * empty log message * cg parents: 684 diff changeset	782	p := fullName copyTo:i - 1.
2083 85a87edefd8e checkin from browser Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	783	p size == 0 ifTrue:[
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	784	^ 'java'
2083 85a87edefd8e checkin from browser Claus Gittinger <cg@exept.de> parents: 2080 diff changeset	785	].
686 aa412739da79 * empty log message * cg parents: 684 diff changeset	786	"/ components := fullName asCollectionOfSubstringsSeparatedBy:$/.
aa412739da79 * empty log message * cg parents: 684 diff changeset	787	"/ components size > 1 ifTrue:[
aa412739da79 * empty log message * cg parents: 684 diff changeset	788	"/ p := (components copyWithoutLast:1) asStringWith:$/
aa412739da79 * empty log message * cg parents: 684 diff changeset	789	"/ ] ifFalse:[
aa412739da79 * empty log message * cg parents: 684 diff changeset	790	"/ p := fullName
aa412739da79 * empty log message * cg parents: 684 diff changeset	791	"/ ].
aa412739da79 * empty log message * cg parents: 684 diff changeset	792
684 d5ee4cc0ffc2 * empty log message * cg parents: 679 diff changeset	793	^ 'java:' , p
22 d22e13bdf100 checkin from browser cg parents: 21 diff changeset	794
d22e13bdf100 checkin from browser cg parents: 21 diff changeset	795	"
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	796	Java allClasses first fullName
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	797	Java allClasses first package
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	798	Java allClasses first javaPackage
22 d22e13bdf100 checkin from browser cg parents: 21 diff changeset	799	"
24 4a9822b95fc0 checkin from browser cg parents: 22 diff changeset	800	!
4a9822b95fc0 checkin from browser cg parents: 22 diff changeset	801
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	802	protectionDomain
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	803	^ protectionDomain
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	804	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	805
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	806	protectionDomain:something
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	807	protectionDomain := something.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	808	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	809
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	810	runtimeVisibleAnnotationsAsBytesOrNil
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	811	annotations ifNil:[ ^ nil ].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	812	annotations runtimeVisible ifNil:[ ^ nil ].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	813	^ annotations runtimeVisible bytes
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	814
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	815	"Created: / 25-02-2011 / 16:48:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	816	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	817
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	818	setSignature: aSymbol
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	819
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	820	signatureJ := aSymbol
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	821
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	822	"Created: / 13-08-2011 / 00:30:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	823	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	824
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	825	signatureJ
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	826
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	827	"stupid naming, but superclass defines signature too"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	828
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	829	^signatureJ
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	830
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	831	"Created: / 13-08-2011 / 00:30:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	832	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	833
76 9ff95e14dbfb * empty log message * cg parents: 74 diff changeset	834	source
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	835	^ sourceString notNil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	836	ifTrue: [ sourceString ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	837	ifFalse:[ Java classSourceOf:self ]
76 9ff95e14dbfb * empty log message * cg parents: 74 diff changeset	838
9ff95e14dbfb * empty log message * cg parents: 74 diff changeset	839	"
9ff95e14dbfb * empty log message * cg parents: 74 diff changeset	840	(Java at:'java.awt.Frame') source
175 68da52e100ab * empty log message * cg parents: 172 diff changeset	841	(Java at:'ArcTest') source
68da52e100ab * empty log message * cg parents: 172 diff changeset	842	(Java at:'ArcCanvas') source
76 9ff95e14dbfb * empty log message * cg parents: 74 diff changeset	843	"
175 68da52e100ab * empty log message * cg parents: 172 diff changeset	844
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	845	"Modified: / 30-07-1997 / 14:31:01 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	846	"Modified: / 18-02-2012 / 19:10:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
76 9ff95e14dbfb * empty log message * cg parents: 74 diff changeset	847	!
9ff95e14dbfb * empty log message * cg parents: 74 diff changeset	848
24 4a9822b95fc0 checkin from browser cg parents: 22 diff changeset	849	sourceFile
4a9822b95fc0 checkin from browser cg parents: 22 diff changeset	850	^ sourceFile
83 2d61ef3579e4 * empty log message * cg parents: 79 diff changeset	851	!
2d61ef3579e4 * empty log message * cg parents: 79 diff changeset	852
2529 764ab6925cf5 Update compiler problems when old class is updated. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2521 diff changeset	853	sourceString
764ab6925cf5 Update compiler problems when old class is updated. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2521 diff changeset	854	^sourceString
764ab6925cf5 Update compiler problems when old class is updated. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2521 diff changeset	855
764ab6925cf5 Update compiler problems when old class is updated. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2521 diff changeset	856	"Created: / 19-04-2013 / 09:28:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
764ab6925cf5 Update compiler problems when old class is updated. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2521 diff changeset	857	!
764ab6925cf5 Update compiler problems when old class is updated. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2521 diff changeset	858
83 2d61ef3579e4 * empty log message * cg parents: 79 diff changeset	859	staticFields
2d61ef3579e4 * empty log message * cg parents: 79 diff changeset	860	^ staticFields
132 03c680d3427b * empty log message * cg parents: 130 diff changeset	861	!
03c680d3427b * empty log message * cg parents: 130 diff changeset	862
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	863	superinterface
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	864
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	865	\| ifaces \|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	866
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	867	self assert: self isInterface message: 'Type must be an interface'.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	868	(ifaces := self interfaces) size == 0 ifTrue:[^nil].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	869	ifaces size = 1 ifTrue:[^ifaces first].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	870
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	871	self error: 'Should not happen!!'.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	872	^nil
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	873
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	874	"Created: / 04-02-2011 / 12:35:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	875	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	876
2705 e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	877	topNameSpaceName
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	878	"Return the nameSpace of my topOwningClass (if private) or my own nameSpace."
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	879
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	880	"/ All classes loaded by system, ext or primordial class loader should go
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	881	"/ to namespace JAVA. The rest should go a namespace crated for its class loader.
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	882	"/ this allows for multiple versions of the class to be visible in the browser
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	883
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	884	\| systemLoader extLoader \|
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	885
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	886	classLoader isNil ifTrue:[ ^ #JAVA ].
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	887	systemLoader := JavaVM systemClassLoader.
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	888	systemLoader notNil ifTrue:[
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	889	classLoader == systemLoader ifTrue:[ ^ #JAVA ].
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	890	extLoader := systemLoader instVarNamed: #parent.
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	891	classLoader == extLoader ifTrue:[ ^ #JAVA ].
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	892	].
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	893
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	894	^ ('JAVA_' , (classLoader identityHash printStringRadix: 16 padTo: 8)) asSymbol.
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	895
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	896	"Created: / 03-09-2013 / 00:38:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	897	!
e693added0af Changed registration of Java classes into system dictionary. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2648 diff changeset	898
132 03c680d3427b * empty log message * cg parents: 130 diff changeset	899	typeOfField:aFieldName
03c680d3427b * empty log message * cg parents: 130 diff changeset	900
03c680d3427b * empty log message * cg parents: 130 diff changeset	901	fields do:[:aField \|
172 c3a531a73cda * empty log message * cg parents: 170 diff changeset	902	aField name = aFieldName ifTrue:[
c3a531a73cda * empty log message * cg parents: 170 diff changeset	903	^ aField type
c3a531a73cda * empty log message * cg parents: 170 diff changeset	904	]
132 03c680d3427b * empty log message * cg parents: 130 diff changeset	905	].
03c680d3427b * empty log message * cg parents: 130 diff changeset	906	self error:'no such field'
03c680d3427b * empty log message * cg parents: 130 diff changeset	907
03c680d3427b * empty log message * cg parents: 130 diff changeset	908	"
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	909	(JAVA at:#'java/awt/image/ColorModel') typeOfField:'pixel_bits'
132 03c680d3427b * empty log message * cg parents: 130 diff changeset	910	"
03c680d3427b * empty log message * cg parents: 130 diff changeset	911
03c680d3427b * empty log message * cg parents: 130 diff changeset	912	"Modified: 21.1.1997 / 22:48:28 / cg"
2504 08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	913	!
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	914
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	915	versions
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	916	"
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	917	Return all existing versions of this class.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	918	A new version is added when a class is
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	919	updated by runtime code reload and removed when all instances of
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	920	the version die
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	921	"
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	922
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	923	^ versions.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	924
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	925	"Created: / 14-04-2013 / 12:10:54 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	926	!
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	927
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	928	versions: aWeakArray
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	929	"
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	930	set this class' versions. It is expected that all versions of the
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	931	class will share the same weak array instance.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	932	"
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	933	versions := aWeakArray.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	934
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	935	"Created: / 14-04-2013 / 12:28:09 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
5 f026f5d20c15 checkin from browser cg parents: 3 diff changeset	936	! !
2578 fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	937
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	938	!JavaClass methodsFor:'accessing - java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	939
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	940	javaMirror
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	941	^self javaMirrorClass forClass: self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	942
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	943	"Created: / 01-08-2012 / 00:18:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	944	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	945
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	946	javaMirrorClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	947	^JavaMirror mirrorClassForJavaClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	948
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	949	"Created: / 31-07-2012 / 17:39:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	950	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	951
213 4b4b6ad3f5f8 * empty log message * cg parents: 204 diff changeset	952	!JavaClass methodsFor:'adding / removing'!
4b4b6ad3f5f8 * empty log message * cg parents: 204 diff changeset	953
4b4b6ad3f5f8 * empty log message * cg parents: 204 diff changeset	954	removeFromSystem
4b4b6ad3f5f8 * empty log message * cg parents: 204 diff changeset	955	Java removeClass:self
4b4b6ad3f5f8 * empty log message * cg parents: 204 diff changeset	956
4b4b6ad3f5f8 * empty log message * cg parents: 204 diff changeset	957	"Created: 12.8.1997 / 02:46:51 / cg"
4b4b6ad3f5f8 * empty log message * cg parents: 204 diff changeset	958	! !
4b4b6ad3f5f8 * empty log message * cg parents: 204 diff changeset	959
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	960	!JavaClass methodsFor:'autoboxing'!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	961
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	962	javaBox:anObject
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	963	^ anObject
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	964
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	965	"Created: / 14-08-2011 / 22:58:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	966	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	967
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	968	javaUnwrap: object
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	969
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	970	\| nm \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	971	nm := object class name.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	972
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	973	nm == #'java/lang/Byte' ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	974	^object instVarNamed: #value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	975	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	976	nm == #'java/lang/Short' ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	977	^object instVarNamed: #value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	978	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	979	nm == #'java/lang/Integer' ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	980	^object instVarNamed: #value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	981	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	982	nm == #'java/lang/Long' ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	983	^object instVarNamed: #value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	984	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	985	nm == #'java/lang/Character' ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	986	^Character codePoint: (object instVarNamed: #value)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	987	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	988	nm == #'java/lang/Boolean' ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	989	^(object instVarNamed: #value) == 1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	990	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	991	nm == #'java/lang/String' ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	992	^ Java as_ST_String: object
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	993	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	994	nm == #'java/lang/Class' ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	995	^ JavaVM classForJavaClassObject: object
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	996	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	997
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	998	^object
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	999
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1000	"Created: / 10-12-2011 / 19:54:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1001	"Modified: / 12-12-2011 / 18:05:29 / kursjan <kursjan@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1002	"Modified: / 21-08-2012 / 13:16:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1003	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1004
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1005	javaWrap: object
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1006
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1007	object isNil ifTrue:[ ^ nil ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1008
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1009	object class isJavaPrimitiveType ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1010	(self name == #'java/lang/Object' or:[self == object class javaWrapperClass]) ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1011	^object class javaWrapperClass newCleared
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1012	instVarNamed: #value put: object;
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1013	yourself
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1014	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1015	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1016
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1017	object isString ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1018	(self name == #'java/lang/Object' or:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1019	self name == #'java/lang/String']) ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1020	^ Java as_String: object
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1021	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1022	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1023
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1024	^object
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1025
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1026	"Modified: / 12-12-2011 / 18:05:29 / kursjan <kursjan@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1027	"Created: / 24-02-2012 / 19:32:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1028	! !
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1029
261 d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1030	!JavaClass methodsFor:'browser interface'!
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1031
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1032	isVisualStartable
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1033	"return true, if this is an application class,
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1034	which can be started via #open"
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1035	"/ if I have a main() method, I am
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1036
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1037	(self compiledMethodAt: #'main([Ljava/lang/String;)V') notNil ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1038	^ true
413 51672b6b5010 checkin from browser cg parents: 407 diff changeset	1039	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1040	(self isSubclassOf: (JavaVM at: 'java/applet/Applet')) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1041	^ true.
2087 2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1042	].
413 51672b6b5010 checkin from browser cg parents: 407 diff changeset	1043	^ false
261 d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1044	!
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1045
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1046	open
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1047	"start a thread for my main method"
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1048
413 51672b6b5010 checkin from browser cg parents: 407 diff changeset	1049	"/ if I have a main, call it ...
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1050
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1051	(self compiledMethodAt:#'main([Ljava/lang/String;)V') notNil ifTrue:[
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1052	^ self startMain
413 51672b6b5010 checkin from browser cg parents: 407 diff changeset	1053	].
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1054
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1055	"/ otherwise, create a frame and wrap me;
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1056	"/ as in:
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1057
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1058	"/ public static void main(String args[]) {
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1059	"/ Frame f = new Frame("myName");
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1060	"/ mySelf me = new mySelf();
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1061	"/
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1062	"/ me.init();
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1063	"/ me.start();
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1064	"/
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1065	"/ f.add("Center", me);
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1066	"/ f.setSize(300, 300);
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1067	"/ f.show();
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1068	"/ }
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1069
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1070	^ self startApplet
261 d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1071
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1072	"Created: / 15.1.1998 / 17:18:30 / cg"
413 51672b6b5010 checkin from browser cg parents: 407 diff changeset	1073	"Modified: / 3.11.1998 / 22:51:47 / cg"
261 d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1074	! !
d95d5a3cc475 lots of new stuff cg parents: 255 diff changeset	1075
183 d1d05241d1f5 checkin from browser cg parents: 181 diff changeset	1076	!JavaClass methodsFor:'compiler interface'!
d1d05241d1f5 checkin from browser cg parents: 181 diff changeset	1077
566 72e93eb27907 checkin from browser cg parents: 546 diff changeset	1078	browserClass
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1079	"return the browser to use for this class -
566 72e93eb27907 checkin from browser cg parents: 546 diff changeset	1080	this can be redefined in special classes, to get different browsers"
72e93eb27907 checkin from browser cg parents: 546 diff changeset	1081
679 8983c2db7e24 * empty log message * cg parents: 675 diff changeset	1082	"/ ^ JavaBrowser
8983c2db7e24 * empty log message * cg parents: 675 diff changeset	1083	^ super browserClass.
566 72e93eb27907 checkin from browser cg parents: 546 diff changeset	1084
72e93eb27907 checkin from browser cg parents: 546 diff changeset	1085	"Modified: / 14.10.1998 / 15:28:38 / cg"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1086	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1087
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1088	syntaxHighlighterClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1089	"return the class to use for syntaxHighlighting (prettyPrinting) this class -
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1090	this can be redefined in special classes, to highlight classes with
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1091	Lisp, Prolog, ASN1, Basic :-) or whatever syntax."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1092
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1093	^ self class == JavaClass ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1094	super syntaxHighlighterClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1095	] ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1096	JavaLanguage instance syntaxHighlighterClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1097	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1098
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1099	"Created: / 15-02-2012 / 01:43:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
183 d1d05241d1f5 checkin from browser cg parents: 181 diff changeset	1100	! !
d1d05241d1f5 checkin from browser cg parents: 181 diff changeset	1101
624 35975d55bbb5 checkin from browser cg parents: 619 diff changeset	1102	!JavaClass methodsFor:'compiling'!
35975d55bbb5 checkin from browser cg parents: 619 diff changeset	1103
35975d55bbb5 checkin from browser cg parents: 619 diff changeset	1104	recompileMethodsAccessingGlobal:aGlobalKey
35975d55bbb5 checkin from browser cg parents: 619 diff changeset	1105	"/ dummy for now
35975d55bbb5 checkin from browser cg parents: 619 diff changeset	1106
35975d55bbb5 checkin from browser cg parents: 619 diff changeset	1107	"Created: / 9.11.1999 / 16:42:09 / cg"
35975d55bbb5 checkin from browser cg parents: 619 diff changeset	1108	! !
35975d55bbb5 checkin from browser cg parents: 619 diff changeset	1109
160 1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	1110	!JavaClass methodsFor:'documentation support'!
1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	1111
626 ee0094f07603 oops cg parents: 625 diff changeset	1112	htmlDocumentation
ee0094f07603 oops cg parents: 625 diff changeset	1113	^ nil "/ replace by access to javadoc-generated documentation later
160 1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	1114
626 ee0094f07603 oops cg parents: 625 diff changeset	1115	"Modified: 22.3.1997 / 14:18:50 / cg"
160 1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	1116	! !
1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	1117
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1118	!JavaClass methodsFor:'exception handling support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1119
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1120	accepts: signal
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1121	"Return true, iff receicer is a throwable and
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1122	handles given signal (presumably another throwable class)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1123
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1124	\| cls \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1125
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1126	signal isJavaClass ifFalse:[ ^ false ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1127	self == signal ifTrue:[ ^ true ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1128	cls := signal.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1129	[ cls ~~ JavaObject ] whileTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1130	self == cls ifTrue:[ ^ true ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1131	cls := cls superclass.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1132	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1133	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1134
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1135	"Created: / 18-03-2012 / 14:19:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1136	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1137
2648 f871848ecfa8 Fixes in syntax highlighting and support for accepting code in the debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2591 diff changeset	1138	handlerForSignal:exceptionHandler context:theContext originator:originator
f871848ecfa8 Fixes in syntax highlighting and support for accepting code in the debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2591 diff changeset	1139	^nil
f871848ecfa8 Fixes in syntax highlighting and support for accepting code in the debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2591 diff changeset	1140
f871848ecfa8 Fixes in syntax highlighting and support for accepting code in the debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2591 diff changeset	1141	!
f871848ecfa8 Fixes in syntax highlighting and support for accepting code in the debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2591 diff changeset	1142
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1143	handles: anObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1144
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1145	Transcript showCR:'>>>> JavaClass>>handles: ' , anObject printString.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1146	Transcript showCR:' from: ', thisContext sender printString.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1147	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1148
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1149	"Created: / 18-03-2012 / 14:19:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1150	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1151
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1152	isControlInterrupt
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1153	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1154
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1155	"Created: / 20-08-2012 / 14:17:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1156	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1157
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1158	isExceptionCreator
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1159
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1160	"/ ^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1161	^self isThrowable
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1162
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1163	"Created: / 18-03-2012 / 20:34:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1164	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1165
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1166	isExceptionHandler
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1167
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1168	"/ ^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1169	^self isThrowable
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1170
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1171	"Created: / 18-03-2012 / 14:18:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1172	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1173
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1174	isQuerySignal
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1175
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1176	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1177
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1178	"Created: / 18-03-2012 / 22:18:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1179	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1180
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1181	isThrowable
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1182	"Returns true, if the receiver is an instance
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1183	of java.lang.Throwable, false otherwise"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1184
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1185	\| cls \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1186	cls := self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1187	[ cls ~~ JavaObject ] whileTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1188	cls name == #'java/lang/Throwable' ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1189	^true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1190	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1191	cls := cls superclass.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1192	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1193	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1194
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1195	"Created: / 18-03-2012 / 20:35:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1196	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1197
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1198	mapyProceed
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1199
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1200	"Created: / 18-03-2012 / 20:35:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1201	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1202
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1203	parent
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1204
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1205	^nil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1206
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1207	"Created: / 18-03-2012 / 22:19:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1208	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1209
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1210	signal
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1211
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1212	^self class.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1213
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1214	"Created: / 05-07-2012 / 08:56:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1215	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1216
312 f753abec575a more app-starters cg parents: 281 diff changeset	1217	!JavaClass methodsFor:'executing programs'!
f753abec575a more app-starters cg parents: 281 diff changeset	1218
626 ee0094f07603 oops cg parents: 625 diff changeset	1219	startApplet
2087 2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1220	\|f me stub top appFrame\|
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1221
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1222	top := StandardSystemView new.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1223	appFrame := JavaEmbeddedFrameView new.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1224	appFrame origin:0.0@0.0 corner:1.0@1.0.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1225	top addSubView:appFrame.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1226
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1227	appFrame appletIsPreloaded:true.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1228	appFrame codeURL:'file:/dummy'.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1229	appFrame codeBaseURL:'file:/dummy'.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1230	appFrame autoSetupApplet:true.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1231	appFrame autoStartApplet:true.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1232	appFrame autoDestroyApplet:true.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1233
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1234
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1235	top open.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1236	^ self.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1237
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1238	"/ TODO: setup embeddedAppletFrame correctly
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1239	"/ (for getParameter to work ...)
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1240
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1241	"/ create a frame and wrap me;
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1242	"/ as in:
693 2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1243
2087 2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1244	"/ public static void main(String args[]) {
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1245	"/ Frame f = new Frame("myName");
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1246	"/ mySelf me = new mySelf();
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1247	"/
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1248	"/ me.init();
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1249	"/ me.start();
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1250	"/
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1251	"/ f.add("Center", me);
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1252	"/ f.setSize(300, 300);
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1253	"/ f.show();
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1254	"/ }
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1255	f := (Java at:'java.awt.Frame') basicNew.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1256	f perform:#'<init>(Ljava/lang/String;)V' with:(Java as_String:self name).
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1257	self halt.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1258	me := self basicNew.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1259	me perform:#'<init>()V'.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1260	self halt.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1261
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1262	stub := (Java at:'netscape.applet.EmbeddedAppletFrame') new.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1263	me instVarNamed:'stub' put:stub.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1264	self halt.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1265
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1266	me perform:#'init()V'.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1267	me perform:#'start()V'.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1268	self halt.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1269
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1270	f perform:#'add(Ljava/lang/String;Ljava/awt/Component;)Ljava/awt/Component;'
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1271	with:(Java as_String:'Center')
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1272	with:me.
2087 2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1273	self halt.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1274	f perform:#'setSize(II)V' with:300 with:300.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1275	self halt.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1276	f perform:#'show()V'.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1277	self halt.
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1278
2e1a2d10b891 * empty log message * Claus Gittinger <cg@exept.de> parents: 2085 diff changeset	1279	"Modified: / 3.11.1998 / 23:04:41 / cg"
693 2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1280	"/ TODO: setup embeddedAppletFrame correctly
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1281	"/ (for getParameter to work ...)
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1282
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1283	"/ create a frame and wrap me;
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1284	"/ as in:
626 ee0094f07603 oops cg parents: 625 diff changeset	1285
693 2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1286	"/ public static void main(String args[]) {
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1287	"/ Frame f = new Frame("myName");
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1288	"/ mySelf me = new mySelf();
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1289	"/
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1290	"/ me.init();
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1291	"/ me.start();
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1292	"/
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1293	"/ f.add("Center", me);
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1294	"/ f.setSize(300, 300);
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1295	"/ f.show();
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1296	"/ }
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1297	f := (Java at:'java.awt.Frame') basicNew.
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1298	f perform:#'<init>(Ljava/lang/String;)V' with:(Java as_String:self name).
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1299	self halt.
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1300	me := self basicNew.
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1301	me perform:#'<init>()V'.
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1302	self halt.
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1303
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1304	stub := (Java at:'netscape.applet.EmbeddedAppletFrame') new.
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1305	me instVarNamed:'stub' put:stub.
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1306	self halt.
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1307
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1308	me perform:#'init()V'.
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1309	me perform:#'start()V'.
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1310	self halt.
2beae7b13cdb * empty log message * cg parents: 691 diff changeset	1311
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1312	f perform:#'add(Ljava/lang/String;Ljava/awt/Component;)Ljava/awt/Component;'
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1313	with:(Java as_String:'Center')
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1314	with:me.
626 ee0094f07603 oops cg parents: 625 diff changeset	1315	self halt.
413 51672b6b5010 checkin from browser cg parents: 407 diff changeset	1316	f perform:#'setSize(II)V' with:300 with:300.
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1317	self halt.
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1318	f perform:#'show()V'.
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1319	self halt.
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1320
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1321	"Modified: / 3.11.1998 / 23:04:41 / cg"
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1322	!
51672b6b5010 checkin from browser cg parents: 407 diff changeset	1323
626 ee0094f07603 oops cg parents: 625 diff changeset	1324	startMain
ee0094f07603 oops cg parents: 625 diff changeset	1325	"start a thread for my main() method"
ee0094f07603 oops cg parents: 625 diff changeset	1326
ee0094f07603 oops cg parents: 625 diff changeset	1327	^ self startMainWithArgumentString:nil
ee0094f07603 oops cg parents: 625 diff changeset	1328
ee0094f07603 oops cg parents: 625 diff changeset	1329	"Modified: / 30.12.1998 / 20:24:58 / cg"
ee0094f07603 oops cg parents: 625 diff changeset	1330	!
312 f753abec575a more app-starters cg parents: 281 diff changeset	1331
626 ee0094f07603 oops cg parents: 625 diff changeset	1332	startMainWithArgumentString:aCommandLineString
ee0094f07603 oops cg parents: 625 diff changeset	1333	"start a thread for my main() method, passing a string with arguments"
ee0094f07603 oops cg parents: 625 diff changeset	1334
ee0094f07603 oops cg parents: 625 diff changeset	1335	\|p\|
312 f753abec575a more app-starters cg parents: 281 diff changeset	1336
626 ee0094f07603 oops cg parents: 625 diff changeset	1337	p := Java javaProcessForMainOf:self argumentString:aCommandLineString.
ee0094f07603 oops cg parents: 625 diff changeset	1338	p notNil ifTrue:[
2561 2e27f294057e exception access Claus Gittinger <cg@exept.de> parents: 2554 diff changeset	1339	p resume.
2e27f294057e exception access Claus Gittinger <cg@exept.de> parents: 2554 diff changeset	1340	AbortOperationRequest handle:[:ex \|
626 ee0094f07603 oops cg parents: 625 diff changeset	1341	p == JavaVM javaScreenUpdaterThread ifTrue:[self halt].
654 da8d060a3150 checkin from browser cg parents: 651 diff changeset	1342	p == JavaVM javaEventQueueThread ifTrue:[self halt].
2561 2e27f294057e exception access Claus Gittinger <cg@exept.de> parents: 2554 diff changeset	1343	p terminate.
2e27f294057e exception access Claus Gittinger <cg@exept.de> parents: 2554 diff changeset	1344	ex reject.
2e27f294057e exception access Claus Gittinger <cg@exept.de> parents: 2554 diff changeset	1345	] do:[
2e27f294057e exception access Claus Gittinger <cg@exept.de> parents: 2554 diff changeset	1346	p waitUntilTerminated
2e27f294057e exception access Claus Gittinger <cg@exept.de> parents: 2554 diff changeset	1347	].
508 21d8af9a9b41 checkin from browser cg parents: 492 diff changeset	1348	]
21d8af9a9b41 checkin from browser cg parents: 492 diff changeset	1349
654 da8d060a3150 checkin from browser cg parents: 651 diff changeset	1350	"Modified: / 24.12.1999 / 02:35:04 / cg"
626 ee0094f07603 oops cg parents: 625 diff changeset	1351	! !
312 f753abec575a more app-starters cg parents: 281 diff changeset	1352
626 ee0094f07603 oops cg parents: 625 diff changeset	1353	!JavaClass methodsFor:'fileOut'!
ee0094f07603 oops cg parents: 625 diff changeset	1354
ee0094f07603 oops cg parents: 625 diff changeset	1355	basicFileOutDefinitionOn:aStream withNameSpace:nameSpaceBoolean
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1356
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1357	\| source \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1358	source := self theNonMetaclass source.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1359	source notNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1360	aStream nextPutAll: source
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1361	] ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1362	JavaDecompiler definitionOf:self on:aStream
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1363	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1364
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1365	"Modified: / 22-03-1997 / 14:30:28 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1366	"Modified: / 14-12-2011 / 22:22:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
626 ee0094f07603 oops cg parents: 625 diff changeset	1367	!
ee0094f07603 oops cg parents: 625 diff changeset	1368
ee0094f07603 oops cg parents: 625 diff changeset	1369	fileOut
ee0094f07603 oops cg parents: 625 diff changeset	1370	self warn:'fileOut not yet supported'
ee0094f07603 oops cg parents: 625 diff changeset	1371
ee0094f07603 oops cg parents: 625 diff changeset	1372	"Modified: 22.3.1997 / 14:30:28 / cg"
ee0094f07603 oops cg parents: 625 diff changeset	1373	"Created: 22.3.1997 / 14:35:43 / cg"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1374	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1375
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1376	fileOutInto: directory
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1377	"writes itself into the given directory including package hierarchy"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1378
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1379	\| packageDir \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1380	packageDir := directory / self javaPackageAsDirname.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1381	packageDir recursiveMakeDirectory.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1382	packageDir / (self lastName , '.java')
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1383	writingFileDo: [:out \| self fileOutOn: out ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1384
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1385	"Created: / 08-12-2012 / 22:32:19 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1386	"Modified: / 09-12-2012 / 09:07:58 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1387	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1388
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1389	fileOutMethod:aMethod on:aStream
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1390	"file out aMethod onto aStream. Used for example to write individual changeChunks"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1391
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1392	\|cat source privacy\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1393
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1394	self assert: aMethod programmingLanguage isSmalltalk.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1395
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1396	aStream nextPutChunkSeparator.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1397	"/ aStream nextPutAll: 'JAVA'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1398	"/ (self name tokensBasedOn: $/) do:[:each\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1399	"/ aStream space; nextPutAll: each.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1400	"/ ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1401	aStream nextPutAll:'(Java classForName:'''.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1402	aStream nextPutAll:(self name copyReplaceAll:$/ with: $.).
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1403	aStream nextPutAll:''')'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1404
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1405	(privacy := aMethod privacy) ~~ #public ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1406	aStream space; nextPutAll:privacy; nextPutAll:'MethodsFor:'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1407	] ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1408	aStream nextPutAll:' methodsFor:'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1409	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1410
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1411	cat := aMethod category ? ''.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1412	aStream nextPutAll:cat asString storeString.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1413	aStream nextPutChunkSeparator; cr; cr.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1414
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1415	source := aMethod source.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1416	source isNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1417	FileOutErrorSignal
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1418	raiseRequestWith:self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1419	errorString:(' - no source for method: ' ,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1420	self name , '>>' ,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1421	(self selectorAtMethod:aMethod))
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1422	] ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1423	aStream nextChunkPut:source.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1424	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1425	aStream space.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1426	aStream nextPutChunkSeparator.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1427	aStream cr
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1428
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1429	"Created: / 05-09-2012 / 00:01:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1430	"Modified: / 07-11-2012 / 23:43:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1431	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1432
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1433	fileOutOn: aWriteStream
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1434	aWriteStream nextPutAll: self theNonMetaclass source.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1435
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1436	"Created: / 08-12-2012 / 22:25:28 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1437	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1438
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1439	!JavaClass methodsFor:'interop support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1440
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1441	perform:aMessage onReceiver:receiver from:sender ifNotFound:aBlock
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1442
2521 c8bbef09a411 Added skipInDebuggerWklkback pragma to show the relevant context when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2504 diff changeset	1443	<resource: #skipInDebuggersWalkBack>
c8bbef09a411 Added skipInDebuggerWklkback pragma to show the relevant context when Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2504 diff changeset	1444
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1445	\| lo method selector class args\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1446	selector := aMessage selector.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1447	args := aMessage arguments.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1448
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1449	(selector includes: $() ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1450	"Java selector, search static methods"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1451	method := methodDictionary at:selector ifAbsent:[nil].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1452	method notNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1453	method isStatic ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1454	^ method
2648 f871848ecfa8 Fixes in syntax highlighting and support for accepting code in the debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2591 diff changeset	1455	valueWithReceiver:self arguments:args selector:selector search:self class
f871848ecfa8 Fixes in syntax highlighting and support for accepting code in the debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2591 diff changeset	1456
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1457	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1458	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1459	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1460
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1461	class := self class.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1462
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1463	JavaLookup isNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1464	(Smalltalk loadPackage: 'stx:libjava/experiments') ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1465	self error: 'You should load package stx:libjava/experiments if you want some interop - still experimental' mayProceed: true.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1466	^nil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1467	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1468	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1469
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1470
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1471	lo := class getLookupObject isNil ifTrue: [ JavaLookup instance ] ifFalse: [ class lookupObject ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1472
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1473	method := lo lookupMethodForSelector: selector
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1474	directedTo: class
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1475	for: receiver
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1476	withArguments: args
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1477	from: thisContext sender
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1478	ilc: nil.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1479
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1480	method isNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1481	^aBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1482	] ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1483	^ method valueWithReceiver: receiver arguments: args
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1484	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1485
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1486	"Created: / 19-09-2011 / 23:33:06 / Jan Kurs <kursjan@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1487	"Modified: / 10-04-2012 / 16:47:31 / kursjan"
2648 f871848ecfa8 Fixes in syntax highlighting and support for accepting code in the debugger. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2591 diff changeset	1488	"Modified: / 09-08-2013 / 00:48:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
130 0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	1489	! !
0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	1490
43 2c4ca2eb8d07 checkin from browser cg parents: 42 diff changeset	1491	!JavaClass methodsFor:'java initialization'!
2c4ca2eb8d07 checkin from browser cg parents: 42 diff changeset	1492
626 ee0094f07603 oops cg parents: 625 diff changeset	1493	classInit
ee0094f07603 oops cg parents: 625 diff changeset	1494	"call the classes JAVA clinit function"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1495
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1496	\| m \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1497	(accessFlags bitAnd: ACX_INITIALIZED) ~~ 0 ifTrue: [ ^ self ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1498	(accessFlags bitAnd: ACX_INITIALIZING) ~~ 0 ifTrue: [ ^ self ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1499	accessFlags := accessFlags bitOr: ACX_INITIALIZING.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1500	superclass ~~ JavaObject ifTrue: [ superclass classInit ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1501	"JV@2011-12-03: Also call initializeStaticFields"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1502	self initializeStaticFields.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1503	m := self compiledMethodAt: #'<clinit>()V'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1504	m notNil ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1505	"/Logger log: ('calling <clinit>()V of %1' bindWith: self name) severity: #trace facility: 'JVM'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1506	OrderOfClassInits notNil ifTrue: [ OrderOfClassInits add: self. ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1507	m
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1508	valueWithReceiver: self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1509	arguments: #()
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1510	selector: #'<clinit>()V'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1511	search: self class
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1512	sender: nil.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1513	"/Logger log: ('calling <clinit>()V of %1 done' bindWith: self name) severity: #trace facility: 'JVM'.
626 ee0094f07603 oops cg parents: 625 diff changeset	1514	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1515	accessFlags := accessFlags bitOr: ACX_INITIALIZED.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1516	accessFlags := accessFlags bitAnd: ACX_INITIALIZING bitInvert32.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1517
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1518	(JavaVM booted and: [JavaVM eagerResolvingEnabled] )ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1519	JavaClassReader classLoaderQuerySignal answer: classLoader
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1520	do: [ self resolveAll. ]
626 ee0094f07603 oops cg parents: 625 diff changeset	1521	].
ee0094f07603 oops cg parents: 625 diff changeset	1522
ee0094f07603 oops cg parents: 625 diff changeset	1523	"
ee0094f07603 oops cg parents: 625 diff changeset	1524	JavaVM instructionTrace:true.
ee0094f07603 oops cg parents: 625 diff changeset	1525	JavaVM callTrace:true.
ee0094f07603 oops cg parents: 625 diff changeset	1526
ee0094f07603 oops cg parents: 625 diff changeset	1527	(Java classNamed:'java.lang.String') classInit
ee0094f07603 oops cg parents: 625 diff changeset	1528	(Java classNamed:'java.lang.System') classInit
ee0094f07603 oops cg parents: 625 diff changeset	1529
ee0094f07603 oops cg parents: 625 diff changeset	1530	(Java classNamed:'java/io/FileDescriptor') classInit
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1531	(Java classNamed:'java.util.Properties') classInit"
175 68da52e100ab * empty log message * cg parents: 172 diff changeset	1532
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1533	"Modified: / 12-11-1998 / 15:41:11 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1534	"Modified: / 18-08-2011 / 19:37:33 / jv"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1535	"Modified: / 03-12-2011 / 12:19:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1536	"Modified: / 08-12-2011 / 21:05:21 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1537	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1538
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1539	classInitInternal
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1540	"Called by the JIT-compiled code when a class needs to be initialized"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1541
2583 064a97a8936d Fix in classInitInternal. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	1542	\| m \|
064a97a8936d Fix in classInitInternal. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	1543
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1544	self classInit.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1545	"Force recompilation"
2583 064a97a8936d Fix in classInitInternal. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	1546	(m := thisContext sender method) isJavaMethod ifTrue:[m flushCode].
064a97a8936d Fix in classInitInternal. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	1547
064a97a8936d Fix in classInitInternal. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	1548
626 ee0094f07603 oops cg parents: 625 diff changeset	1549	!
ee0094f07603 oops cg parents: 625 diff changeset	1550
ee0094f07603 oops cg parents: 625 diff changeset	1551	initializeStaticFields
ee0094f07603 oops cg parents: 625 diff changeset	1552	staticFields isNil ifTrue:[^ self].
ee0094f07603 oops cg parents: 625 diff changeset	1553
ee0094f07603 oops cg parents: 625 diff changeset	1554	staticFields do:[:f \|
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1555	\|val type\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1556
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1557	(val := f constantValue) isNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1558	"/ careful: int/long etc. constants must be initialized
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1559	"/ with correct type.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1560	type := f type.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1561	type == #long ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1562	val := 0.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1563	] ifFalse:[type == #int ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1564	val := 0.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1565	] ifFalse:[type == #float ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1566	val := 0.0 asShortFloat
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1567	] ifFalse:[type == #double ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1568	val := 0.0
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1569	] ifFalse:[type == #byte ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1570	val := 0.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1571	] ifFalse:[type == #char ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1572	val := 0.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1573	] ifFalse:[type == #'unsigned short' ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1574	val := 0.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1575	] ifFalse:[type == #boolean ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1576	val := 0.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1577	]]]]]]]].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1578	] ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1579	val class == JavaStringRef2 ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1580	val := val resolve
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1581	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1582	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1583	self instVarNamed:(f name) put:val.
60 a763b1780ec0 checkin from browser cg parents: 54 diff changeset	1584	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1585
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1586	"Modified: / 03-12-2011 / 12:28:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1587	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1588
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1589	resolveAll
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1590	"resolve every ref in constantPool"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1591
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1592	constantPool do: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1593	:each \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1594	(each isJavaRef or: [ each isJavaNameAndType ]) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1595	each resolve: false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1596	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1597	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1598
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1599	"Created: / 18-11-2011 / 15:26:45 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1600	"Modified: / 23-02-2012 / 17:14:09 / Marcel Hlopko <hlopik@gmail.com>"
626 ee0094f07603 oops cg parents: 625 diff changeset	1601	! !
ee0094f07603 oops cg parents: 625 diff changeset	1602
ee0094f07603 oops cg parents: 625 diff changeset	1603	!JavaClass methodsFor:'java instance creation'!
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	1604
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1605	basicNew
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1606	"Create a new cleared JAVA instance. Its instVars are cleared to the
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1607	corresponding typed values; however, constructor is not invoked."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1608
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1609	"/ Reimplemeted for speed as a C function. That function is
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1610	"/ also called from JIT-compiled code, resulting in 40-50% speedup
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1611	"/ when running Java code
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1612
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1613	%{
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1614	extern OBJ ___new();
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1615	RETURN ( ___new(self) );
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1616	%}.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1617	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1618	memory allocation failed.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1619	When we arrive here, there was no memory, even after
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1620	a garbage collect.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1621	This means, that the VM wanted to get some more memory from the
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1622	Operatingsystem, which was not kind enough to give it.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1623	Bad luck - you should increase the swap space on your machine.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1624	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1625	^ ObjectMemory allocationFailureSignal raise.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1626
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1627
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1628	"/ Following code is original Smalltalk implementation"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1629
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1630
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1631	"/\| newJavaObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1632	"/ sz "{ Class: SmallInteger }"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1633	"/ offs "{ Class: SmallInteger }"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1634	"/\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1635	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1636	(accessFlags bitAnd: ACX_ABSTRACT_OR_INTERFACE) ~~ 0 ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1637	JavaVM throwInstantiationExceptionFor: self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1638	^ nil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1639	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1640	newJavaObject := super basicNew.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1641	offs := JavaObject instSize.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1642	offs > 0 ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1643	"Assume first is lockword"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1644	newJavaObject instVarAt: 1 put: 0.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1645	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1646	initValues notNil ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1647	sz := self instSize.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1648	offs + 1 to: sz do: [:i \| newJavaObject instVarAt: i put: (initValues at: i - offs) ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1649	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1650	self hasFinalize ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1651	newJavaObject registerForFinalization
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1652	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1653
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1654
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1655	^ newJavaObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1656	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1657
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1658	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1659	(Java classNamed:'java.lang.String') basicNew inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1660	(Java classNamed:'java.lang.String') newCleared inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1661	(Java classNamed:'java.lang.String') new inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1662	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1663
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1664	"Created: / 02-11-2012 / 21:02:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1665	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1666
626 ee0094f07603 oops cg parents: 625 diff changeset	1667	initValueFor:instVarName
ee0094f07603 oops cg parents: 625 diff changeset	1668	\|idx field\|
ee0094f07603 oops cg parents: 625 diff changeset	1669
ee0094f07603 oops cg parents: 625 diff changeset	1670	idx := fields findFirst:[:field \| field name = instVarName].
ee0094f07603 oops cg parents: 625 diff changeset	1671	idx == 0 ifTrue:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1672	superclass ~~ JavaObject ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1673	^ superclass initValueFor:instVarName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1674	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1675	^0 "/lockWord"
52 1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	1676	] ifFalse:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1677	field := fields at:idx.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1678	^ field initialValue
52 1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	1679	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1680
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1681	"Modified: / 26-08-2012 / 20:08:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
52 1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	1682	!
1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	1683
626 ee0094f07603 oops cg parents: 625 diff changeset	1684	newCleared
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1685	<resource: #obsolete>
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1686	"Use #basicNew"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1687
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1688	^self basicNew
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1689
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1690	"Modified: / 13-11-1998 / 14:10:45 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1691	"Modified: / 10-03-2011 / 22:38:40 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1692	"Modified: / 02-11-2012 / 21:08:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
451 50d24dc93f8b checkin from browser cg parents: 438 diff changeset	1693	!
50d24dc93f8b checkin from browser cg parents: 438 diff changeset	1694
626 ee0094f07603 oops cg parents: 625 diff changeset	1695	newWith_String:argString
ee0094f07603 oops cg parents: 625 diff changeset	1696	"create a new instance, preset its fields,
ee0094f07603 oops cg parents: 625 diff changeset	1697	and call its JAVA init function passing a String arg"
ee0094f07603 oops cg parents: 625 diff changeset	1698
ee0094f07603 oops cg parents: 625 diff changeset	1699	\|newJavaObject\|
ee0094f07603 oops cg parents: 625 diff changeset	1700
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1701	newJavaObject := self basicNew.
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1702	newJavaObject
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1703	perform:#'<init>(Ljava/lang/String;)V'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1704	with:(Java as_String:argString).
626 ee0094f07603 oops cg parents: 625 diff changeset	1705	^ newJavaObject
ee0094f07603 oops cg parents: 625 diff changeset	1706
ee0094f07603 oops cg parents: 625 diff changeset	1707	"
ee0094f07603 oops cg parents: 625 diff changeset	1708	((Java classNamed:'java.lang.ArrayStoreException') newWith_String:'foo') inspect
ee0094f07603 oops cg parents: 625 diff changeset	1709	"
ee0094f07603 oops cg parents: 625 diff changeset	1710
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1711	"Modified: / 04-11-1998 / 18:04:34 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1712	"Created: / 13-11-1998 / 14:17:01 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1713	"Modified: / 02-11-2012 / 21:11:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
626 ee0094f07603 oops cg parents: 625 diff changeset	1714	!
ee0094f07603 oops cg parents: 625 diff changeset	1715
ee0094f07603 oops cg parents: 625 diff changeset	1716	newWith_int:arg
ee0094f07603 oops cg parents: 625 diff changeset	1717	"create a new instance, preset its fields,
ee0094f07603 oops cg parents: 625 diff changeset	1718	and call its JAVA init function passing an int arg"
ee0094f07603 oops cg parents: 625 diff changeset	1719
ee0094f07603 oops cg parents: 625 diff changeset	1720	\|newJavaObject\|
ee0094f07603 oops cg parents: 625 diff changeset	1721
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1722	newJavaObject := self basicNew.
626 ee0094f07603 oops cg parents: 625 diff changeset	1723	newJavaObject perform:#'<init>(I)V' with:arg.
ee0094f07603 oops cg parents: 625 diff changeset	1724	^ newJavaObject
ee0094f07603 oops cg parents: 625 diff changeset	1725
ee0094f07603 oops cg parents: 625 diff changeset	1726	"
ee0094f07603 oops cg parents: 625 diff changeset	1727	((Java classNamed:'java.lang.Integer') newWith_int:123) inspect
451 50d24dc93f8b checkin from browser cg parents: 438 diff changeset	1728	"
50d24dc93f8b checkin from browser cg parents: 438 diff changeset	1729
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1730	"Modified: / 04-11-1998 / 18:04:34 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1731	"Created: / 13-11-1998 / 14:17:01 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1732	"Modified: / 02-11-2012 / 21:11:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1733	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1734
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1735	!JavaClass methodsFor:'java instance creation-proxying'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1736
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1737	new
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1738	"create a new instance, preset its fields,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1739	and call its JAVA init function"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1740
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1741	\|newJavaObject\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1742
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1743	newJavaObject := self basicNew.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1744	newJavaObject initialize.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1745	^ newJavaObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1746
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1747	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1748	(Java classNamed:'java.lang.String') basicNew inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1749	(Java classNamed:'java.lang.String') newCleared inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1750	(Java classNamed:'java.lang.String') new inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1751	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1752
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1753	"Modified: / 04-11-1998 / 18:04:34 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1754	"Modified: / 09-06-2012 / 21:48:36 / Jan Kurs (kursjan@fit.cvut.cz)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1755	"Modified: / 02-11-2012 / 21:10:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1756	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1757
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1758	new: arg1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1759	"create a new instance and call one-arg constructor"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1760
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1761	\|newJavaObject\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1762
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1763	newJavaObject := self basicNew.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1764	newJavaObject perform:#'<init>:' with: arg1.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1765	^ newJavaObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1766
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1767	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1768	(Java classNamed:'java.lang.String') basicNew inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1769	(Java classNamed:'java.lang.String') newCleared inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1770	(Java classNamed:'java.lang.String') new inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1771	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1772
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1773	"Modified: / 04-11-1998 / 18:04:34 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1774	"Created: / 17-03-2012 / 15:09:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1775	"Modified: / 02-11-2012 / 21:10:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1776	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1777
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1778	new: arg1 _: arg2
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1779	^self new: arg1 with: arg2
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1780
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1781	"Modified: / 04-11-1998 / 18:04:34 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1782	"Created: / 17-03-2012 / 15:12:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1783	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1784
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1785	new: arg1 _: arg2 _: arg3
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1786	^self new: arg1 with: arg2 with: arg3
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1787
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1788	"Modified: / 04-11-1998 / 18:04:34 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1789	"Created: / 17-03-2012 / 15:13:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1790	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1791
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1792	new: arg1 _: arg2 _: arg3 _: arg4
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1793	^self new: arg1 with: arg2 with: arg3 with: arg4
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1794
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1795	"Modified: / 04-11-1998 / 18:04:34 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1796	"Created: / 17-03-2012 / 15:13:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1797	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1798
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1799	new: arg1 _: arg2 _: arg3 _: arg4 _: arg5
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1800	^ self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1801	new: arg1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1802	with: arg2
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1803	with: arg3
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1804	with: arg4
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1805	with: arg5
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1806
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1807	"Modified: / 04-11-1998 / 18:04:34 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1808	"Created: / 17-03-2012 / 15:13:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1809	"Created: / 03-04-2012 / 12:17:46 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1810	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1811
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1812	new: arg1 with: arg2
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1813	"create a new instance and call 2-arg constructor"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1814
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1815	\|newJavaObject\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1816
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1817	newJavaObject := self basicNew.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1818	newJavaObject perform:#'<init>:_:' with: arg1 with: arg2.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1819	^ newJavaObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1820
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1821	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1822	(Java classNamed:'java.lang.String') basicNew inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1823	(Java classNamed:'java.lang.String') newCleared inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1824	(Java classNamed:'java.lang.String') new inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1825	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1826
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1827	"Modified: / 04-11-1998 / 18:04:34 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1828	"Created: / 17-03-2012 / 15:12:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1829	"Modified: / 02-11-2012 / 21:10:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1830	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1831
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1832	new: arg1 with: arg2 with: arg3
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1833	"create a new instance and call 3-arg constructor"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1834
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1835	\|newJavaObject\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1836
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1837	newJavaObject := self basicNew.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1838	newJavaObject perform:#'<init>:_:_:' with: arg1 with: arg2 with: arg3.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1839	^ newJavaObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1840
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1841	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1842	(Java classNamed:'java.lang.String') basicNew inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1843	(Java classNamed:'java.lang.String') newCleared inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1844	(Java classNamed:'java.lang.String') new inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1845	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1846
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1847	"Modified: / 04-11-1998 / 18:04:34 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1848	"Created: / 17-03-2012 / 15:12:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1849	"Modified: / 02-11-2012 / 21:10:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1850	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1851
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1852	new: arg1 with: arg2 with: arg3 with: arg4
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1853	"create a new instance and call 4-arg constructor"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1854
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1855	\|newJavaObject\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1856
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1857	newJavaObject := self basicNew.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1858	newJavaObject perform:#'<init>:_:_:_:' with: arg1 with: arg2 with: arg3 with: arg4.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1859	^ newJavaObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1860
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1861	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1862	(Java classNamed:'java.lang.String') basicNew inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1863	(Java classNamed:'java.lang.String') newCleared inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1864	(Java classNamed:'java.lang.String') new inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1865	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1866
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1867	"Modified: / 04-11-1998 / 18:04:34 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1868	"Created: / 17-03-2012 / 15:12:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1869	"Modified: / 02-11-2012 / 21:10:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1870	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1871
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1872	new: arg1 with: arg2 with: arg3 with: arg4 with: arg5
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1873	"create a new instance and call 4-arg constructor"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1874
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1875	\| newJavaObject \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1876	newJavaObject := self basicNew.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1877	newJavaObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1878	perform: #'<init>:_:_:_:_:'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1879	with: arg1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1880	with: arg2
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1881	with: arg3
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1882	with: arg4
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1883	with: arg5.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1884	^ newJavaObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1885
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1886	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1887	(Java classNamed:'java.lang.String') basicNew inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1888	(Java classNamed:'java.lang.String') newCleared inspect
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1889	(Java classNamed:'java.lang.String') new inspect"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1890
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1891	"Modified: / 04-11-1998 / 18:04:34 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1892	"Created: / 17-03-2012 / 15:12:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1893	"Created: / 02-04-2012 / 10:52:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1894	"Modified: / 02-11-2012 / 21:10:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
43 2c4ca2eb8d07 checkin from browser cg parents: 42 diff changeset	1895	! !
2c4ca2eb8d07 checkin from browser cg parents: 42 diff changeset	1896
229 b91c9462ac83 * empty log message * cg parents: 215 diff changeset	1897	!JavaClass methodsFor:'message sending'!
43 2c4ca2eb8d07 checkin from browser cg parents: 42 diff changeset	1898
626 ee0094f07603 oops cg parents: 625 diff changeset	1899	doesNotUnderstand:aMessage
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1900	\| sender \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1901	sender := thisContext sender.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1902	^self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1903	perform: aMessage
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1904	onReceiver: self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1905	from: sender
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1906	ifNotFound: [ super doesNotUnderstand: aMessage ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1907
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1908	"Modified: / 16-11-1998 / 16:50:56 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1909	"Modified: / 19-09-2011 / 23:43:56 / Jan Kurs <kursjan@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1910	"Modified (comment): / 01-01-2012 / 19:36:41 / kursjan <kursjan@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1911	"Modified: / 03-01-2012 / 21:02:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1912	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1913
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1914	lookupFieldFor:fname static: searchStatic onlyPublic: publicOnly
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1915	"Lookup a field with given name in class and all
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1916	its subclasses, return an instance of JavaField
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1917	or nil, if none is found.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1918
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1919	If searchStatic is true, static fields are searched,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1920	otherwise it searches inst and interface fields.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1921
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1922	If publicOnly is true, only public field are searched"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1923
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1924
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1925	\| cls field \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1926
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1927	cls := self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1928	[ cls ~~ JavaObject ] whileTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1929	searchStatic ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1930	field := cls findStaticFieldByName: fname.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1931	field isNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1932	field := cls findInterfaceFieldByName: fname
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1933
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1934	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1935	] ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1936	field := cls findInstFieldByName: fname
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1937	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1938	field notNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1939	(publicOnly and:[field isPublic not]) ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1940	^ nil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1941	] ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1942	^ field
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1943	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1944	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1945	cls := cls superclass.
626 ee0094f07603 oops cg parents: 625 diff changeset	1946	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1947	^nil.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1948
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1949	"Created: / 17-03-2012 / 16:41:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
79 9604109538d8 checkin from browser cg parents: 77 diff changeset	1950	!
9604109538d8 checkin from browser cg parents: 77 diff changeset	1951
626 ee0094f07603 oops cg parents: 625 diff changeset	1952	lookupMethodFor:selector
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1953	\|method cls sel queue \|
626 ee0094f07603 oops cg parents: 625 diff changeset	1954
ee0094f07603 oops cg parents: 625 diff changeset	1955	sel := selector asSymbolIfInterned.
ee0094f07603 oops cg parents: 625 diff changeset	1956	sel notNil ifTrue:[
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1957	queue := OrderedCollection with: self.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1958	[ queue isEmpty ] whileFalse:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1959	cls := queue removeFirst.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1960	method := cls compiledMethodAt:sel.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1961	method notNil ifTrue:[ ^ method ].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1962	cls isInterface ifFalse:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1963	cls superclass ~~ JavaObject ifTrue:[queue add: cls superclass]
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1964	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1965	queue addAll: cls interfaces.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1966	].
43 2c4ca2eb8d07 checkin from browser cg parents: 42 diff changeset	1967	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1968	"/cls ifNotNil:[^super lookupMethodFor: selector].
43 2c4ca2eb8d07 checkin from browser cg parents: 42 diff changeset	1969	^ nil
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	1970
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	1971	"Modified: / 19-10-2011 / 17:19:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
438 9142cf2fc8fa code cleanup cg parents: 435 diff changeset	1972	!
9142cf2fc8fa code cleanup cg parents: 435 diff changeset	1973
626 ee0094f07603 oops cg parents: 625 diff changeset	1974	performStatic:selector
ee0094f07603 oops cg parents: 625 diff changeset	1975	"send a static message, without args."
ee0094f07603 oops cg parents: 625 diff changeset	1976
ee0094f07603 oops cg parents: 625 diff changeset	1977	\|javaMethod sel\|
ee0094f07603 oops cg parents: 625 diff changeset	1978
ee0094f07603 oops cg parents: 625 diff changeset	1979	sel := selector asSymbolIfInterned.
ee0094f07603 oops cg parents: 625 diff changeset	1980	sel notNil ifTrue:[
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1981	javaMethod := methodDictionary at:sel.
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1982	javaMethod notNil ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1983	javaMethod isStatic ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1984	^ javaMethod
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1985	valueWithReceiver:self
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1986	arguments:#()
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1987	]
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	1988	].
626 ee0094f07603 oops cg parents: 625 diff changeset	1989	].
ee0094f07603 oops cg parents: 625 diff changeset	1990
ee0094f07603 oops cg parents: 625 diff changeset	1991	^ self doesNotUnderstand:(Message selector:selector)
438 9142cf2fc8fa code cleanup cg parents: 435 diff changeset	1992
9142cf2fc8fa code cleanup cg parents: 435 diff changeset	1993	"Modified: / 15.1.1998 / 00:31:27 / cg"
9142cf2fc8fa code cleanup cg parents: 435 diff changeset	1994	"Created: / 12.11.1998 / 16:29:20 / cg"
626 ee0094f07603 oops cg parents: 625 diff changeset	1995	!
ee0094f07603 oops cg parents: 625 diff changeset	1996
ee0094f07603 oops cg parents: 625 diff changeset	1997	performStatic:selector with:arg
ee0094f07603 oops cg parents: 625 diff changeset	1998	"send a static message, with one args."
ee0094f07603 oops cg parents: 625 diff changeset	1999
ee0094f07603 oops cg parents: 625 diff changeset	2000	\|javaMethod sel\|
ee0094f07603 oops cg parents: 625 diff changeset	2001
ee0094f07603 oops cg parents: 625 diff changeset	2002	sel := selector asSymbolIfInterned.
ee0094f07603 oops cg parents: 625 diff changeset	2003	sel notNil ifTrue:[
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2004	javaMethod := methodDictionary at:sel.
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2005	javaMethod notNil ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2006	javaMethod isStatic ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2007	^ javaMethod
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2008	valueWithReceiver:self
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2009	arguments:(Array with:arg)
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2010	selector:selector
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2011	search:nil
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2012	sender:nil
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2013	]
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2014	].
626 ee0094f07603 oops cg parents: 625 diff changeset	2015	].
ee0094f07603 oops cg parents: 625 diff changeset	2016
ee0094f07603 oops cg parents: 625 diff changeset	2017	^ self doesNotUnderstand:(Message selector:selector argument:arg)
ee0094f07603 oops cg parents: 625 diff changeset	2018
ee0094f07603 oops cg parents: 625 diff changeset	2019	"Modified: / 15.1.1998 / 00:31:27 / cg"
ee0094f07603 oops cg parents: 625 diff changeset	2020	"Created: / 10.12.1998 / 21:50:29 / cg"
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	2021	! !
eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	2022
2436 a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2023	!JavaClass methodsFor:'misc ui support'!
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2024
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2025	iconInBrowserSymbol
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2026
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2027	<resource: #programImage>
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2028
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2029	\| jle jlre \|
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2030
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2031	self isInterface ifTrue:[
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2032	self isPrivate ifTrue:[^#javaPrivateInterfaceBrowserIcon].
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2033	self isProtected ifTrue:[^#javaProtectedInterfaceBrowserIcon].
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2034	^#javaPublicInterfaceBrowserIcon
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2035	].
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2036
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2037	self isEnum ifTrue:[
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2038	self isPrivate ifTrue:[^#javaPrivateEnumBrowserIcon].
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2039	self isProtected ifTrue:[^#javaProtectedEnumBrowserIcon].
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2040	^#javaPublicEnumBrowserIcon
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2041	].
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2042
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2043	(jle := Java at:'java.lang.Exception') notNil ifTrue:[
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2044	(jlre := Java at:'java.lang.RuntimeException') notNil ifTrue:[
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2045	(self includesBehavior: jlre) ifTrue:[
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2046	^#javaRuntimeExceptionBrowserIcon
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2047	]
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2048	].
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2049	(self includesBehavior: jle) ifTrue:[
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2050	^#javaExceptionBrowserIcon
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2051	]
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2052	].
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2053
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2054	self isPrivate ifTrue:[^#javaPrivateClassBrowserIcon].
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2055	self isProtected ifTrue:[^#javaProtectedClassBrowserIcon].
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2056	^#javaPublicClassBrowserIcon
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2057
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2058	"Created: / 20-12-2010 / 19:11:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a2d9e86960c4 JavaClass: added iconInBrowserSymbol (used by Expecco) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2396 diff changeset	2059	! !
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2060
160 1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	2061	!JavaClass methodsFor:'printOut'!
1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	2062
626 ee0094f07603 oops cg parents: 625 diff changeset	2063	printNameInHierarchy
ee0094f07603 oops cg parents: 625 diff changeset	2064	"return my name as printed in the hierarchy"
160 1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	2065
626 ee0094f07603 oops cg parents: 625 diff changeset	2066	^ self displayString
ee0094f07603 oops cg parents: 625 diff changeset	2067
ee0094f07603 oops cg parents: 625 diff changeset	2068	"Modified: 22.3.1997 / 14:16:55 / cg"
160 1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	2069	!
1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	2070
626 ee0094f07603 oops cg parents: 625 diff changeset	2071	printOutOn:aStream
ee0094f07603 oops cg parents: 625 diff changeset	2072	self warn:'printOut not yet supported'
160 1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	2073
626 ee0094f07603 oops cg parents: 625 diff changeset	2074	"Created: 22.3.1997 / 14:36:12 / cg"
ee0094f07603 oops cg parents: 625 diff changeset	2075	!
160 1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	2076
626 ee0094f07603 oops cg parents: 625 diff changeset	2077	printOutProtocolOn:aStream
160 1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	2078	self warn:'printOut not yet supported'
1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	2079
1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	2080	"Created: 22.3.1997 / 14:36:28 / cg"
1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	2081	! !
1890a9128220 more interfaces for regular browser cg parents: 157 diff changeset	2082
626 ee0094f07603 oops cg parents: 625 diff changeset	2083	!JavaClass methodsFor:'printing & storing'!
1 083530508d9c intitial checkin cg parents: diff changeset	2084
626 ee0094f07603 oops cg parents: 625 diff changeset	2085	displayString
ee0094f07603 oops cg parents: 625 diff changeset	2086	^ fullName copyReplaceAll:$/ with:$.
ee0094f07603 oops cg parents: 625 diff changeset	2087
ee0094f07603 oops cg parents: 625 diff changeset	2088	"/ ^ 'JAVA-' , name .
ee0094f07603 oops cg parents: 625 diff changeset	2089	"/ ^ name , '(Java)' "/ 'JavaClass(' , name , ')'
1 083530508d9c intitial checkin cg parents: diff changeset	2090
360 e3df9401df00 use #copyReplaceAll:with: cg parents: 357 diff changeset	2091	"Created: / 15.4.1996 / 16:02:48 / cg"
e3df9401df00 use #copyReplaceAll:with: cg parents: 357 diff changeset	2092	"Modified: / 18.7.1998 / 22:56:30 / cg"
626 ee0094f07603 oops cg parents: 625 diff changeset	2093	! !
ee0094f07603 oops cg parents: 625 diff changeset	2094
ee0094f07603 oops cg parents: 625 diff changeset	2095	!JavaClass methodsFor:'private accessing'!
ee0094f07603 oops cg parents: 625 diff changeset	2096
ee0094f07603 oops cg parents: 625 diff changeset	2097	addMethod:m name:name signature:signature
ee0094f07603 oops cg parents: 625 diff changeset	2098	\|sel\|
63 74442cd26c02 changes for new methodDict cg parents: 60 diff changeset	2099
626 ee0094f07603 oops cg parents: 625 diff changeset	2100	sel := (name , signature) asSymbol.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2101	self primAddSelector:sel withMethod:m.
626 ee0094f07603 oops cg parents: 625 diff changeset	2102	^ self.
ee0094f07603 oops cg parents: 625 diff changeset	2103
ee0094f07603 oops cg parents: 625 diff changeset	2104	"/ selectorArray isNil ifTrue:[
ee0094f07603 oops cg parents: 625 diff changeset	2105	"/ selectorArray := #().
ee0094f07603 oops cg parents: 625 diff changeset	2106	"/ methodArray := #()
ee0094f07603 oops cg parents: 625 diff changeset	2107	"/ ].
ee0094f07603 oops cg parents: 625 diff changeset	2108	"/ selectorArray := selectorArray copyWith:(name , signature) asSymbol. "/ name.
ee0094f07603 oops cg parents: 625 diff changeset	2109	"/"/ selectorArray := selectorArray copyWith:name asSymbol. "/ name.
98 bd1f320e757e * empty log message * cg parents: 90 diff changeset	2110	"/ methodArray := methodArray copyWith:m
5 f026f5d20c15 checkin from browser cg parents: 3 diff changeset	2111
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2112	"Created: / 15-04-1996 / 16:42:52 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2113	"Modified: / 04-04-2012 / 01:18:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5 f026f5d20c15 checkin from browser cg parents: 3 diff changeset	2114	!
f026f5d20c15 checkin from browser cg parents: 3 diff changeset	2115
626 ee0094f07603 oops cg parents: 625 diff changeset	2116	addSelector:newSelector withMethod:newMethod
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2117
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2118	^super addSelector:newSelector withMethod:newMethod
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2119
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2120	"/ "redefined to not flush smalltalk caches and send NO smalltalk-class
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2121	"/ change notification. Will eventually flush Java caches."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2122	"/
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2123	"/ \|nargs oldMethod\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2124	"/
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2125	"/ oldMethod := self compiledMethodAt:newSelector.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2126	"/ (self primAddSelector:newSelector withMethod:newMethod) ifFalse:[^ false].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2127	"/
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2128	"/ ^ true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2129	"/
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2130	"/
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2131
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2132	"Created: / 20-01-1997 / 13:00:48 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2133	"Modified: / 20-04-2012 / 20:27:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
130 0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	2134	!
0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	2135
626 ee0094f07603 oops cg parents: 625 diff changeset	2136	setAccessFlags:flags
3 e3c2a84b2a72 checkin from browser cg parents: 1 diff changeset	2137	accessFlags := flags.
1 083530508d9c intitial checkin cg parents: diff changeset	2138
083530508d9c intitial checkin cg parents: diff changeset	2139	"Created: 15.4.1996 / 16:42:52 / cg"
5 f026f5d20c15 checkin from browser cg parents: 3 diff changeset	2140	!
f026f5d20c15 checkin from browser cg parents: 3 diff changeset	2141
2476 d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2434 diff changeset	2142	setClassfileBytes: aByteArray
d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2434 diff changeset	2143	self assert: aByteArray isByteArray.
d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2434 diff changeset	2144	classfileBytes := aByteArray
d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2434 diff changeset	2145
d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2434 diff changeset	2146	"Created: / 29-03-2013 / 23:57:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
73 a1268823f1a4 * empty log message * cg parents: 71 diff changeset	2147	!
a1268823f1a4 * empty log message * cg parents: 71 diff changeset	2148
626 ee0094f07603 oops cg parents: 625 diff changeset	2149	setFields:f
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2150	\| nignored nvals vals names \|
626 ee0094f07603 oops cg parents: 625 diff changeset	2151
ee0094f07603 oops cg parents: 625 diff changeset	2152	JavaClass setInstanceVariableStringFromFields:f in:self.
ee0094f07603 oops cg parents: 625 diff changeset	2153
ee0094f07603 oops cg parents: 625 diff changeset	2154	instSize := superclass instSize + f size.
ee0094f07603 oops cg parents: 625 diff changeset	2155	fields := f.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2156
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2157	f withIndexDo:[:field :index\|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2158	field setClass: self.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2159	field setIndex: superclass instSize + index.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2160	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2161
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2162	"Now, collect initValues. Ignore the lockword, if any"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2163	nignored := JavaObject instSize. "/except possible instvars in JavaObject (lockword)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2164	nvals := self instSize - nignored.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2165	nvals > 0 ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2166	vals := Array new: nvals.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2167	names := self allInstVarNames.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2168	JavaObject instSize + 1 to: names size do:[:i\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2169	\| val \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2170	val := self initValueFor: (names at: i).
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2171	val notNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2172	vals at: i - nignored put: val.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2173	initValues := vals.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2174	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2175	].
426 ddb18042134a checkin from browser cg parents: 425 diff changeset	2176	]
27 4560bb77bb36 checkin from browser cg parents: 24 diff changeset	2177
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2178	"Created: / 15-04-1996 / 16:42:52 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2179	"Modified: / 06-11-1998 / 01:53:01 / cg"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2180	"Modified: / 02-11-2012 / 21:49:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
27 4560bb77bb36 checkin from browser cg parents: 24 diff changeset	2181	!
4560bb77bb36 checkin from browser cg parents: 24 diff changeset	2182
626 ee0094f07603 oops cg parents: 625 diff changeset	2183	setFullName:aString
ee0094f07603 oops cg parents: 625 diff changeset	2184	\|nameComponents\|
ee0094f07603 oops cg parents: 625 diff changeset	2185
ee0094f07603 oops cg parents: 625 diff changeset	2186	fullName := aString asSymbol.
686 aa412739da79 * empty log message * cg parents: 684 diff changeset	2187	"/ nameComponents := aString asCollectionOfSubstringsSeparatedBy:$/.
aa412739da79 * empty log message * cg parents: 684 diff changeset	2188	"/ name := nameComponents last asSymbol.
aa412739da79 * empty log message * cg parents: 684 diff changeset	2189	name := fullName.
7 de8ce26e1f2c checkin from browser cg parents: 5 diff changeset	2190
423 08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	2191	"Created: / 15.4.1996 / 16:42:52 / cg"
08af061c56a8 javaClass now uses its fullName in name cg parents: 418 diff changeset	2192	"Modified: / 5.11.1998 / 19:14:39 / cg"
7 de8ce26e1f2c checkin from browser cg parents: 5 diff changeset	2193	!
de8ce26e1f2c checkin from browser cg parents: 5 diff changeset	2194
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2195	setInterfaces: i
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2196
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2197	super setInterfaces: i.
626 ee0094f07603 oops cg parents: 625 diff changeset	2198	i size > 0 ifTrue:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2199	i do:[:iface\|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2200	iface name = 'groovy/lang/GroovyObject' ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2201	self class changeClassTo: GroovyMetaclass.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2202	self class setSuperclass: GroovyClass.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2203	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2204	]
110 dfb03e2ea321 * empty log message * cg parents: 98 diff changeset	2205	]
dfb03e2ea321 * empty log message * cg parents: 98 diff changeset	2206
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2207	"Created: / 20-02-2012 / 22:47:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2208	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2209
2529 764ab6925cf5 Update compiler problems when old class is updated. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2521 diff changeset	2210	setSource: aStringOrNil
764ab6925cf5 Update compiler problems when old class is updated. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2521 diff changeset	2211	self assert: (aStringOrNil isNil or:[aStringOrNil isString]).
764ab6925cf5 Update compiler problems when old class is updated. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2521 diff changeset	2212	sourceString := aStringOrNil
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2213
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2214	"Created: / 15-04-1996 / 16:42:52 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2215	"Created: / 18-02-2012 / 19:10:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2529 764ab6925cf5 Update compiler problems when old class is updated. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2521 diff changeset	2216	"Modified: / 19-04-2013 / 09:30:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
110 dfb03e2ea321 * empty log message * cg parents: 98 diff changeset	2217	!
dfb03e2ea321 * empty log message * cg parents: 98 diff changeset	2218
626 ee0094f07603 oops cg parents: 625 diff changeset	2219	setSourceFile:aFilename
ee0094f07603 oops cg parents: 625 diff changeset	2220	sourceFile := aFilename.
ee0094f07603 oops cg parents: 625 diff changeset	2221
ee0094f07603 oops cg parents: 625 diff changeset	2222	"Created: 15.4.1996 / 16:42:52 / cg"
ee0094f07603 oops cg parents: 625 diff changeset	2223	!
ee0094f07603 oops cg parents: 625 diff changeset	2224
ee0094f07603 oops cg parents: 625 diff changeset	2225	setStaticFields:f
ee0094f07603 oops cg parents: 625 diff changeset	2226	JavaClass setInstanceVariableStringFromFields:f in:self class.
ee0094f07603 oops cg parents: 625 diff changeset	2227
ee0094f07603 oops cg parents: 625 diff changeset	2228	staticFields := f.
ee0094f07603 oops cg parents: 625 diff changeset	2229
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2230	"Modified: / 17-08-2011 / 09:26:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
626 ee0094f07603 oops cg parents: 625 diff changeset	2231	!
60 a763b1780ec0 checkin from browser cg parents: 54 diff changeset	2232
626 ee0094f07603 oops cg parents: 625 diff changeset	2233	setSuperclass:aClass
ee0094f07603 oops cg parents: 625 diff changeset	2234	\|iVars numIvars\|
247 67dd93db3d80 adapt to change in ClassDescription cg parents: 236 diff changeset	2235
626 ee0094f07603 oops cg parents: 625 diff changeset	2236	aClass isNil ifTrue:[
ee0094f07603 oops cg parents: 625 diff changeset	2237	super setSuperclass:JavaObject
ee0094f07603 oops cg parents: 625 diff changeset	2238	] ifFalse:[
ee0094f07603 oops cg parents: 625 diff changeset	2239	(aClass isMemberOf:JavaUnresolvedClassConstant) ifTrue:[
ee0094f07603 oops cg parents: 625 diff changeset	2240	self halt.
ee0094f07603 oops cg parents: 625 diff changeset	2241	].
ee0094f07603 oops cg parents: 625 diff changeset	2242	super setSuperclass:aClass.
ee0094f07603 oops cg parents: 625 diff changeset	2243	].
ee0094f07603 oops cg parents: 625 diff changeset	2244
ee0094f07603 oops cg parents: 625 diff changeset	2245	iVars := self instVarNames.
ee0094f07603 oops cg parents: 625 diff changeset	2246	((numIvars := iVars size) > 0) ifTrue:[
ee0094f07603 oops cg parents: 625 diff changeset	2247	(superclass notNil and:[(superclass isMemberOf:JavaUnresolvedClassConstant) not]) ifTrue:[
ee0094f07603 oops cg parents: 625 diff changeset	2248	instSize := superclass instSize + numIvars
ee0094f07603 oops cg parents: 625 diff changeset	2249	] ifFalse:[
ee0094f07603 oops cg parents: 625 diff changeset	2250	instSize := numIvars
252 04b330744577 new javaVM stuff & back to pre-stefans changes cg parents: 249 diff changeset	2251	]
29 eb3367f8fb9b checkin from browser cg parents: 27 diff changeset	2252	].
27 4560bb77bb36 checkin from browser cg parents: 24 diff changeset	2253
4560bb77bb36 checkin from browser cg parents: 24 diff changeset	2254	"Created: 15.4.1996 / 16:42:52 / cg"
247 67dd93db3d80 adapt to change in ClassDescription cg parents: 236 diff changeset	2255	"Modified: 22.8.1997 / 15:06:45 / cg"
626 ee0094f07603 oops cg parents: 625 diff changeset	2256	! !
1 083530508d9c intitial checkin cg parents: diff changeset	2257
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2258	!JavaClass methodsFor:'private-changes management'!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2259
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2260	writingChangeWithTimeStamp:doStampIt do:aBlock
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2261
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2262	"No changes for Java classes now"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2263
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2264	"Created: / 14-12-2010 / 18:07:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2265	! !
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2266
626 ee0094f07603 oops cg parents: 625 diff changeset	2267	!JavaClass methodsFor:'queries'!
ee0094f07603 oops cg parents: 625 diff changeset	2268
ee0094f07603 oops cg parents: 625 diff changeset	2269	canBeSubclassed
ee0094f07603 oops cg parents: 625 diff changeset	2270	"return true, if its allowed to create subclasses of the receiver."
426 ddb18042134a checkin from browser cg parents: 425 diff changeset	2271
ddb18042134a checkin from browser cg parents: 425 diff changeset	2272	self isFinal ifTrue:[^ false].
ddb18042134a checkin from browser cg parents: 425 diff changeset	2273	self isInterface ifTrue:[^ false].
ddb18042134a checkin from browser cg parents: 425 diff changeset	2274	^ true
ddb18042134a checkin from browser cg parents: 425 diff changeset	2275
ddb18042134a checkin from browser cg parents: 425 diff changeset	2276	"Created: / 5.11.1998 / 23:04:50 / cg"
ddb18042134a checkin from browser cg parents: 425 diff changeset	2277	!
ddb18042134a checkin from browser cg parents: 425 diff changeset	2278
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2279	canHaveExtensions
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2280	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2281
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2282	"Created: / 13-04-2012 / 18:55:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2283	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2284
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2285	containsMethodsAnnotatedWith:aJavaTypeName
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2286	\| methods \|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2287
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2288	methods := self selectMethodsAnnotatedWith:aJavaTypeName.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2289	methods size > 0 ifTrue:[ ^ true ].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2290	(self name ~= #'java/lang/Object')
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2291	ifTrue:[ ^ superclass containsMethodsAnnotatedWith:aJavaTypeName. ].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2292	^ false.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2293
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2294	"Created: / 02-03-2011 / 23:01:14 / Marcel Hlopko <hlopik@gmail.com>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2295	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2296
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2297	hasFinalize
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2298	^ (accessFlags bitAnd:ACX_HASFINALIZE) ~~ 0
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2299
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2300	"Created: / 02-11-2012 / 18:50:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2301	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2302
626 ee0094f07603 oops cg parents: 625 diff changeset	2303	hasInterface:aJavaInterface
ee0094f07603 oops cg parents: 625 diff changeset	2304	"return true, if I respond to all methods as
ee0094f07603 oops cg parents: 625 diff changeset	2305	required by the argument, an aJavaInterface"
ee0094f07603 oops cg parents: 625 diff changeset	2306
ee0094f07603 oops cg parents: 625 diff changeset	2307	interfaces size > 0 ifTrue:[
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2308	self interfaces do:[:if \|
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2309	aJavaInterface == if ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2310	^ true
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2311	].
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2312	]
626 ee0094f07603 oops cg parents: 625 diff changeset	2313	].
ee0094f07603 oops cg parents: 625 diff changeset	2314	superclass isJavaClass ifTrue:[
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2315	^ superclass hasInterface:aJavaInterface
626 ee0094f07603 oops cg parents: 625 diff changeset	2316	].
ee0094f07603 oops cg parents: 625 diff changeset	2317	^ false.
ee0094f07603 oops cg parents: 625 diff changeset	2318
ee0094f07603 oops cg parents: 625 diff changeset	2319	"/ aJavaInterface methodDictionary keysAndValuesDo:[:sel :mthd \|
587 131f0c4afb89 checkin from browser cg parents: 582 diff changeset	2320	"/ (self canUnderstand:sel) ifFalse:[
131f0c4afb89 checkin from browser cg parents: 582 diff changeset	2321	"/ ^ false.
131f0c4afb89 checkin from browser cg parents: 582 diff changeset	2322	"/ ]
131f0c4afb89 checkin from browser cg parents: 582 diff changeset	2323	"/ ].
53 e10c1dd4ea3b checkin from browser cg parents: 52 diff changeset	2324	^ true
281 67c5b913b645 * empty log message * cg parents: 264 diff changeset	2325
67c5b913b645 * empty log message * cg parents: 264 diff changeset	2326	"Modified: / 28.1.1998 / 01:46:16 / cg"
587 131f0c4afb89 checkin from browser cg parents: 582 diff changeset	2327
52 1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	2328	!
1dc41619b6f8 checkin from browser cg parents: 43 diff changeset	2329
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2330	hasMagicAccessRights
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2331	"Classes subclassing from sun.reflect.MagicAccessorImpl are not subject to access rights checks. Another non-documented gem found in openjdk sources :)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2332
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2333	\| magicAccessor \|
2578 fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	2334	magicAccessor := JavaVM classNamed: 'sun.reflect.MagicAccessorImpl' definedBy: nil.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2335	^ magicAccessor notNil and: [ self includesBehavior: magicAccessor ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2336
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2337	"Created: / 18-11-2012 / 16:11:13 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2578 fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	2338	"Modified: / 02-05-2013 / 01:23:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2339	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2340
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2341	isAnonymous
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2342
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2343	\| i \|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2344	i := name lastIndexOf: $$.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2345	i ~~ 0 ifTrue:[
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2346	i + 1 to: name size do:[:i\|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2347	(name at:i) isDigit ifFalse:[^false].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2348	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2349	^true
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2350	].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2351	^false
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2352
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2353	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2354	(Java at:'java.io.Console') isAnonymous
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2355	(Java at:'java.io.Console$1') isAnonymous
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2356	(Java at:'java.io.Console$1$1') isAnonymous
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2357	(Java at:'sun.misc.Launcher$ExtClassLoader') isAnonymous
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2358
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2359	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2360
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2361	"Created: / 18-03-1997 / 17:48:01 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2362	"Created: / 07-08-2011 / 15:50:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2363	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2364
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2365	isFullyResolved
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2366	constantPool do: [:each \| (each isJavaRef and: [each isResolved not]) ifTrue: [^false]].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2367	^ true.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2368
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2369	"Created: / 08-12-2011 / 20:44:06 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2370	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2371
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2372	isJavaArrayClass
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2373
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2374	^false
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2375
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2376	"Created: / 05-02-2011 / 22:20:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2377	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2378
626 ee0094f07603 oops cg parents: 625 diff changeset	2379	isJavaClass
148 db560ebab8b5 * empty log message * cg parents: 133 diff changeset	2380	^ self ~~ JavaClass
db560ebab8b5 * empty log message * cg parents: 133 diff changeset	2381
db560ebab8b5 * empty log message * cg parents: 133 diff changeset	2382	"Created: 18.3.1997 / 17:48:01 / cg"
db560ebab8b5 * empty log message * cg parents: 133 diff changeset	2383	!
db560ebab8b5 * empty log message * cg parents: 133 diff changeset	2384
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2385	isJavaClassType
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2386
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2387	^self isInterface not
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2388
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2389	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2390	(Java classForName:'java.lang.Class') isJavaClassType
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2391	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2392
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2393	"Created: / 11-02-2011 / 08:09:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2394	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2395
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2396	isJavaInterfaceType
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2397
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2398	^self isInterface
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2399
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2400	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2401	(Java classForName:'java.lang.Class') isJavaInterfaceType
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2402	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2403
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2404	"Created: / 11-02-2011 / 08:09:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2405	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2406
626 ee0094f07603 oops cg parents: 625 diff changeset	2407	isJavaMethodRef
ee0094f07603 oops cg parents: 625 diff changeset	2408	^ false
ee0094f07603 oops cg parents: 625 diff changeset	2409
ee0094f07603 oops cg parents: 625 diff changeset	2410	"Created: / 9.11.1999 / 15:42:10 / cg"
ee0094f07603 oops cg parents: 625 diff changeset	2411	!
ee0094f07603 oops cg parents: 625 diff changeset	2412
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2413	isJavaPrimitiveType
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2414
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2415	^false
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2416
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2417	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2418	(Java classForName:'java.lang.Class') isJavaPrimitiveType
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2419	ByteArray isJavaPrimitiveType
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2420	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2421
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2422	"Created: / 21-12-2010 / 23:03:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2423	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2424
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2425	isJavaReferenceType
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2426
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2427	^true
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2428
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2429	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2430	(Java classForName:'java.lang.Class') isJavaReferenceType
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2431	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2432
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2433	"Created: / 20-12-2010 / 21:54:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2434	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2435
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2436	isJavaType
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2437
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2438	^true
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2439
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2440	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2441	(Java classForName:'java.lang.Class') isJavaType
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2442	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2443
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2444	"Created: / 20-12-2010 / 21:53:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2445	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2446
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2447	isJavaWrapperClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2448	"Returns true, iff receiver is one of the Java wrapper classes or String"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2449
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2450	name == #'java/lang/Byte' ifTrue:[^true].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2451	name == #'java/lang/Short' ifTrue:[^true].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2452	name == #'java/lang/Integer' ifTrue:[^true].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2453	name == #'java/lang/Long' ifTrue:[^true].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2454	name == #'java/lang/Character' ifTrue:[^true].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2455	name == #'java/lang/Boolean' ifTrue:[^true].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2456	name == #'java/lang/String' ifTrue:[^true]."/Not really a wrapper, but..."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2457
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2458	^false.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2459
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2460	"Created: / 26-12-2011 / 22:03:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2461	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2462
626 ee0094f07603 oops cg parents: 625 diff changeset	2463	isUnresolved
ee0094f07603 oops cg parents: 625 diff changeset	2464	"return true, if the receiver is unresolved;
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2465	javaClasses are never; JavaUnresolvedClasses are always"
345 7cfa66af11a0 checkin from browser cg parents: 336 diff changeset	2466
90 918e2740098c resolve rewritten cg parents: 86 diff changeset	2467	^ false
345 7cfa66af11a0 checkin from browser cg parents: 336 diff changeset	2468
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2469	"Modified: / 07-05-1998 / 12:23:14 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2470	"Created: / 06-03-2011 / 22:57:07 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
175 68da52e100ab * empty log message * cg parents: 172 diff changeset	2471	!
68da52e100ab * empty log message * cg parents: 172 diff changeset	2472
679 8983c2db7e24 * empty log message * cg parents: 675 diff changeset	2473	nameInBrowser
8983c2db7e24 * empty log message * cg parents: 675 diff changeset	2474	"return a nameString as shown in browsers"
8983c2db7e24 * empty log message * cg parents: 675 diff changeset	2475
8983c2db7e24 * empty log message * cg parents: 675 diff changeset	2476	^ self name copyReplaceAll:$/ with:$.
8983c2db7e24 * empty log message * cg parents: 675 diff changeset	2477	!
8983c2db7e24 * empty log message * cg parents: 675 diff changeset	2478
626 ee0094f07603 oops cg parents: 625 diff changeset	2479	nameSpacePath
ee0094f07603 oops cg parents: 625 diff changeset	2480	\|parts s\|
ee0094f07603 oops cg parents: 625 diff changeset	2481
ee0094f07603 oops cg parents: 625 diff changeset	2482	parts := self fullName asCollectionOfSubstringsSeparatedBy:$/.
ee0094f07603 oops cg parents: 625 diff changeset	2483	s := '' writeStream.
ee0094f07603 oops cg parents: 625 diff changeset	2484	s nextPutAll:'JAVA'.
ee0094f07603 oops cg parents: 625 diff changeset	2485	parts from:1 to:(parts size - 1) do:[:aPart \|
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2486	s nextPutAll:'::'.
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2487	s nextPutAll:aPart
626 ee0094f07603 oops cg parents: 625 diff changeset	2488	].
ee0094f07603 oops cg parents: 625 diff changeset	2489	^ s contents
ee0094f07603 oops cg parents: 625 diff changeset	2490
ee0094f07603 oops cg parents: 625 diff changeset	2491	"
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2492	JAVA::java::lang::Object fullName
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2493	JAVA::java::lang::Object nameSpacePath
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2494	JAVA::java::lang::Object name
393 1efe41b5bc98 #removeClass: fix cg parents: 375 diff changeset	2495	"
1efe41b5bc98 #removeClass: fix cg parents: 375 diff changeset	2496
1efe41b5bc98 #removeClass: fix cg parents: 375 diff changeset	2497	"Modified: / 19.10.1998 / 20:07:24 / cg"
1efe41b5bc98 #removeClass: fix cg parents: 375 diff changeset	2498	!
1efe41b5bc98 #removeClass: fix cg parents: 375 diff changeset	2499
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2500	selectMethodsAnnotatedWith:aJavaTypeName
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2501	^ self methodDictionary values select:
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2502	[:method \|
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2503	(method isJavaMethod
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2504	and:[method annotations notNil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2505	and:[(method annotations runtimeVisible at:aJavaTypeName ifAbsent:nil) notNil]])].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2506
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2507	"Created: / 02-03-2011 / 23:06:42 / Marcel Hlopko <hlopik@gmail.com>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2508	"Modified: / 14-12-2011 / 22:35:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2509	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2510
626 ee0094f07603 oops cg parents: 625 diff changeset	2511	supportsMethodCategories
ee0094f07603 oops cg parents: 625 diff changeset	2512	^ self isJavaClass not
175 68da52e100ab * empty log message * cg parents: 172 diff changeset	2513
626 ee0094f07603 oops cg parents: 625 diff changeset	2514	"Created: / 30.7.1997 / 14:58:58 / cg"
ee0094f07603 oops cg parents: 625 diff changeset	2515	"Modified: / 7.5.1998 / 12:25:54 / cg"
ee0094f07603 oops cg parents: 625 diff changeset	2516	!
321 1fc4570fb914 preps for getMethod nativeCall cg parents: 312 diff changeset	2517
626 ee0094f07603 oops cg parents: 625 diff changeset	2518	typeName
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2519	^ 'L' , self fullName , ';'.
321 1fc4570fb914 preps for getMethod nativeCall cg parents: 312 diff changeset	2520
1fc4570fb914 preps for getMethod nativeCall cg parents: 312 diff changeset	2521	"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2522	(Java at:'java.util.Stack') typeName"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2523
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2524	"Modified: / 10-02-1998 / 17:13:26 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2525	"Modified: / 02-03-2011 / 22:48:40 / Marcel Hlopko <hlopik@gmail.com>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2526	! !
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2527
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2528	!JavaClass methodsFor:'queries-protocol'!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2529
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2530	equalsOrIsSubclassOf: aJavaClass
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2531	self = aJavaClass ifTrue: [^true].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2532	^ self isSubclassOf:aJavaClass.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2533
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2534	"Created: / 30-05-2011 / 23:07:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2535	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2536
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2537	includesBehavior: aClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2538	^ (aClass isJavaClass not or: [ aClass isInterface not ])
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2539	ifTrue: [ self name == aClass name or:[ super includesBehavior: aClass ]]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2540	ifFalse: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2541	self name == aClass name or: [ self allInterfaces includes: aClass ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2542	].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2543
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2544	"Created: / 05-02-2011 / 23:44:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2545	"Modified: / 11-02-2011 / 09:12:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2546	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2547
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2548	isSubclassOf: aClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2549
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2550	\| cls \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2551	aClass isNil ifTrue:[^false].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2552	cls := self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2553	[ cls notNil ] whileTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2554	"JV-2011-10-20: Q: is one subclass of another if its
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2555	are subclass but loaded using different classloader?"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2556	cls == aClass ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2557	^true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2558	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2559	cls := cls superclass.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2560	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2561	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2562
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2563	"Created: / 20-10-2011 / 16:15:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2564	! !
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2565
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2566	!JavaClass methodsFor:'reflection'!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2567
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2568	findInstFieldByName: fieldName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2569	"tries to find a field in current class (not superclasses)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2570
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2571	\| result \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2572	result := self fields
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2573	detect: [:each \| each name = fieldName ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2574	ifNone: [ nil ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2575	^ result.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2576
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2577	"Created: / 07-12-2011 / 23:05:23 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2578	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2579
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2580	findInterfaceFieldByName: fieldName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2581	\| result seenIfaces ifaces \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2582	ifaces := OrderedCollection withAll: self interfaces.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2583	seenIfaces := Set new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2584	[ ifaces notEmpty ] whileTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2585	\| iface \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2586	iface := ifaces removeFirst.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2587	result := iface staticFields
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2588	detect: [:each \| each name = fieldName ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2589	ifNone: [ nil ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2590	result notNil ifTrue: [ ^ result ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2591	seenIfaces add: iface.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2592	iface interfaces do: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2593	:each \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2594	(seenIfaces includes: each) not ifTrue: [ ifaces add: each ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2595	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2596	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2597	^ nil.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2598
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2599	"Created: / 07-12-2011 / 23:05:46 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2600	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2601
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2602	findStaticFieldByName: fieldName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2603	"tries to find a field in current class (not superclasses)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2604
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2605	\| result \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2606	result := self staticFields
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2607	detect: [:each \| each name = fieldName ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2608	ifNone: [ nil ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2609	^ result.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2610
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2611	"Created: / 07-12-2011 / 23:05:58 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2612	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2613
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2614	lookupFieldByNameAndType: aJavaNameAndType
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2615	\| field cls \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2616	cls := self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2617	[ cls ~~ JavaObject ] whileTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2618	field := cls findInstFieldByName: aJavaNameAndType name.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2619	field notNil ifTrue: [ ^ field ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2620	field := cls findStaticFieldByName: aJavaNameAndType name.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2621	field notNil ifTrue: [ ^ field ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2622	field := cls findInterfaceFieldByName: aJavaNameAndType name.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2623	field notNil ifTrue: [ ^ field ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2624	cls := cls superclass.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2625	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2626	self breakPoint: #mh.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2627	^ nil.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2628
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2629	"Created: / 11-04-2011 / 21:27:08 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2630	"Modified: / 13-08-2011 / 00:46:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2631	"Modified: / 07-12-2011 / 23:05:08 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2632	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2633
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2634	lookupMethodByNameAndType: aJavaNameAndType
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2635	^ self lookupMethodFor: aJavaNameAndType selector.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2636
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2637	"Created: / 11-04-2011 / 21:28:34 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2638	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2639
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2640	lookupStaticFieldByNameAndType: aJavaNameAndType
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2641	\| field cls \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2642	cls := self.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2643	[ cls ~= JavaObject ] whileTrue: [
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2644	field := cls findStaticFieldByName: aJavaNameAndType name.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2645	field notNil ifTrue: [ ^ field ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2646	field := cls findInterfaceFieldByName: aJavaNameAndType name.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2647	field notNil ifTrue: [ ^ field ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2648	cls := cls superclass.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2649	].
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2650	self breakPoint: #mh.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2651	^ nil.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2652
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2653	"Created: / 11-04-2011 / 21:27:08 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2654	"Modified: / 26-08-2011 / 18:27:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2655	"Modified: / 07-12-2011 / 23:06:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
626 ee0094f07603 oops cg parents: 625 diff changeset	2656	! !
ee0094f07603 oops cg parents: 625 diff changeset	2657
ee0094f07603 oops cg parents: 625 diff changeset	2658	!JavaClass methodsFor:'special'!
ee0094f07603 oops cg parents: 625 diff changeset	2659
ee0094f07603 oops cg parents: 625 diff changeset	2660	asClassPointerRef
ee0094f07603 oops cg parents: 625 diff changeset	2661	"/ self halt.
ee0094f07603 oops cg parents: 625 diff changeset	2662	^ self
ee0094f07603 oops cg parents: 625 diff changeset	2663
ee0094f07603 oops cg parents: 625 diff changeset	2664	"Created: / 10.11.1998 / 02:07:01 / cg"
ee0094f07603 oops cg parents: 625 diff changeset	2665	"Modified: / 8.1.1999 / 14:11:26 / cg"
428 4b400c64ccec checkin from browser cg parents: 426 diff changeset	2666	!
4b400c64ccec checkin from browser cg parents: 426 diff changeset	2667
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2668	deinit
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2669
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2670	accessFlags := accessFlags bitClear: ACX_INITIALIZED.
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2671
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2672	"Created: / 25-10-2010 / 12:28:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2673	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2674
626 ee0094f07603 oops cg parents: 625 diff changeset	2675	deref
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2676	^ self
428 4b400c64ccec checkin from browser cg parents: 426 diff changeset	2677
626 ee0094f07603 oops cg parents: 625 diff changeset	2678	"Created: / 10.11.1998 / 02:08:06 / cg"
428 4b400c64ccec checkin from browser cg parents: 426 diff changeset	2679	!
4b400c64ccec checkin from browser cg parents: 426 diff changeset	2680
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2681	javaArrayClass
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2682	"/ self halt.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2683	"/ ^ Array
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2684
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2685	^ JavaArray javaArrayClassFor:self
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2686
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2687	"Created: / 10-11-1998 / 02:07:32 / cg"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2688	"Modified: / 08-01-1999 / 14:11:34 / cg"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2689	"Modified: / 05-07-2012 / 23:24:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2690	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2691
626 ee0094f07603 oops cg parents: 625 diff changeset	2692	updateClassRefsFrom:oldClass to:newClass
ee0094f07603 oops cg parents: 625 diff changeset	2693	self == oldClass ifTrue:[
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2694	self makeObsolete.
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2695	^ self
626 ee0094f07603 oops cg parents: 625 diff changeset	2696	].
ee0094f07603 oops cg parents: 625 diff changeset	2697
ee0094f07603 oops cg parents: 625 diff changeset	2698	constantPool updateClassRefsFrom:oldClass to:newClass.
ee0094f07603 oops cg parents: 625 diff changeset	2699	interfaces notNil ifTrue:[
2118 b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2700	interfaces := interfaces collect:[:anInterface \|
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2701	anInterface == oldClass ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2702	newClass isNil ifTrue:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2703	nil "/ replace by an unresolvedInterface
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2704	] ifFalse:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2705	newClass
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2706	]
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2707	] ifFalse:[
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2708	anInterface
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2709	]
b73d5b8e93c0 * empty log message * Claus Gittinger <cg@exept.de> parents: 2107 diff changeset	2710	]
626 ee0094f07603 oops cg parents: 625 diff changeset	2711	]
ee0094f07603 oops cg parents: 625 diff changeset	2712
ee0094f07603 oops cg parents: 625 diff changeset	2713	"Modified: / 4.2.1998 / 22:08:19 / cg"
203 67af98594672 * empty log message * cg parents: 200 diff changeset	2714	! !
67af98594672 * empty log message * cg parents: 200 diff changeset	2715
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2716	!JavaClass methodsFor:'support - refactorings'!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2717
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2718	directlyDefinesMethod: aSelector
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2719
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2720	^self methodDictionary includes: aSelector.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2721
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2722	"Created: / 16-03-2011 / 14:21:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2723	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2724
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2725	metaclass
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2726
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2727	^self class
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2728
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2729	"Created: / 16-03-2011 / 14:22:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2730	! !
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2731
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2732	!JavaClass methodsFor:'support - sUnit'!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2733
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2734	asTestCase
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2735	self isTestletLike
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2736	ifTrue: [^ TestletTestCaseProxy for: self ].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2737	^ JUnitTestCaseProxy for: self.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2738
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2739	"Created: / 04-03-2011 / 08:20:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2740	"Modified: / 29-04-2011 / 17:52:13 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2741	"Modified: / 07-05-2011 / 18:59:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2742	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2743
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2744	asTestlet
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2745	^ TestletTestCaseProxy for: self
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2746
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2747	"Created: / 29-04-2011 / 16:53:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2748	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2749
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2750	buildSuite
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2751	self isTestletLike ifTrue: [ ^(TestletTestCaseProxy for: self) buildSuite ].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2752	^ (JUnitTestCaseProxy for: self) buildSuite
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2753
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2754	"Created: / 29-05-2011 / 22:45:17 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2755	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2756
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2757	isJUnitTestCaseLike
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2758	\| cls \|
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2759
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2760	"try JUnit 4.x"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2761	(self containsMethodsAnnotatedWith: #'Lorg/junit/Test;') ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2762	^ true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2763	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2764
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2765	"Try jUnit 3.x"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2766	cls := self superclass.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2767	[ cls notNil ] whileTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2768	cls name == #'junit/framework/TestCase' ifTrue:[ ^ true ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2769	cls := cls superclass.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2770	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2771	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2772	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2773	JAVA::java::lang::Object isTestCaseLike
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2774	JAVA::stx::libjava::tests::junit::JUnit3Tests isTestCaseLike
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2775	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2776
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2777	"Created: / 23-10-2011 / 22:04:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2778	"Modified: / 11-01-2013 / 00:03:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2779	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2780
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2781	isTestCaseLike
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2782
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2783	JavaVM booted ifFalse:[ ^ false ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2784
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2785	^self isJUnitTestCaseLike or:[ self isTestletLike ]
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2786
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2787	"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2788	JAVA::java::lang::Object isTestCaseLike
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2789	JAVA::stx::libjava::tests::junit::JUnit3Tests isTestCaseLike"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2790
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2791	"Created: / 28-02-2011 / 21:31:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2792	"Modified: / 02-03-2011 / 23:08:02 / Marcel Hlopko <hlopik@gmail.com>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2793	"Modified: / 29-05-2011 / 22:48:07 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2794	"Modified: / 02-12-2011 / 23:09:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2795	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2796
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2797	isTestSelector: selector
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2798
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2799	"Hack, you're right, blame on me"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2800
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2801	\| junit_framework_TestCase m \|
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2802
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2803	((selector == #'test(Lgnu/testlet/TestHarness;)V')
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2804	and:[self ~~ (Java at:'gnu.testlet.Testlet')])
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2805	ifTrue:[^true].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2806
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2807
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2808	junit_framework_TestCase := Java at:'junit.framework.TestCase'.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2809	(junit_framework_TestCase notNil and:
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2810	[self includesBehavior:junit_framework_TestCase])
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2811	ifTrue:[^selector startsWith: 'test'].
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2812
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2813	m := self lookupSelector: selector.
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2814	"Sorry fo that, but I need this method to be fast"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2815	^m notNil and:[m annotations runtimeVisible includesKey: 'Lorg/junit/Test;'].
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2816
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2817	"Modified: / 02-03-2011 / 23:08:02 / Marcel Hlopko <hlopik@gmail.com>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2818	"Created: / 04-03-2011 / 07:07:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2819	!
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2820
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2821	isTestletLike
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2822
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2823	^self interfaceNames includes:'gnu.testlet.Testlet'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2824
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2825	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2826	self interfaces
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2827	"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2828
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2829	"Modified: / 02-03-2011 / 23:08:02 / Marcel Hlopko <hlopik@gmail.com>"
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2830	"Created: / 29-04-2011 / 17:02:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2831	"Modified: / 13-02-2013 / 09:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2832	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2833
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2834	!JavaClass methodsFor:'unwind'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2835
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2836	unwindHandlerInContext: aContext
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2837	"given a context which has been marked for unwind,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2838	retrieve the handler block. This method is called when ST
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2839	exception raises and stack is unwinding. JavaClass instance
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2840	has an opportunity to clean up monitors"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2841
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2842	^ JavaVM unwindHandlerForJavaContext: aContext.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2843
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2844	"Created: / 08-11-2011 / 12:25:15 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2845	! !
c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2846
2504 08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2847	!JavaClass methodsFor:'versions'!
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2848
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2849	mergeVersionsWith: aJavaClass
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2850	"
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2851	take both self and aJavaClass and ensure that:
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2852	1) both share the same versions array instance
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2853	2) versions instance includes both self and aJavaClass.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2854	"
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2855
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2856	(self versions isNil and: [ aJavaClass versions isNil ]) ifTrue: [
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2857	\|versions\|
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2858	versions := WeakArray with: self with: aJavaClass.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2859	versions addDependent: JavaClass::JavaClassVersionDiedHandler new.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2860	self versions: versions.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2861	aJavaClass versions: versions.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2862	^ self.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2863	].
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2864	self versions isNil ifTrue: [
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2865	self versions: aJavaClass versions.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2866	self versions add: self.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2867	^ self.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2868	].
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2869	aJavaClass versions isNil ifTrue: [
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2870	aJavaClass versions: self versions.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2871	self versions add: aJavaClass.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2872	^ self.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2873	].
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2874	self error: 'merge of two classes both of which have multiple versions not supported'.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2875
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2876	"Created: / 14-04-2013 / 13:44:03 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2877	! !
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2878
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2879	!JavaClass::JavaClassVersionDiedHandler class methodsFor:'documentation'!
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2880
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2881	history
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2882
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2883	"Created: #update:with:from: / 14-04-2013 / 14:04:20 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2884	! !
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2885
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2886	!JavaClass::JavaClassVersionDiedHandler methodsFor:'notification'!
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2887
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2888	update:aParameter with:anArgument from:source
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2889
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2890	aParameter = #ElementExpired ifFalse: [
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2891	self error: 'only #ElementExpired updates supported'.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2892	].
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2893	self assert: (source notNil and: [ source size >= 1 ]).
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2894
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2895	source size = 1 ifTrue: [
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2896	"only one version remaining - we can start caching. Let's change the flag"
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2897	\| javaClass \|
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2898	javaClass := (source at: 1).
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2899	javaClass markCacheable.
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2900	].
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2901
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2902	"Created: / 14-04-2013 / 14:04:20 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
08bdd02727cf JavaClass>>mergeVersionsWith: Marcel Hlopko <marcel.hlopko@fit.cvut.cz> parents: 2476 diff changeset	2903	! !
2578 fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	2904
130 0483a6fd7d43 handle namespace requests; cg parents: 125 diff changeset	2905	!JavaClass class methodsFor:'documentation'!
1 083530508d9c intitial checkin cg parents: diff changeset	2906
083530508d9c intitial checkin cg parents: diff changeset	2907	version
2561 2e27f294057e exception access Claus Gittinger <cg@exept.de> parents: 2554 diff changeset	2908	^ '$Header: /cvs/stx/stx/libjava/JavaClass.st,v 1.135 2013-04-27 12:31:15 cg Exp $'
2197 6c7576efbf16 changed: #copyright Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2909	!
6c7576efbf16 changed: #copyright Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2910
6c7576efbf16 changed: #copyright Claus Gittinger <cg@exept.de> parents: 2151 diff changeset	2911	version_CVS
2561 2e27f294057e exception access Claus Gittinger <cg@exept.de> parents: 2554 diff changeset	2912	^ '$Header: /cvs/stx/stx/libjava/JavaClass.st,v 1.135 2013-04-27 12:31:15 cg Exp $'
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2913	!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2914
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2915	version_SVN
2566 f1cea8b752ba Merged branch default (CVS HEAD) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2529 2561 diff changeset	2916	^ 'Id'
1 083530508d9c intitial checkin cg parents: diff changeset	2917	! !
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2918
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2310 diff changeset	2919
2151 c0b6570c6f9b Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2143 diff changeset	2920	JavaClass initialize!

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 03 Sep 2013 01:18:46 +0100
branch	development
changeset 2705	e693added0af
parent 2648	f871848ecfa8
child 2711	a00302fe5083
child 2715	6cb9da58d6b3
permissions	-rw-r--r--