hg/stx-libjava: extensions.st@ee329fef15db (annotated)

2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1	"{ Package: 'stx:libjava' }"!
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	2
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	3	!Behavior methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	4
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	5	isInterface
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	6	"return true, if the receiver is a Java interface"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	7
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	8	^ false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	9
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	10	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	11	True isInterface
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	12	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	13
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	14	"Created: / 22-02-2012 / 21:53:20 / 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: 2339 diff changeset	15	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	16
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	17	!Behavior methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	18
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	19	isJavaPrimitiveType
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	20
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	21	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	22
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	23	"Created: / 20-12-2010 / 21:52: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: 2339 diff changeset	24	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	25
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	26	!Boolean class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	27
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	28	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	29
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	30	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	31
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	32	"Created: / 25-02-2011 / 08:22:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	33	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	34
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	35	!Boolean class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	36
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	37	javaArrayClass
2993 ed8cd8e5a16d Added JavaBooleanArray to represent boolean[]. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2974 diff changeset	38	^ JavaBooleanArray
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	39
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	40	"Created: / 25-02-2011 / 08:27:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2993 ed8cd8e5a16d Added JavaBooleanArray to represent boolean[]. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2974 diff changeset	41	"Modified: / 31-01-2014 / 12:31:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	42	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	43
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	44	!Boolean class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	45
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	46	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	47	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	48
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	49	wrapper := (JavaVM classForName: 'java.lang.Boolean') new.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	50	wrapper perform: #'<init>(Z)V' with: anObject.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	51	^ wrapper
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	52
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	53	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	54	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	55
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	56	!Boolean class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	57
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	58	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	59
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	60	^'boolean'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	61
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	62	"Modified: / 25-02-2011 / 18:58:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	63	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	64
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	65	!Boolean class methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	66
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	67	javaUnbox: object onError: errorBlock
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	68
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	69	\| value \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	70
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	71	(object class binaryName = 'java/lang/Boolean') ifFalse:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	72	errorBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	73	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	74	value := object instVarNamed: #value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	75	(value ~~ 0 and:[value ~~ 1]) ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	76	errorBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	77	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	78	^value
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	79
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	80	"Created: / 22-11-2011 / 11:52:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	81	"Modified: / 08-10-2013 / 22:41:38 / 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: 2339 diff changeset	82	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	83
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	84	!Boolean class methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	85
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	86	javaUnwrap: zeroOrOne
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	87
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	88	^zeroOrOne == 1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	89
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	90	"Created: / 10-12-2011 / 20:00:58 / 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: 2339 diff changeset	91	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	92
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	93	!Boolean class methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	94
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	95	javaWrap: boolean
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	96
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	97	^boolean ifTrue:[1] ifFalse:[0].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	98
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	99	"Created: / 18-03-2012 / 22:03:55 / 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: 2339 diff changeset	100	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	101
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	102	!Boolean class methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	103
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	104	javaWrapRequired
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	105	^true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	106
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	107	"Created: / 29-11-2012 / 23:02: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: 2339 diff changeset	108	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	109
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	110	!Boolean class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	111
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	112	javaWrapperClass
2588 58b1e0fd20e7 Changed JavaVM>>classForName: to faster JavaVM>>classForName:definedBy: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	113	^(JavaVM classForName: 'java.lang.Boolean')
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	114
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	115	"Created: / 24-02-2012 / 19:43:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2588 58b1e0fd20e7 Changed JavaVM>>classForName: to faster JavaVM>>classForName:definedBy: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	116	"Modified: / 07-05-2013 / 11:21:54 / 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: 2339 diff changeset	117	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	118
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	119	!ByteArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	120
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	121	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	122	^self basicSize
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	123
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	124	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	125	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	126
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	127	!ByteArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	128
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	129	_CHECKCAST: cls
2974 36b5b06398b5 Fix in ByteArray>>_CHECKCAST:/_INSTANCEOF: (typo/copy paste error) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2965 diff changeset	130	^cls == ByteArray ifTrue:[self] ifFalse:[JavaVM throwClassCastException]
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	131
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	132	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	133	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	134
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	135	!ByteArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	136
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	137	_INSTANCEOF: cls
2974 36b5b06398b5 Fix in ByteArray>>_CHECKCAST:/_INSTANCEOF: (typo/copy paste error) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2965 diff changeset	138	^ByteArray == cls ifTrue:[1] ifFalse:[0]
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	139
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	140	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	141	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	142
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	143	!ByteArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	144
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	145	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	146
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	147	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	148	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	149
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	150	!ByteArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	151
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	152	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	153
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	154	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	155
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	156	"Created: / 05-02-2011 / 22:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	157	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	158
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	159	!ByteArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	160
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	161	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	162
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	163	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	164	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	165
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	166	"Created: / 20-12-2010 / 22:30:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	167	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	168
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	169	!ByteArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	170
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	171	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	172
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	173	^JavaArray javaArrayClassFor: self
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	174
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	175	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	176	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	177
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	178	!ByteArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	179
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	180	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	181
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	182	^JavaByte
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	183
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	184	"Created: / 20-12-2010 / 22:05:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	185	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	186
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	187	!ByteArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	188
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	189	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	190
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	191	^'[B'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	192
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	193	"Modified: / 25-02-2011 / 19:02:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	194	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	195
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	196	!Character class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	197
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	198	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	199
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	200	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	201
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	202	"Created: / 20-12-2010 / 22:18:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	203	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	204
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	205	!Character class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	206
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	207	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	208	^ String
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	209
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	210	"Created: / 11-02-2011 / 10:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	211	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	212
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	213	!Character class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	214
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	215	javaBox: anObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	216	\| wrapper \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	217
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	218	wrapper := (JavaVM classForName: 'java.lang.Character') new.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	219	wrapper perform: #'<init>(C)V' with: anObject codePoint.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	220	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	221
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	222	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	223	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	224
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	225	!Character class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	226
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	227	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	228
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	229	^'char'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	230
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	231	"Modified: / 25-02-2011 / 18:58:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	232	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	233
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	234	!Character class methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	235
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	236	javaUnbox: object onError: errorBlock
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	237
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	238	\| value \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	239
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	240	(object class binaryName = 'java/lang/Character') ifFalse:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	241	errorBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	242	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	243	value := object instVarNamed: #value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	244	(value between: 0 and: 255) ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	245	errorBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	246	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	247	^value
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	248
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	249	"Created: / 22-11-2011 / 11:52:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	250	"Modified: / 08-10-2013 / 22:41:45 / 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: 2339 diff changeset	251	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	252
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	253	!Character class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	254
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	255	javaWrapperClass
2588 58b1e0fd20e7 Changed JavaVM>>classForName: to faster JavaVM>>classForName:definedBy: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	256	^(JavaVM classForName: 'java.lang.Character')
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	257
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	258	"Created: / 24-02-2012 / 19:42:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2588 58b1e0fd20e7 Changed JavaVM>>classForName: to faster JavaVM>>classForName:definedBy: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	259	"Modified: / 07-05-2013 / 11:21:48 / 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: 2339 diff changeset	260	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	261
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	262	!CharacterArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	263
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	264	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	265	^self basicSize
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	266
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	267	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	268	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	269
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	270	!CharacterArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	271
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	272	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	273	cls == Unicode16String ifTrue:[^self].
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	274	cls == String ifTrue:[^self].
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	275	^JavaVM throwClassCastException.
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	276
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	277
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	278	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	279	"Modified: / 14-05-2013 / 11:10:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	280	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	281
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	282	!CharacterArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	283
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	284	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	285	cls == Unicode16String ifTrue:[^1].
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	286	cls == String ifTrue:[^1].
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	287	^0
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	288
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	289	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	290	"Modified: / 14-05-2013 / 11:10:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	291	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	292
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	293	!CharacterArray methodsFor:'java conversions'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	294
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	295	asDottedJavaClassName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	296
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	297	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	298	examples:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	299	java.lang.String
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	300	[[[Ljava/lang/Object; => java.lang.Object
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	301	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	302
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	303
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	304	\| nm \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	305	nm := self asJavaComponentClassName.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	306	(nm startsWith: $L) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	307	nm := nm copyFrom: 2 to: nm size - 1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	308	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	309	(nm includes: $/) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	310	nm := nm asString copyReplaceAll: $/ with: $.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	311	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	312	^ nm.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	313
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	314	"Created: / 21-10-2011 / 12:31:51 / 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: 2339 diff changeset	315	"Created: / 30-10-2011 / 17:41:04 / 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: 2339 diff changeset	316	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	317
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	318	!CharacterArray methodsFor:'java conversions'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	319
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	320	asJavaComponentClassName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	321	\| componentClassName \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	322
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	323	componentClassName := self utf8Encoded.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	324	(componentClassName matches: '\[') ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	325	componentClassName := componentClassName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	326	copyFrom: (componentClassName lastIndexOf: $[) + 1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	327	to: componentClassName size.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	328	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	329	^ componentClassName.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	330	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	331
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	332	!CharacterArray methodsFor:'java conversions'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	333
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	334	asNiceJavaClassName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	335	\| niceName \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	336
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	337	niceName := self asJavaComponentClassName asSTXInternalJavaClassName.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	338	(self occurrencesOf: $[) timesRepeat: [ niceName := niceName , '[]' ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	339	niceName := niceName asString copyReplaceAll: $/ with: $..
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	340	^ niceName.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	341	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	342
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	343	!CharacterArray methodsFor:'java conversions'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	344
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	345	asSTXInternalJavaClassName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	346	\| internalName \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	347
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	348	internalName := self asJavaComponentClassName.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	349	(internalName startsWith: $L) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	350	internalName := internalName copyFrom: 2 to: internalName size - 1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	351	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	352	(internalName includes: $.) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	353	internalName := internalName asString copyReplaceAll: $. with: $/
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	354	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	355	^internalName.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	356	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	357
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	358	!CharacterArray methodsFor:'java conversions'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	359
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	360	asSlashedJavaClassName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	361	"removes square brackets and adds slashes"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	362	\| internalName \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	363	internalName := self asJavaComponentClassName.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	364	(internalName startsWith: $L) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	365	internalName := internalName copyFrom: 2 to: internalName size - 1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	366	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	367	(internalName includes: $.) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	368	internalName := internalName asString copyReplaceAll: $. with: $/
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	369	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	370	^ internalName.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	371
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	372	"Created: / 21-10-2011 / 12:31:51 / 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: 2339 diff changeset	373	"Created: / 30-10-2011 / 17:40: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: 2339 diff changeset	374	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	375
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	376	!CharacterArray methodsFor:'java queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	377
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	378	isJavaArrayDescriptor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	379	^ self startsWith:$[.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	380	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	381
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	382	!CharacterArray methodsFor:'java queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	383
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	384	isJavaPrimitiveTypeDescriptor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	385	^ (self size = 1 and: [ JavaDescriptor baseTypes includesKey: self first ]).
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	386	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	387
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	388	!CharacterArray methodsFor:'special string converting'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	389
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	390	withoutSuffix: aString
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	391	"if the receiver endsWith aString, return a copy without it.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	392	Otherwise return the receiver"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	393
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	394	(self endsWith: aString) ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	395	^ self copyFrom: 1 to: self size - aString size
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	396	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	397	^ self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	398
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	399	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	400	'helloworld' withoutSuffix:'world'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	401	'helloworld' withoutSuffix:'foo'"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	402
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	403	"Created: / 08-12-2012 / 20:26:27 / 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: 2339 diff changeset	404	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	405
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	406	!CharacterArray class methodsFor:'encoding & decoding'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	407
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	408	decodeFromJavaUTF8: bytes
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	409	"Decodes a string from modified UTF8 encoding
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	410	as used in Java .class files. see
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	411	'The class file format specification', section 4.5.7"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	412
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	413	\| string i s b codePoint realLength \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	414
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	415	string := String new: bytes size.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	416	realLength := bytes size.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	417	s := bytes readStream.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	418	i := 1.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	419	[ s atEnd ] whileFalse:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	420	[ b := s next.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	421	(b & 2r10000000) == 0
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	422	ifTrue: [ codePoint := b ]
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	423	ifFalse:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	424	[ self assert: (b & 2r01000000) = 2r01000000.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	425	(b & 2r00100000) = 0
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	426	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	427	[ "two byte utf char"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	428	realLength := realLength - 1.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	429	self assert: s size > 0.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	430	self assert: (b & 2r01000000) = 2r01000000.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	431	string bitsPerCharacter < 16
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	432	ifTrue: [ string := Unicode16String fromString: string ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	433	codePoint := (b & 2r00011111) << 6.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	434	b := s next.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	435	self assert: (b & 2r11000000) = 2r10000000.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	436	codePoint := codePoint + (b & 2r00111111). ]
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	437	ifFalse:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	438	[ "at lease 3 byte utf char"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	439	realLength := realLength - 2.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	440	string bitsPerCharacter < 16"was: 32"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	441	ifTrue: [ string := Unicode16String"was: Unicode32String" fromString: string ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	442	self assert: s size > 1.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	443	(b & 2r00010000) = 0
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	444	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	445	[ \| utf32Possible utf32Value \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	446
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	447	"3 or 6 byte utf char"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	448	self assert: s size > 1.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	449	s size < 5
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	450	ifTrue: [ utf32Possible := false ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	451	ifFalse: [ utf32Possible := true ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	452	b ~= 2r11101101 ifTrue: [ utf32Possible := false ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	453	codePoint := (b & 2r00001111) << 12.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	454	b := s next.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	455	self assert: (b & 2r11000000) = 2r10000000.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	456	((b & 2r11110000) = 2r10100000 and: [ utf32Possible ])
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	457	ifTrue: [ utf32Value := 2r00010000 + ((b & 2r00001111) << 16) ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	458	ifFalse: [ utf32Possible := false ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	459	codePoint := codePoint + ((b & 2r00111111) << 6).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	460	b := s next.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	461	self assert: (b & 2r11000000) = 2r10000000.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	462	utf32Possible
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	463	ifTrue: [ utf32Value := utf32Value + ((b & 2r00111111) << 10) ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	464	codePoint := codePoint + (b & 2r00111111).
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	465	utf32Possible
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	466	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	467	[ \| tmpB \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	468
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	469	string bitsPerCharacter < 32
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	470	ifTrue: [ string := Unicode32String fromString: string ].
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	471	tmpB := s copy.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	472	b := tmpB next.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	473	b = 2r11101101
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	474	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	475	[ b := tmpB next.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	476	(b & 2r11110000) = 2r10110000
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	477	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	478	[ utf32Value := utf32Value + ((b & 2r00001111) << 6).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	479	b := tmpB next.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	480	self assert: (b & 2r11000000) = 2r10000000.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	481	utf32Value := utf32Value + (b & 2r00111111).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	482	codePoint := utf32Value.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	483	realLength := realLength - 3. s position: tmpB position.] ] ] ]
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	484	ifFalse:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	485	[ "should not happen, ask mh"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	486	self halt. ] ] ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	487	string at: i put: (Character codePoint: codePoint).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	488	i := i + 1. ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	489	^ string subString: 1 to: realLength.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	490
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	491	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	492	String decodeFromJavaUTF8: 'Hello world' asByteArray"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	493
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	494	"Created: / 22-12-2010 / 23:45:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	495	"Modified: / 09-02-2011 / 01:12:25 / Marcel Hlopko <hlopik@gmail.com>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	496	"Modified: / 13-03-2011 / 15:52:36 / 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: 2339 diff changeset	497	"Modified: / 09-12-2011 / 19:49:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	498	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	499
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	500	!CharacterArray class methodsFor:'instance creation'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	501
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	502	fromJavaUTF8Bytes:aByteCollection
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	503	"return a new string which represents the characters as decoded
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	504	from the modified utf8 encoded bytes as specified in
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	505	The class file format specification, section 4.5.7"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	506
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	507	^ self decodeFromJavaUTF8:aByteCollection.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	508
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	509	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	510	CharacterArray fromUTF8Bytes:#[ 16r41 16r42 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	511	CharacterArray fromUTF8Bytes:#[ 16rC1 16r02 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	512	CharacterArray fromUTF8Bytes:#[ 16rE0 16r81 16r02 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	513	CharacterArray fromUTF8Bytes:#[ 16rEF 16rBF 16rBF ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	514
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	515	rfc2279 examples:
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	516	CharacterArray fromUTF8Bytes:#[ 16r41 16rE2 16r89 16rA2 16rCE 16r91 16r2E ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	517	CharacterArray fromUTF8Bytes:#[ 16rED 16r95 16r9C 16rEA 16rB5 16rAD 16rEC 16r96 16rB4 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	518	CharacterArray fromUTF8Bytes:#[ 16rE6 16r97 16rA5 16rE6 16r9C 16rAC 16rE8 16rAA 16r9E ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	519
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	520	invalid:
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	521	CharacterArray fromUTF8Bytes:#[ 16rC0 16r80 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	522	CharacterArray fromUTF8Bytes:#[ 16rE0 16r80 16r80 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	523	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	524
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	525	"Created: / 23-12-2010 / 09:01:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	526	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	527
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	528	!CharacterArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	529
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	530	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	531
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	532	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	533
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	534	"Created: / 05-02-2011 / 22:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	535	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	536
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	537	!CharacterArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	538
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	539	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	540
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	541	^JavaArray javaArrayClassFor: Unicode16String
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	542
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	543	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	544	"Modified: / 10-08-2011 / 13:18:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	545	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	546
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	547	!CharacterArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	548
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	549	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	550
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	551	^Character
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	552
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	553	"Created: / 20-12-2010 / 22:05:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	554	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	555
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	556	!Class methodsFor:'accessing - java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	557
2942 c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	558	binaryName
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	559	"Returns Java binary name for this class."
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	560
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	561	^ 'SMALLTALK/' , self name
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	562
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	563	"Created: / 20-11-2013 / 15:55:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	564	! !
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	565
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	566	!Class methodsFor:'accessing - java'!
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	567
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	568	classLoader
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	569	JavaVM smalltalkClassLoader
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	570
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	571	"Created: / 22-08-2012 / 13:00: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: 2339 diff changeset	572	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	573
2942 c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	574	!Class methodsFor:'queries'!
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	575
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	576	isSynthetic
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	577	^ false "/ Smalltalk classes are not synthetic...
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	578
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	579	"Created: / 20-11-2013 / 16:03:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	580	! !
c39cbf09ea3d Fixes for Java reflection on Smalltalk classes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2918 diff changeset	581
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	582	!Class methodsFor:'accessing - java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	583
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	584	javaMirror
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	585	^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: 2339 diff changeset	586
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	587	"Created: / 31-07-2012 / 17:39: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: 2339 diff changeset	588	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	589
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	590	!Class methodsFor:'accessing - java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	591
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	592	javaMirrorClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	593	"Returns a Java mirror class to be used by Java reflection"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	594
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	595	self isJavaPrimitiveType ifTrue:[ ^ JavaMirror mirrorClassForJavaPrimitive ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	596	self isJavaArrayClass ifTrue:[ ^ JavaMirror mirrorClassForJavaArray ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	597	^JavaMirror mirrorClassForAlienClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	598
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	599	"Created: / 31-07-2012 / 17:39: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: 2339 diff changeset	600	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	601
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	602	!Class methodsFor:'accessing - java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	603
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	604	lookupMethodByNameAndType: nameAndType
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	605	\| descriptor selector \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	606
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	607	descriptor := JavaMethodDescriptor fromString: (nameAndType descriptor).
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	608	selector := nameAndType name copyReplaceAll: $_ with: $:.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	609	descriptor numArgs > 0 ifTrue:[selector := selector , ':'].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	610	selector := selector asSymbol.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	611
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	612	^self lookupMethodFor: selector
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	613
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	614	"Created: / 22-08-2012 / 13:11:14 / 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: 2339 diff changeset	615	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	616
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	617	!ConfigurableFeatures class methodsFor:'queries-features'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	618
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	619	hasJavaSupport
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	620	"/ use Smalltalk-at to trick the dependency/prerequisite generator
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	621	^ (Smalltalk at: #'JavaVM' ifAbsent:nil) notNil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	622
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	623	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	624	ConfigurableFeatures hasJavaSupport
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	625	ConfigurableFeatures includesFeature:#JavaSupport
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	626	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	627
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	628	"Created: / 03-01-2012 / 15:36:03 / cg"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	629	"Created: / 18-02-2012 / 16:42: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: 2339 diff changeset	630	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	631
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	632	!Context methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	633
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	634	arg1Index
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	635	^1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	636
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	637	"Created: / 31-01-2013 / 13:29: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: 2339 diff changeset	638	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	639
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	640	!Delay methodsFor:'delaying'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	641
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	642	waitWithState:state
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	643	"suspend the current process until either the relative time delta
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	644	has passed (if millisecondDelta is non-nil), or the absolute millisecondTime
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	645	has been reached (if resumptionTime non-nil)."
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	646
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	647	Processor activeProcess state:state.
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	648	self wait.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	649
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	650	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	651	Transcript showCR:'1'.
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	652	(Delay forSeconds:10) waitWithState:#sleep.
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	653	Transcript showCR:'2'.
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	654	"
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	655
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	656	"Modified: / 18-04-1997 / 11:56:46 / stefan"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	657	"Created: / 30-11-2011 / 13:38:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	658	"Modified: / 25-07-2013 / 11:33:41 / exept"
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	659	"Modified: / 25-07-2013 / 11:34:54 / cg"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	660	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	661
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	662	!DoubleArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	663
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	664	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	665	^self basicSize
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	666
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	667	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	668	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	669
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	670	!DoubleArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	671
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	672	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	673	^cls == DoubleArray ifTrue:[self] ifFalse:[JavaVM throwClassCastException]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	674
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	675	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	676	"Modified: / 14-05-2013 / 11:11:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	677	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	678
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	679	!DoubleArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	680
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	681	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	682	^DoubleArray == cls ifTrue:[1] ifFalse:[0]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	683
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	684	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	685	"Modified: / 14-05-2013 / 11:11:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	686	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	687
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	688	!DoubleArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	689
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	690	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	691
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	692	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	693	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	694
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	695	!DoubleArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	696
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	697	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	698
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	699	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	700
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	701	"Created: / 20-12-2010 / 22:47:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	702	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	703
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	704	!DoubleArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	705
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	706	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	707
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	708	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	709	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	710
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	711	"Created: / 20-12-2010 / 22:30:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	712	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	713
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	714	!DoubleArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	715
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	716	javaArrayClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	717	^ JavaArray javaArrayClassFor: self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	718
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	719	"Created: / 06-12-2011 / 17:28:26 / 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: 2339 diff changeset	720	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	721
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	722	!DoubleArray class methodsFor:'accessing-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	723
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	724	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	725
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	726	^Float
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	727
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	728	"Created: / 20-12-2010 / 22:06:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	729	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	730
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	731	!DoubleArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	732
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	733	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	734
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	735	^'[D'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	736
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	737	"Modified: / 25-02-2011 / 19:03:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	738	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	739
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	740	!ExecutableFunction methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	741
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	742	isJavaConstructor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	743	^ false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	744
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	745	"Created: / 31-07-2012 / 18:42: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: 2339 diff changeset	746	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	747
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	748	!ExecutableFunction methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	749
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	750	isProxyMethod
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	751	"return true, if the receiver is a proxy method.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	752	false is returned here, true is returned in ProxyMethod."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	753
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	754	^ false.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	755
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	756	"Created: / 16-12-2012 / 13:35:41 / 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: 2339 diff changeset	757	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	758
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	759	!Float class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	760
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	761	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	762
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	763	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	764
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	765	"Created: / 06-02-2011 / 17:21:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	766	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	767
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	768	!Float class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	769
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	770	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	771	^ DoubleArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	772
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	773	"Created: / 11-02-2011 / 10:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	774	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	775
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	776	!Float class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	777
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	778	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	779	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	780
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	781	wrapper := (JavaVM classForName: 'java.lang.Double') new.
2918 e2fc5ead5542 Fix in Float/LargeInteger>>javaBox: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2907 diff changeset	782	wrapper perform: #'<init>(D)V' with: anObject with: nil.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	783	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	784
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	785	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2918 e2fc5ead5542 Fix in Float/LargeInteger>>javaBox: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2907 diff changeset	786	"Modified: / 14-11-2013 / 01:21:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	787	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	788
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	789	!Float class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	790
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	791	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	792
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	793	^'double'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	794
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	795	"Modified: / 25-02-2011 / 18:59:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	796	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	797
2442 037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	798	!Float class methodsFor:'autoboxing support'!
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	799
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	800	javaUnbox: object onError: errorBlock
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	801
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	802	\| value \|
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	803
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	804	(object class binaryName = 'java/lang/Double') ifFalse:[
2442 037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	805	errorBlock value.
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	806	].
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	807	value := object instVarNamed: #value.
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	808	^value
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	809
6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	810	"Modified: / 08-10-2013 / 22:41:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2442 037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	811	! !
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	812
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	813	!Float class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	814
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	815	javaWrapperClass
2588 58b1e0fd20e7 Changed JavaVM>>classForName: to faster JavaVM>>classForName:definedBy: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	816	^(JavaVM classForName: 'java.lang.Double')
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	817
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	818	"Created: / 24-02-2012 / 19:42:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2588 58b1e0fd20e7 Changed JavaVM>>classForName: to faster JavaVM>>classForName:definedBy: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	819	"Modified: / 07-05-2013 / 11:21:38 / 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: 2339 diff changeset	820	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	821
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	822	!FloatArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	823
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	824	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	825	^self basicSize
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	826
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	827	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	828	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	829
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	830	!FloatArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	831
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	832	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	833	^cls == FloatArray ifTrue:[self] ifFalse:[JavaVM throwClassCastException]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	834
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	835	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	836	"Modified: / 14-05-2013 / 11:11:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	837	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	838
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	839	!FloatArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	840
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	841	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	842	^FloatArray == cls ifTrue:[1] ifFalse:[0]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	843
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	844	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	845	"Modified: / 14-05-2013 / 11:11:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	846	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	847
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	848	!FloatArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	849
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	850	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	851
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	852	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	853	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	854
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	855	!FloatArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	856
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	857	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	858
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	859	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	860
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	861	"Created: / 20-12-2010 / 22:47:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	862	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	863
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	864	!FloatArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	865
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	866	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	867
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	868	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	869	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	870
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	871	"Created: / 20-12-2010 / 22:30:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	872	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	873
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	874	!FloatArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	875
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	876	javaArrayClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	877	^ JavaArray javaArrayClassFor: self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	878
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	879	"Created: / 06-12-2011 / 17:29:01 / 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: 2339 diff changeset	880	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	881
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	882	!FloatArray class methodsFor:'accessing-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	883
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	884	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	885
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	886	^ShortFloat
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	887
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	888	"Created: / 20-12-2010 / 22:06:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	889	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	890
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	891	!FloatArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	892
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	893	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	894
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	895	^'[F'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	896
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	897	"Modified: / 25-02-2011 / 19:03:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	898	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	899
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	900	!Integer class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	901
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	902	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	903
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	904	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	905
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	906	"Created: / 11-02-2011 / 11:12:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	907	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	908
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	909	!Integer class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	910
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	911	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	912	^ SignedIntegerArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	913
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	914	"Created: / 11-02-2011 / 10:51:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	915	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	916
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	917	!Integer class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	918
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	919	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	920	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	921
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	922	wrapper := (JavaVM classForName: 'java.lang.Integer') new.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	923	wrapper perform: #'<init>(I)V' with: anObject.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	924	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	925
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	926	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	927	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	928
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	929	!Integer class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	930
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	931	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	932
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	933	^'int'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	934
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	935	"Modified: / 25-02-2011 / 18:59:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	936	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 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: 2339 diff changeset	938	!Integer class methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	939
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	940	javaUnbox: object onError: errorBlock
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	941
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	942	^self javaUnbox: object onError: errorBlock
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	943	min: "Integer.MIN_VALUE"-2147483648
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	944	max: "Integer.MAX_VALUE" 2147483647
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	945
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	946	"Created: / 25-11-2011 / 19:10: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: 2339 diff changeset	947	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	948
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	949	!Integer class methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	950
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	951	javaUnbox: object onError: errorBlock min: min max: max
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	952
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	953	\| value \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	954
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	955	(#( 'java/lang/Byte'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	956	'java/lang/Short'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	957	'java/lang/Integer'
2907 503761e88b38 Fixes for Mauve tests. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2841 diff changeset	958	"'java/lang/Long'" ) includes: object class binaryName) ifFalse:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	959	errorBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	960	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	961
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	962	value := object instVarNamed:#value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	963	(value between: min and: max) ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	964	errorBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	965	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	966	^value
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	967
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	968	"Created: / 22-11-2011 / 11:43:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2907 503761e88b38 Fixes for Mauve tests. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2841 diff changeset	969	"Modified: / 08-11-2013 / 00:02:06 / 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: 2339 diff changeset	970	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	971
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	972	!Integer class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	973
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	974	javaWrapperClass
2588 58b1e0fd20e7 Changed JavaVM>>classForName: to faster JavaVM>>classForName:definedBy: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	975	^(JavaVM classForName: 'java.lang.Integer')
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	976
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	977	"Created: / 24-02-2012 / 19:41:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2588 58b1e0fd20e7 Changed JavaVM>>classForName: to faster JavaVM>>classForName:definedBy: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2578 diff changeset	978	"Modified: / 07-05-2013 / 11:21:08 / 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: 2339 diff changeset	979	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	980
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	981	!LargeInteger class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	982
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	983	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	984
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	985	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	986
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	987	"Created: / 04-02-2011 / 11:55:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	988	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	989
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	990	!LargeInteger class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	991
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	992	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	993	^ SignedLongIntegerArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	994
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	995	"Created: / 11-02-2011 / 10:51:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	996	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	997
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	998	!LargeInteger class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	999
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1000	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1001	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1002
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1003	wrapper := (JavaVM classForName: 'java.lang.Long') new.
2918 e2fc5ead5542 Fix in Float/LargeInteger>>javaBox: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2907 diff changeset	1004	wrapper perform: #'<init>(J)V' with: anObject with: nil.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1005	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1006
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1007	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2918 e2fc5ead5542 Fix in Float/LargeInteger>>javaBox: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2907 diff changeset	1008	"Modified: / 14-11-2013 / 01:21:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1009	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1010
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1011	!LargeInteger class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1012
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1013	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1014
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1015	^'long'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1016
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1017	"Modified: / 25-02-2011 / 18:59:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1018	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1019
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1020	!LargeInteger class methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1021
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1022	javaUnbox: object onError: errorBlock
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1023
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1024	\| value \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1025
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1026	(object class binaryName = 'java/lang/Long') ifFalse:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1027	errorBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1028	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1029
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1030	value := object instVarNamed:#value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1031	(value between: "Integer.MIN_VALUE"-9223372036854775808 and: "Integer.MAX_VALUE" 9223372036854775807) ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1032	errorBlock value.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1033	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1034	^value
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1035
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1036	"Created: / 22-11-2011 / 11:45:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1037	"Modified: / 08-10-2013 / 22:42:10 / 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: 2339 diff changeset	1038	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1039
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1040	!LargeInteger class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1041
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1042	javaWrapperClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1043	^(Java classForName: 'java.lang.Long')
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1044
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1045	"Created: / 24-02-2012 / 19:42:20 / 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: 2339 diff changeset	1046	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1047
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1048	!Method methodsFor:'queries-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1049
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1050	isAbstract
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1051	"For compatibility with Java methods"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1052
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1053	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1054
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1055	"Created: / 22-08-2012 / 13:19: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: 2339 diff changeset	1056	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1057
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1058	!Method methodsFor:'queries-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1059
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1060	isStatic
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1061	"For compatibility with Java methods"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1062
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1063	^mclass notNil and:[mclass isMetaclass]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1064
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1065	"Created: / 22-08-2012 / 12:27: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: 2339 diff changeset	1066	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1067
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1068	!Method methodsFor:'accessing-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1069
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1070	javaClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1071	"For compatibiliry with JavaMethod"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1072	^mclass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1073
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1074	"Created: / 22-08-2012 / 13:20: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: 2339 diff changeset	1075	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1076
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1077	!Object methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1078
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1079	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1080	^JavaVM _ARRAYLENGTH: self
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1081
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1082	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1083	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1084
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1085	!Object methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1086
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1087	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1088	^JavaVM _CHECKCAST: self _: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1089
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1090	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1091	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1092
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1093	!Object methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1094
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1095	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1096	^JavaVM _INSTANCEOF: self _: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1097
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1098	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1099	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1100
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1101	!Object methodsFor:'accessing-Java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1102
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1103	getJavaLockWord
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1104	"Returns a Java lock word for given object. The returned
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1105	value is
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1106	- either SmallInteger that encodes the thinlock
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1107	- or a fat lock, instance of JavaMonitor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1108	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1109
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1110	"/For nonJava objects, always return fatlock
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1111
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1112	^self getJavaMonitor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1113
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1114	"Created: / 26-08-2012 / 14:03:59 / 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: 2339 diff changeset	1115	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1116
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1117	!Object methodsFor:'accessing-Java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1118
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1119	getJavaMonitor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1120	"Returns fat JavaMonitor associated with the receiver"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1121
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1122	^JavaVM getJavaMonitorFor: self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1123
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1124	"Created: / 26-08-2012 / 18:35:19 / 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: 2339 diff changeset	1125	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1126
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1127	!Object methodsFor:'testing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1128
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1129	isGroovyClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1130	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1131
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1132	"Created: / 18-02-2012 / 20:29: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: 2339 diff changeset	1133	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1134
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1135	!Object methodsFor:'testing'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1136
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1137	isJavaArray
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1138
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1139	^self class isJavaArrayClass
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1140
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1141	"Created: / 19-12-2010 / 17:05:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1142	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1143
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1144	!Object methodsFor:'testing'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1145
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1146	isJavaNameAndType
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1147	"return true, if given object represents name and type struct in java constant pool"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1148
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1149	^ false.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1150
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1151	"Created: / 10-05-2011 / 12:21:52 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1152	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1153
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1154	!Object methodsFor:'testing'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1155
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1156	isJavaPackage
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1157	"return true, if the receiver is a java package.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1158	False is returned here - the method is only redefined in JavaPackage."
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1159
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1160	^ false
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1161
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1162	"Created: / 09-08-2011 / 09:35:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1163	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1164
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1165	!Object methodsFor:'testing'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1166
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1167	isJavaRef
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1168	"Return true, if given object represents reference in java constant pool"
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1169
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1170	^ false.
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1171
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1172	"Created: / 08-04-2011 / 16:12:45 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1173	"Modified (comment): / 30-08-2013 / 00:41:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1174	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1175
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1176	!Object methodsFor:'testing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1177
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1178	isJavaWrapperClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1179	"return true, if this is a java wrapper class, i.e, java.lang.Integer, java.lang.Boolean etc."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1180
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1181	^ false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1182
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1183	"Created: / 01-01-2012 / 17:25: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: 2339 diff changeset	1184	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1185
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1186	!Object methodsFor:'testing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1187
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1188	isSocket
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1189	"return true, if the receiver is some kind of socket;
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1190	false returned here - the method is only redefined in Socket."
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1191
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1192	^ false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1193
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1194	"Created: / 17-08-2012 / 15:32: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: 2339 diff changeset	1195	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1196
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1197	!Object methodsFor:'autoboxing support'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1198
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1199	javaBox: anObject
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1200
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1201	^anObject
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1202
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1203	"Created: / 15-08-2011 / 10:52:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1204	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1205
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1206	!Object methodsFor:'autoboxing support'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1207
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1208	javaUnwrap: anObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1209	"Unwraps the objects. Possibly call on the wrapped class"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1210
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1211	^anObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1212
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1213	"Created: / 10-12-2011 / 19:51: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: 2339 diff changeset	1214	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1215
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1216	!Object methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1217
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1218	javaUnwrapFrom: javaType
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1219	^ self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1220
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1221	"Created: / 10-12-2011 / 19:51: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: 2339 diff changeset	1222	"Created: / 30-12-2011 / 15:22:06 / 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: 2339 diff changeset	1223	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1224
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1225	!Object methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1226
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1227	javaWrap: anObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1228	"Wraps the receiver into corresponding Java object"
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1229
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1230	^anObject
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1231
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1232	"Created: / 26-12-2011 / 00:57: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: 2339 diff changeset	1233	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1234
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1235	!Object methodsFor:'autoboxing support'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1236
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1237	javaWrapRequired
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1238	"Returns true, if a #javaWrap: has to be called
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1239	prior an instance of Smalltalk object is passed
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1240	as an argument to Java method, whoose formal tyoe
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1241	is the receiver.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1242
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1243	Example:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1244	Let's say the Java method is declared as
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1245
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1246	publid void setCount(int c) { ... }
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1247
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1248	and Smalltalk calls
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1249
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1250	obj setCount: 0
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1251
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1252	then 'Integer javaWrapRequired' should return false as there
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1253	is no need to wrap SmallInt as it represent java int values.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1254	(Integer is formal type of argument c.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1255
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1256	If the method is declared as:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1257
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1258	publid void setCount(java.lang.Integer c) { ... }
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1259
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1260	then 'java.lang.Integer javaWrapRequired' should return true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1261	as the integer value must be wrapped into an instance of
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1262	java.lang.Integer before it is passed to a Java method.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1263
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1264	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1265
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1266	^false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1267
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1268	"Created: / 05-11-2012 / 00:29:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1269	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1270
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1271	!Object class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1272
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1273	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1274
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1275	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1276
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1277	"Created: / 19-12-2010 / 17:05:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1278	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1279
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1280	!Object class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1281
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1282	isJavaClassType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1283
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1284	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1285
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1286	"Created: / 11-02-2011 / 08:08:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1287	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1288
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1289	!Object class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1290
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1291	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1292
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1293	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1294
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1295	"Created: / 20-12-2010 / 21:52:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1296	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1297
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1298	!Object class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1299
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1300	isJavaType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1301
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1302	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1303
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1304	"Created: / 20-12-2010 / 21:52:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1305	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1306
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1307	!Process methodsFor:'Java protocol'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1308
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1309	clearInterrupted
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1310	JavaVM clearInterrupted: self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1311
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1312	"Created: / 30-11-2011 / 10:44:26 / 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: 2339 diff changeset	1313	"Modified: / 16-08-2012 / 22:03:10 / 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: 2339 diff changeset	1314	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1315
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1316	!Process methodsFor:'Java protocol'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1317
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1318	isInterrupted
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1319
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1320	^ JavaVM isInterrupted: self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1321
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1322	"Created: / 30-11-2011 / 12:12:33 / 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: 2339 diff changeset	1323	"Modified: / 16-08-2012 / 21:56: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: 2339 diff changeset	1324	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1325
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1326	!Process methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1327
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1328	isParked
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1329	"return true, iff the receiver is parked (by means of sun.misc.Unsafe.park() )"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1330
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1331	^ (state == #parked)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1332
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1333	"Created: / 16-08-2012 / 22:13: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: 2339 diff changeset	1334	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1335
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1336	!Process methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1337
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1338	isSleeping
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1339	"return true, iff the receiver is sleeping on Delay"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1340
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1341	^ (state == #sleep)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1342
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1343	"Created: / 30-11-2011 / 13:35:18 / 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: 2339 diff changeset	1344	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1345
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1346	!Process methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1347
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1348	isWaiting
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1349	"return true, iff the receiver is waiting on semaphore or something"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1350
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1351	^ (state == #wait)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1352
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1353	"Created: / 20-11-2011 / 20:55:11 / 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: 2339 diff changeset	1354	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1355
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1356	!Process methodsFor:'Java protocol'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1357
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1358	javaInterrupt
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1359	self isWaiting ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1360	self interruptWith: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1361	JavaVM throwInterruptedException: 'thread has been interrupted during wait'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1362	self terminate
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1363	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1364	^self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1365	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1366
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1367	self isSleeping ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1368	self interruptWith: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1369	JavaVM throwInterruptedException: 'thread has been interrupted during sleep'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1370	self terminate
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1371	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1372	^self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1373	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1374
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1375	self isParked ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1376	self setInterrupted.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1377	JavaVM unpark: self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1378	^self.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1379	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1380
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1381	self setInterrupted
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1382
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1383	"Created: / 30-11-2011 / 13:35:18 / 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: 2339 diff changeset	1384	"Modified: / 16-08-2012 / 22:14: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: 2339 diff changeset	1385	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1386
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1387	!Process methodsFor:'Java protocol'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1388
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1389	setInterrupted
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1390
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1391	JavaVM setInterrupted: self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1392
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1393	"Created: / 30-11-2011 / 10:44:37 / 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: 2339 diff changeset	1394	"Modified: / 16-08-2012 / 22:03:23 / 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: 2339 diff changeset	1395	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1396
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1397	!ProgrammingLanguage methodsFor:'testing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1398
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1399	isGroovy
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1400	"true iff this is a Groovy language"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1401
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1402	^ false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1403
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1404	"Created: / 13-04-2012 / 17:47:20 / 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: 2339 diff changeset	1405	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1406
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1407	!ProgrammingLanguage methodsFor:'testing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1408
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1409	isJavaLike
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1410	"true if receiver is kind of Java language (based on Java)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1411
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1412	^ false
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1413
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1414	"Created: / 13-04-2012 / 17:48:07 / 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: 2339 diff changeset	1415	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1416
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1417	!ProjectDefinition class methodsFor:'description - java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1418
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1419	javaBundle
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1420	"Defines a Java code bundle provided by this package.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1421	Used by STX:LIBJAVA"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1422
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1423	^nil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1424
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1425	"Created: / 15-01-2013 / 16:49: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: 2339 diff changeset	1426	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1427
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1428	!ProjectDefinition class methodsFor:'description - java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1429
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1430	javaClassPath
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1431
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1432	"Defines a Java class path containing java classes/jars
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1433	required by this package"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1434
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1435	^#()
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1436
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1437	"Created: / 13-12-2011 / 23:48:49 / 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: 2339 diff changeset	1438	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1439
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1440	!ProjectDefinition class methodsFor:'description - java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1441
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1442	javaSourcePath
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1443
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1444	"Defines paths to Java source files (for packages that
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1445	contains Java code"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1446	^#()
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1447
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1448	"Created: / 13-12-2011 / 23:49:23 / 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: 2339 diff changeset	1449	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1450
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1451	!Semaphore methodsFor:'waiting'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1452
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1453	parkWithTimeoutMs:milliSeconds
3151 ee329fef15db Merged 490a1b914f93 and e35f2fac0337 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	1454	"Same as #waitWithTimeoutMs: but sets the state to #parked."
ee329fef15db Merged 490a1b914f93 and e35f2fac0337 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	1455
ee329fef15db Merged 490a1b914f93 and e35f2fac0337 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3028 diff changeset	1456	^ self waitWithTimeoutMs:milliSeconds state: #parked
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1457	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1458
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1459	!Set methodsFor:'javaProtocol'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1460
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1461	java__contains:anObject
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1462	^ self contains: [:el \| anObject = el ]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1463	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1464
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1465	!ShortFloat class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1466
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1467	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1468
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1469	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1470
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1471	"Created: / 06-02-2011 / 17:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1472	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1473
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1474	!ShortFloat class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1475
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1476	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1477	^ FloatArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1478
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1479	"Created: / 11-02-2011 / 10:50:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1480	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1481
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1482	!ShortFloat class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1483
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1484	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1485	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1486
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1487	wrapper := (JavaVM classForName: 'java.lang.Float') new.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1488	wrapper perform: #'<init>(F)V' with: anObject.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1489	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1490
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1491	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1492	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1493
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1494	!ShortFloat class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1495
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1496	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1497
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1498	^'float'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1499
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1500	"Modified: / 25-02-2011 / 18:59:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1501	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1502
2450 1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1503	!ShortFloat class methodsFor:'autoboxing support'!
1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1504
1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1505	javaUnbox: object onError: errorBlock
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1506	(object class binaryName = 'java/lang/Float') ifFalse:[
2450 1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1507	errorBlock value.
1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1508	].
1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1509	^object instVarNamed: #value.
1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1510
1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1511	"Created: / 22-11-2011 / 11:52:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1512	"Modified: / 08-10-2013 / 22:42:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2450 1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 diff changeset	1513	! !
1d34ee4362f4 Fixes for reflection - added box/unbox support to Float/ShortFloat. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2380 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: 2339 diff changeset	1515	!ShortFloat class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1516
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1517	javaWrapperClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1518	^(Java classForName: 'java.lang.Float')
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1519
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1520	"Created: / 24-02-2012 / 19:42:37 / 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: 2339 diff changeset	1521	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1522
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1523	!SignedIntegerArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1524
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1525	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1526	^self basicSize
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1527
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1528	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1529	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1530
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1531	!SignedIntegerArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1532
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1533	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1534	^cls == SignedIntegerArray ifTrue:[self] ifFalse:[JavaVM throwClassCastException]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1535
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1536	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1537	"Modified: / 14-05-2013 / 11:11:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1538	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1539
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1540	!SignedIntegerArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1541
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1542	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1543	^SignedIntegerArray == cls ifTrue:[1] ifFalse:[0]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1544
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1545	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1546	"Modified: / 14-05-2013 / 11:11:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1547	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1548
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1549	!SignedIntegerArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1550
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1551	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1552
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1553	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1554	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1555
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1556	!SignedIntegerArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1557
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1558	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1559
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1560	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1561
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1562	"Created: / 06-02-2011 / 15:16:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1563	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1564
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1565	!SignedIntegerArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1566
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1567	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1568
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1569	^JavaArray javaArrayClassFor: SignedIntegerArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1570
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1571	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1572	"Modified: / 10-08-2011 / 22:47:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1573	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1574
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1575	!SignedIntegerArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1576
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1577	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1578
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1579	^ Integer
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1580
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1581	"Created: / 25-06-2011 / 08:38:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1582	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1583
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1584	!SignedIntegerArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1585
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1586	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1587
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1588	^'[I'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1589
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1590	"Modified: / 25-02-2011 / 19:03:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1591	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1592
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1593	!SignedLongIntegerArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1594
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1595	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1596	^self basicSize
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1597
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1598	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1599	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1600
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1601	!SignedLongIntegerArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1602
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1603	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1604	^cls == SignedLongIntegerArray ifTrue:[self] ifFalse:[JavaVM throwClassCastException]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1605
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1606	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1607	"Modified: / 14-05-2013 / 11:14:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1608	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1609
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1610	!SignedLongIntegerArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1611
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1612	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1613	^SignedLongIntegerArray == cls ifTrue:[1] ifFalse:[0]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1614
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1615	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1616	"Modified: / 14-05-2013 / 11:14:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1617	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1618
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1619	!SignedLongIntegerArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1620
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1621	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1622
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1623	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1624	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1625
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1626	!SignedLongIntegerArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1627
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1628	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1629
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1630	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1631
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1632	"Created: / 20-12-2010 / 22:47:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1633	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1634
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1635	!SignedLongIntegerArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1636
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1637	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1638
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1639	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1640	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1641
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1642	"Created: / 20-12-2010 / 22:30:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1643	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1644
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1645	!SignedLongIntegerArray class methodsFor:'accessing-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1646
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1647	javaArrayClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1648
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1649	^JavaArray javaArrayClassFor: SignedLongIntegerArray
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1650
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1651	"Modified: / 10-08-2011 / 22:47:37 / 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: 2339 diff changeset	1652	"Created: / 26-08-2011 / 18:29:18 / 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: 2339 diff changeset	1653	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1654
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1655	!SignedLongIntegerArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1656
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1657	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1658
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1659	^LargeInteger
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1660
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1661	"Modified: / 25-06-2011 / 08:38:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1662	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1663
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1664	!SignedLongIntegerArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1665
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1666	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1667
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1668	^'[J'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1669
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1670	"Modified: / 25-02-2011 / 19:03:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1671	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1672
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1673	!SignedWordArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1674
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1675	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1676	^self basicSize
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1677
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1678	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1679	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1680
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1681	!SignedWordArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1682
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1683	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1684	^cls == SignedWordArray ifTrue:[self] ifFalse:[JavaVM throwClassCastException]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1685
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1686	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1687	"Modified: / 14-05-2013 / 11:14:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1688	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1689
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1690	!SignedWordArray methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1691
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1692	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1693	^SignedWordArray == cls ifTrue:[1] ifFalse:[0]
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1694
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1695	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1696	"Modified: / 14-05-2013 / 11:14:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1697	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1698
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1699	!SignedWordArray class methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1700
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1701	isJavaArrayClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1702
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1703	^true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1704
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1705	"Created: / 20-12-2010 / 22:47: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: 2339 diff changeset	1706	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1707
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1708	!SignedWordArray class methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1709
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1710	isJavaReferenceType
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1711
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1712	"Java arrays are reference types"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1713	^true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1714
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1715	"Created: / 20-12-2010 / 22:30:40 / 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: 2339 diff changeset	1716	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1717
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1718	!SignedWordArray class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1719
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1720	javaComponentClass
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1721
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1722	^JavaShort
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1723
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1724	"Modified: / 24-02-2012 / 17:46: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: 2339 diff changeset	1725	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1726
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1727	!SignedWordArray class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1728
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1729	javaName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1730
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1731	^'[S'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1732
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1733	"Modified: / 24-02-2012 / 17:46: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: 2339 diff changeset	1734	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1735
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1736	!SmallInteger methodsFor:'autoboxing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1737
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1738	javaUnwrapFrom: javaType
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1739	javaType = #boolean ifTrue: [
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1740	^ self = 1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1741	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1742	^ self
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1743
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1744	"Created: / 30-12-2011 / 15:22:52 / 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: 2339 diff changeset	1745	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1746
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1747	!Socket methodsFor:'testing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1748
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1749	isSocket
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1750	^true
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1751
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1752	"Created: / 17-08-2012 / 15:32:30 / 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: 2339 diff changeset	1753	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1754
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1755	!Socket methodsFor:'special'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1756
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1757	reOpenIfPossible
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1758	"If the socket was listening (server-sockets), try to reopen it"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1759
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1760	listening ifFalse:[ ^ self ].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1761	[
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1762	self domain:domain type:socketType protocol:protocol reuseAddress:true.
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1763	self bindTo:port address:nil.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1764	self listenFor: 5
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1765	] on: OpenError do:[
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1766	"Nothing, socket could not be reopened"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1767	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1768
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1769	"Created: / 17-08-2012 / 15:43: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: 2339 diff changeset	1770	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1771
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1772	!String methodsFor:'converting'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1773
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1774	asArrayOfSubstringsSeparatedBy:aSeparator
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1775	"Modified version of asArrayOfSubstrings"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1776
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1777	\|substrings start end\|
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1778
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1779	substrings := OrderedCollection new.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1780	start := 1.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1781	[start <= self size] whileTrue:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1782	(self at:start) = aSeparator ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1783	end := start + 1.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1784	[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1785	end <= self size and:[(self at:end) ~= aSeparator]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1786	] whileTrue:[end := end + 1].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1787	substrings add:(self copyFrom:start to:end - 1).
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1788	start := end - 1
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1789	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1790	start := start + 1
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1791	].
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1792	^ substrings asArray
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1793
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1794	"Created: / 07-02-2011 / 11:18:03 / Marcel Hlopko <hlopik@gmail.com>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1795	"Modified: / 08-02-2011 / 01:08:15 / Marcel Hlopko <hlopik@gmail.com>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1796	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1797
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1798	!String class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1799
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1800	javaName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1801	^ '[C'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1802
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1803	"Created: / 18-01-2013 / 22:27:02 / 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: 2339 diff changeset	1804	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1805
2595 77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1806	!UndefinedObject methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1807
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1808	_ARRAYLENGTH: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1809	^JavaVM throwNullPointerException
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1810
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1811	"Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1812	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1813
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1814	!UndefinedObject methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1815
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1816	_CHECKCAST: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1817	^nil
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1818
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1819	"Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1820	"Modified: / 14-05-2013 / 11:10:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1821	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1822
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1823	!UndefinedObject methodsFor:'vm support'!
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1824
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1825	_INSTANCEOF: cls
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1826	^0
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1827
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1828	"Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1829	"Modified: / 14-05-2013 / 11:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1830	! !
77ab6e032c7f CHECKCAST/INSTANCEOF/ARRAYLENGTH refactoring (part 1) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2588 diff changeset	1831
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1832	!UndefinedObject class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1833
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1834	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1835
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1836	"void"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1837
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1838	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1839
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1840	"Created: / 21-12-2010 / 22:52:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1841	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1842
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1843	!UndefinedObject class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1844
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1845	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1846
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1847	^'void'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1848
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1849	"Modified: / 25-02-2011 / 18:59:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1850	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1851
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1852	!Unicode16String class methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1853
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1854	javaName
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1855	^ '[C'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1856
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1857	"Created: / 18-01-2013 / 22:27:02 / 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: 2339 diff changeset	1858	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1859
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1860	!UserPreferences methodsFor:'accessing-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1861
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1862	javaRelease
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1863	"Return the Java release according to the preferences
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1864	or nil, if not set"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1865
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1866	\| rel sel \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1867	sel := self javaReleaseSelector.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1868	sel notNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1869	rel := JavaRelease perform: sel asSymbol ifNotUnderstood:[nil]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1870	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1871	^rel
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1872
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1873	"Created: / 27-07-2012 / 10:12:59 / 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: 2339 diff changeset	1874	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1875
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1876	!UserPreferences methodsFor:'accessing-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1877
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1878	javaReleaseSelector
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1879	^ self at:#javaReleaseSelector ifAbsent:[nil].
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1880
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1881	"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1882	UserPreferences current javaReleaseSelector
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1883	UserPreferences current javaReleaseSelector: #openJDK6
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1884	UserPreferences current javaReleaseSelector: nil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1885
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1886	Java release
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1887	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1888
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1889	"Created: / 27-07-2012 / 10:02:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1890	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1891
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1892	!UserPreferences methodsFor:'accessing-java'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1893
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1894	javaReleaseSelector: name
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1895	"Sets the Java release to use. selector must be one of
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1896	releases defined in JavaRelease, protocol 'instance creation'"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1897
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1898	self at:#javaReleaseSelector put: name.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1899	Java notNil ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1900	Java reinitializeRelease
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1901	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1902
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1903
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1904	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1905	UserPreferences current javaReleaseSelector
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1906	UserPreferences current javaReleaseSelector: #openJDK7
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1907	UserPreferences current javaReleaseSelector: nil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1908
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1909	Java release
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1910	Java release:nil
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1911
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1912	Java reinitializeRelease
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1913	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1914
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1915	"Created: / 27-07-2012 / 10:02:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1916	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1917
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1918	!WordArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1919
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1920	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1921
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1922	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1923	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1924
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1925	!WordArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1926
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1927	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1928
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1929	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1930
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1931	"Created: / 20-12-2010 / 22:47:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1932	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1933
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1934	!WordArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1935
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1936	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1937
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1938	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1939	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1940
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1941	"Created: / 20-12-2010 / 22:30:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1942	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1943
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1944	!WordArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1945
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1946	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1947
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1948	^JavaArray javaArrayClassFor: WordArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1949
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1950	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1951	"Modified: / 10-08-2011 / 22:46:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1952	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1953
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1954	!WordArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1955
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1956	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1957
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1958	^JavaShort
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1959
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1960	"Created: / 20-12-2010 / 22:13:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1961	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1962
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1963	!WordArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1964
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1965	javaName
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1966	^ '[S'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1967
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1968	"Modified: / 06-12-2011 / 16:43:59 / 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: 2339 diff changeset	1969	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1970
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1971	!WrappedMethod methodsFor:'accessing'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1972
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1973	descriptor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1974	"Returns descriptor object (for wrapped Java methods)"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1975
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1976	\| orig \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1977	orig := self originalMethod.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1978	^(orig respondsTo: #descriptor) ifTrue:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1979	orig descriptor
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1980	] ifFalse:[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1981	self doesNotUnderstand: (Message selector: #descriptor)
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1982	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1983
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1984	"Created: / 16-12-2011 / 20:03:07 / 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: 2339 diff changeset	1985	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1986
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1987	!WrappedMethod methodsFor:'queries'!
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1988
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1989	isAbstract
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1990
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1991	^self originalMethod isAbstract.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1992
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1993	"Created: / 04-12-2011 / 11:24:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2152 1cbdfbcc685c Jan's version Jan Vrany <jan.vrany@fit.cvut.cz> parents: 749 diff changeset	1994	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1995
2604 b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	1996	!ZipArchive methodsFor:'queries - java support'!
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	1997
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	1998	isValidFile: path
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	1999	"Return true, if the recevier contains given file. false otherwise.
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2000	"
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2001	^zipMembersByName includesKey: path
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2002
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2003	"Created: / 20-05-2013 / 23:37:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2004
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2005	! !
b9cb81e47766 Lost changes meant to be commited in 7af1671fc73f. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2595 diff changeset	2006
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2007	!ZipArchive methodsFor:'reading - java support'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2008
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2009	nextBytes: bytesToRead of: zmember startingAt: pos into: b startingAt: off
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2010
2638 54cd07376ffb use #position/#position: instead of #positionXBased Stefan Vogel <sv@exept.de> parents: 2635 diff changeset	2011	file position: (self dataStartOf: zmember) + startOfArchive + pos.
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2012	^ file nextBytes: bytesToRead into: b startingAt: off.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2013
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2014	"Created: / 01-05-2011 / 16:21:42 / 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: 2339 diff changeset	2015	"Modified: / 10-12-2012 / 05:41:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2016	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2017
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2018	!stx_libjava class methodsFor:'documentation'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	2019
2578 fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	2020	extensionsVersion_HG
fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	2021
fc6186a4961f Performance optimization: rewrote 'JavaVM classNamed:' to 'JavaVM classNamed:...definedBy:...'. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2566 diff changeset	2022	^ '$Changeset: <not expanded> $'
2476 d24ce8174195 JavaClass can now keep it's classfile bytes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2450 diff changeset	2023	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Thu, 10 Jul 2014 13:54:51 +0100
changeset 3151	ee329fef15db
parent 3028	3bc512cb6649
child 3152	2f2937ea3f03
permissions	-rw-r--r--