hg/stx-libjava: extensions.st@54cd07376ffb (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
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	38	^ BooleanArray
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>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	41	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	42
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	43	!Boolean class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	44
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	45	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	46	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	47
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	48	wrapper := (JavaVM classForName: 'java.lang.Boolean') new.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	49	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	50	^ 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	51
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	"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	53	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	54
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	55	!Boolean class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	56
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	57	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	58
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	59	^'boolean'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	60
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	61	"Modified: / 25-02-2011 / 18:58:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	62	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	63
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	64	!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	65
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	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	67
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	\| 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	69
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	(object class name = 'java/lang/Boolean') 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	71	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	72	].
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	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	74	(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	75	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	76	].
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	^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	78
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	"Created: / 22-11-2011 / 11:52:12 / 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	80	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	81
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	!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	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	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	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	^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	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	"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	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
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	!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	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	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	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	^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	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	"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	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
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	!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	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	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	103	^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	104
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	"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	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
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	!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	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	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	111	^(Java classForName: 'java.lang.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	112
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	113	"Created: / 24-02-2012 / 19:43: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	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
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	116	!BooleanArray methodsFor:'queries'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	117
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	118	isInterface
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	119
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	120	^false
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	121
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	122	"Created: / 31-05-2011 / 16:07:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	123	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	124
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	125	!BooleanArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	126
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	127	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	128
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	129	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	130	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	131
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	132	!BooleanArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	133
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	134	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	135
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	136	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	137
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	138	"Created: / 20-12-2010 / 22:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	139	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	140
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	141	!BooleanArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	142
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	143	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	144
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	145	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	146	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	147
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	148	"Created: / 20-12-2010 / 22:30:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	149	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	150
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	151	!BooleanArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	152
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	153	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	154	^ 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	155
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	156	"Created: / 06-12-2011 / 17:29:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	157	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	158
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	159	!BooleanArray 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	160
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	161	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	162
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	163	^Boolean
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	164
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	165	"Created: / 20-12-2010 / 22:13:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	166	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	167
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	168	!BooleanArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	169
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	170	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	171
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	172	^'[Z'.
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	173
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	174	"Modified: / 31-08-2011 / 23:57:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	175	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	176
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	177	!ByteArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	178
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	179	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	180
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	181	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	182	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	183
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	184	!ByteArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	185
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	186	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	187
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	188	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	189
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	190	"Created: / 05-02-2011 / 22:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	191	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	192
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	193	!ByteArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	194
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	195	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	196
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	197	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	198	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	199
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	200	"Created: / 20-12-2010 / 22:30:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	201	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	202
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	203	!ByteArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	204
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	205	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	206
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	207	^JavaArray javaArrayClassFor: self
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	208
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	209	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	210	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	211
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	212	!ByteArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	213
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	214	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	215
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	216	^JavaByte
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	217
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	218	"Created: / 20-12-2010 / 22:05:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	219	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	220
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	221	!ByteArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	222
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	223	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	224
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	225	^'[B'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	226
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	227	"Modified: / 25-02-2011 / 19:02:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	228	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	229
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	230	!Character class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	231
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	232	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	233
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	234	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	235
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	236	"Created: / 20-12-2010 / 22:18:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	237	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	238
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	239	!Character class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	240
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	241	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	242	^ String
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	243
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	244	"Created: / 11-02-2011 / 10:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	245	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	246
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	247	!Character class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	248
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	249	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	250	\| 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	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	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	253	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	254	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	255
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	256	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	257	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	258
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	259	!Character class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	260
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	261	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	262
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	263	^'char'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	264
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	265	"Modified: / 25-02-2011 / 18:58:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	266	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	267
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	268	!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	269
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	270	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	271
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	272	\| 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	273
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	274	(object class name = 'java/lang/Character') 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	275	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	276	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	277	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	278	(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	279	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	280	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	281	^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	282
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	283	"Created: / 22-11-2011 / 11:52:12 / 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	284	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	285
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	286	!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	287
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	288	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	289	^(Java classForName: 'java.lang.Character')
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	290
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	291	"Created: / 24-02-2012 / 19:42: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	292	! !
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
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	!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	295
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	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	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	"
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	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	300	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	301	[[[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	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
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 \|
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 := 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	307	(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	308	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	309	].
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 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	311	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	312	].
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	^ 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	314
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: / 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	316	"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	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
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	!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	320
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	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	322	\| 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	323
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 := 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	325	(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	326	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	327	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	328	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	329	].
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	^ 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	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
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	!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	334
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	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	336	\| 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	337
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	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	339	(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	340	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	341	^ 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	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
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	!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	345
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	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	347	\| 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	348
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 := 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	350	(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	351	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	352	].
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 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	354	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	355	].
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	^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	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
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	!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	360
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	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	362	"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	363	\| 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	364	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	365	(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	366	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	367	].
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 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	369	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	370	].
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	^ 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	372
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: / 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	374	"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	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
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	!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	378
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	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	380	^ 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	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
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	!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	384
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	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	386	^ (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	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
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	!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	390
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	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	392	"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	393	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	394
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 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	396	^ 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	397	].
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	^ 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	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	"
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:'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	402	'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	403
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	"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	405	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	406
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	407	!CharacterArray class methodsFor:'encoding & decoding'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	408
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	409	decodeFromJavaUTF8: bytes
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	410	"Decodes a string from modified UTF8 encoding
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	411	as used in Java .class files. see
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	412	'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	413
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	414	\| string i s b codePoint realLength \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	415
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	416	string := String new: bytes size.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	417	realLength := bytes size.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	418	s := bytes readStream.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	419	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	420	[ s atEnd ] whileFalse:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	421	[ 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	422	(b & 2r10000000) == 0
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	423	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	424	ifFalse:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	425	[ 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	426	(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	427	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	428	[ "two byte utf char"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	429	realLength := realLength - 1.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	430	self assert: s size > 0.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	431	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	432	string bitsPerCharacter < 16
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	433	ifTrue: [ string := Unicode16String fromString: string ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	434	codePoint := (b & 2r00011111) << 6.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	435	b := s next.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	436	self assert: (b & 2r11000000) = 2r10000000.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	437	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	438	ifFalse:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	439	[ "at lease 3 byte utf char"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	440	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	441	string bitsPerCharacter < 16"was: 32"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	442	ifTrue: [ string := Unicode16String"was: Unicode32String" fromString: string ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	443	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	444	(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	445	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	446	[ \| utf32Possible utf32Value \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	447
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	448	"3 or 6 byte utf char"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	449	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	450	s size < 5
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	451	ifTrue: [ utf32Possible := false ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	452	ifFalse: [ utf32Possible := true ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	453	b ~= 2r11101101 ifTrue: [ utf32Possible := false ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	454	codePoint := (b & 2r00001111) << 12.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	455	b := s next.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	456	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	457	((b & 2r11110000) = 2r10100000 and: [ utf32Possible ])
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	458	ifTrue: [ utf32Value := 2r00010000 + ((b & 2r00001111) << 16) ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	459	ifFalse: [ utf32Possible := false ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	460	codePoint := codePoint + ((b & 2r00111111) << 6).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	461	b := s next.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	462	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	463	utf32Possible
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	464	ifTrue: [ utf32Value := utf32Value + ((b & 2r00111111) << 10) ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	465	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	466	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	467	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	468	[ \| tmpB \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	469
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	470	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	471	ifTrue: [ string := Unicode32String fromString: string ].
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	472	tmpB := s copy.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	473	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	474	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	475	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	476	[ 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	477	(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	478	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	479	[ utf32Value := utf32Value + ((b & 2r00001111) << 6).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	480	b := tmpB next.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	481	self assert: (b & 2r11000000) = 2r10000000.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	482	utf32Value := utf32Value + (b & 2r00111111).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	483	codePoint := utf32Value.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	484	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	485	ifFalse:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	486	[ "should not happen, ask mh"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	487	self halt. ] ] ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	488	string at: i put: (Character codePoint: codePoint).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	489	i := i + 1. ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	490	^ string subString: 1 to: realLength.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	491
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	492	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	493	String decodeFromJavaUTF8: 'Hello world' asByteArray"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	494
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	495	"Created: / 22-12-2010 / 23:45:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	496	"Modified: / 09-02-2011 / 01:12:25 / Marcel Hlopko <hlopik@gmail.com>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	497	"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	498	"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	499	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	500
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	501	!CharacterArray class methodsFor:'instance creation'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	502
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	503	fromJavaUTF8Bytes:aByteCollection
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	504	"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	505	from the modified utf8 encoded bytes as specified in
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	506	The class file format specification, section 4.5.7"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	507
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	508	^ self decodeFromJavaUTF8:aByteCollection.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	509
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	510	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	511	CharacterArray fromUTF8Bytes:#[ 16r41 16r42 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	512	CharacterArray fromUTF8Bytes:#[ 16rC1 16r02 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	513	CharacterArray fromUTF8Bytes:#[ 16rE0 16r81 16r02 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	514	CharacterArray fromUTF8Bytes:#[ 16rEF 16rBF 16rBF ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	515
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	516	rfc2279 examples:
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	517	CharacterArray fromUTF8Bytes:#[ 16r41 16rE2 16r89 16rA2 16rCE 16r91 16r2E ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	518	CharacterArray fromUTF8Bytes:#[ 16rED 16r95 16r9C 16rEA 16rB5 16rAD 16rEC 16r96 16rB4 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	519	CharacterArray fromUTF8Bytes:#[ 16rE6 16r97 16rA5 16rE6 16r9C 16rAC 16rE8 16rAA 16r9E ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	520
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	521	invalid:
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	522	CharacterArray fromUTF8Bytes:#[ 16rC0 16r80 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	523	CharacterArray fromUTF8Bytes:#[ 16rE0 16r80 16r80 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	524	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	525
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	526	"Created: / 23-12-2010 / 09:01:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	527	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	528
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	529	!CharacterArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	530
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	531	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	532
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	533	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	534
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	535	"Created: / 05-02-2011 / 22:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	536	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	537
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	538	!CharacterArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	539
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	540	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	541
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	542	^JavaArray javaArrayClassFor: Unicode16String
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	543
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	544	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	545	"Modified: / 10-08-2011 / 13:18:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	546	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	547
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	548	!CharacterArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	549
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	550	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	551
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	552	^Character
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	553
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	554	"Created: / 20-12-2010 / 22:05:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	555	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	556
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	557	!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	558
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	559	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	560	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	561
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	562	"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	563	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	564
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	565	!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	566
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	567	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	568	^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	569
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	"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	571	! !
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	!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	574
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	575	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	576	"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	577
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	578	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	579	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	580	^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	581
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	"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	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
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	!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	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	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	588	\| 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	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	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	591	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	592	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	593	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	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 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	596
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	"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	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
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	!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	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	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	603	"/ 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	604	^ (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	605
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	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	608	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	609	"
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
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	"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	612	"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	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
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	!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	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	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	618	^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	619
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	"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	621	! !
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	!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	624
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	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	626	"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	627	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	628	has been reached (if resumptionTime non-nil)."
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	629
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	630	Processor activeProcess state:state.
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	631	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	632
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	Transcript showCR:'1'.
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	635	(Delay forSeconds:10) waitWithState:#sleep.
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	636	Transcript showCR:'2'.
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	637	"
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	638
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	639	"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	640	"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	641	"Modified: / 25-07-2013 / 11:33:41 / exept"
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	642	"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	643	! !
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
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	645	!DoubleArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	646
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	647	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	648
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	649	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	650	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	651
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	652	!DoubleArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	653
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	654	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	655
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	656	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	657
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	658	"Created: / 20-12-2010 / 22:47:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	659	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	660
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	661	!DoubleArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	662
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	663	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	664
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	665	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	666	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	667
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	668	"Created: / 20-12-2010 / 22:30:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	669	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	670
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	671	!DoubleArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	672
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	673	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	674	^ 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	675
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	676	"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	677	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	678
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	679	!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	680
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	681	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	682
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	683	^Float
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	684
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	685	"Created: / 20-12-2010 / 22:06:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	686	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	687
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	688	!DoubleArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	689
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	690	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	691
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	692	^'[D'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	693
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	694	"Modified: / 25-02-2011 / 19:03:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	695	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	696
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	697	!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	698
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	699	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	700	^ 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	701
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	702	"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	703	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	704
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	705	!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	706
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	707	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	708	"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	709	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	710
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	711	^ 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	712
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	713	"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	714	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	715
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	716	!Float class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	717
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	718	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	719
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	720	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	721
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	722	"Created: / 06-02-2011 / 17:21:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	723	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	724
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	725	!Float class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	726
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	727	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	728	^ DoubleArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	729
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	730	"Created: / 11-02-2011 / 10:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	731	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	732
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	733	!Float class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	734
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	735	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	736	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	737
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	738	wrapper := (JavaVM classForName: 'java.lang.Double') new.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	739	wrapper perform: #'<init>(D)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	740	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	741
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	742	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	743	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	744
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	745	!Float class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	746
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	747	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	748
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	749	^'double'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	750
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	751	"Modified: / 25-02-2011 / 18:59:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	752	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	753
2442 037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	754	!Float class methodsFor:'autoboxing support'!
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	755
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	756	javaUnbox: object onError: errorBlock
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	757
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	758	\| value \|
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	759
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	760	(object class name = 'java/lang/Double') ifFalse:[
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	761	errorBlock value.
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	762	].
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	763	value := object instVarNamed: #value.
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	764	^value
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	765	! !
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	766
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	767	!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	768
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	769	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	770	^(Java classForName: 'java.lang.Double')
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	771
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	772	"Created: / 24-02-2012 / 19:42: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	773	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	774
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	775	!FloatArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	776
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	777	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	778
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	779	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	780	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	781
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	782	!FloatArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	783
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	784	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	785
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	786	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	787
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	788	"Created: / 20-12-2010 / 22:47:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	789	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	790
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	791	!FloatArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	792
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	793	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	794
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	795	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	796	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	797
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	798	"Created: / 20-12-2010 / 22:30:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	799	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	800
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	801	!FloatArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	802
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	803	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	804	^ 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	805
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	806	"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	807	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	808
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	809	!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	810
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	811	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	812
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	813	^ShortFloat
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	814
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	815	"Created: / 20-12-2010 / 22:06:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	816	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	817
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	818	!FloatArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	819
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	820	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	821
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	822	^'[F'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	823
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	824	"Modified: / 25-02-2011 / 19:03:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	825	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	826
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	827	!Integer class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	828
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	829	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	830
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	831	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	832
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	833	"Created: / 11-02-2011 / 11:12:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	834	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	835
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	836	!Integer class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	837
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	838	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	839	^ SignedIntegerArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	840
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	841	"Created: / 11-02-2011 / 10:51:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	842	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	843
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	844	!Integer class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	845
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	846	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	847	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	848
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	849	wrapper := (JavaVM classForName: 'java.lang.Integer') new.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	850	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	851	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	852
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	853	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	854	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	855
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	856	!Integer class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	857
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	858	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	859
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	860	^'int'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	861
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	862	"Modified: / 25-02-2011 / 18:59:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	863	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	864
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	865	!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	866
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	867	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	868
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	869	^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	870	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	871	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	872
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	873	"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	874	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	875
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	!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	877
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	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	879
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	\| 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	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	(#( '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	883	'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	884	'java/lang/Integer'
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	885	"'java/lang/Long'" ) includes: object class name) 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	886	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	887	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	888
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	889	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	890	(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	891	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	892	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	893	^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	894
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	895	"Created: / 22-11-2011 / 11:43:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	896	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	897
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	898	!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	899
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	900	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	901	^(Java classForName: 'java.lang.Integer')
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	902
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	903	"Created: / 24-02-2012 / 19:41:34 / 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	904	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	905
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	906	!LargeInteger class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	907
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	908	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	909
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	910	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	911
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	912	"Created: / 04-02-2011 / 11:55:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	913	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	914
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	915	!LargeInteger class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	916
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	917	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	918	^ SignedLongIntegerArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	919
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	920	"Created: / 11-02-2011 / 10:51:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	921	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	922
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	923	!LargeInteger class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	924
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	925	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	926	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	927
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	928	wrapper := (JavaVM classForName: 'java.lang.Long') new.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	929	wrapper perform: #'<init>(J)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	930	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	931
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	932	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	933	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	934
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	935	!LargeInteger class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	936
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	937	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	938
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	939	^'long'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	940
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	941	"Modified: / 25-02-2011 / 18:59:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	942	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	943
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	944	!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	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	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	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	\| 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	949
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	(object class name = 'java/lang/Long') 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	951	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	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
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	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	955	(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	956	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	957	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	958	^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	959
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	"Created: / 22-11-2011 / 11:45: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	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
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	!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	964
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	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	966	^(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	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: / 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	969	! !
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	!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	972
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	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	974	"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	975
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	^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	977
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	978	"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	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
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	981	!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	982
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	983	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	984	"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	985
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	986	^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	987
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	988	"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	989	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	990
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	991	!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	992
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	993	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	994	"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	995	^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	996
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	997	"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	998	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	999
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	!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	1001
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1002	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	1003	"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	1004	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	1005	- 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	1006	- 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	1007	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1008
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1009	"/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	1010
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1011	^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	1012
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1013	"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	1014	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1015
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1016	!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	1017
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1018	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	1019	"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	1020
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	^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	1022
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	"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	1024	! !
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
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1026	!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	1027
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	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	1029	^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	1030
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	"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	1032	! !
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
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1034	!Object methodsFor:'testing'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1035
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1036	isJavaArray
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1037
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1038	^self class isJavaArrayClass
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1039
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1040	"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	1041	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1042
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1043	!Object methodsFor:'testing'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1044
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1045	isJavaNameAndType
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1046	"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	1047
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1048	^ false.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1049
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1050	"Created: / 10-05-2011 / 12:21:52 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1051	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1052
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1053	!Object methodsFor:'testing'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1054
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1055	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	1056	"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	1057	False is returned here - the method is only redefined in JavaPackage."
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1058
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1059	^ false
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1060
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1061	"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	1062	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1063
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1064	!Object methodsFor:'testing'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1065
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1066	isJavaRef
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1067	"return true, if given object represents reference in java constant pool"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1068	^ false.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1069
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1070	"Created: / 08-04-2011 / 16:12:45 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1071	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1072
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	1073	!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	1074
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	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	1076	"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	1077
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1078	^ 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	1079
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1080	"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	1081	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1082
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1083	!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	1084
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1085	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	1086	"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	1087	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	1088
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1089	^ 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	1090
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1091	"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	1092	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1093
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1094	!Object methodsFor:'autoboxing support'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1095
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1096	javaBox: anObject
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1097
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1098	^anObject
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1099
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1100	"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	1101	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1102
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1103	!Object methodsFor:'autoboxing support'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1104
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	1105	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	1106	"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	1107
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	^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	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	"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	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
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	!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	1114
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	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	1116	^ 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	1117
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	"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	1119	"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	1120	! !
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	!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	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	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	1125	"Wraps the receiver into corresponding Java object"
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1126
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1127	^anObject
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1128
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	1129	"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	1130	! !
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	!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	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	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	1135	"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	1136	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	1137	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	1138	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	1139
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1140	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	1141	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	1142
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1143	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	1144
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1145	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	1146
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1147	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	1148
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1149	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	1150	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	1151	(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	1152
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1153	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	1154
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1155	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	1156
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	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	1158	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	1159	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	1160
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1161	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1162
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1163	^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	1164
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1165	"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	1166	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1167
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1168	!Object class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1169
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1170	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1171
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1172	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1173
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1174	"Created: / 19-12-2010 / 17:05:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1175	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1176
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1177	!Object class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1178
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1179	isJavaClassType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1180
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1181	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1182
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1183	"Created: / 11-02-2011 / 08:08:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1184	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1185
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1186	!Object class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1187
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1188	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1189
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1190	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1191
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1192	"Created: / 20-12-2010 / 21:52:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1193	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1194
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1195	!Object class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1196
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1197	isJavaType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1198
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1199	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1200
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1201	"Created: / 20-12-2010 / 21:52:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1202	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1203
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	1204	!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	1205
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1206	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	1207	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	1208
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	"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	1210	"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	1211	! !
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	!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	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	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	1216
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	^ 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	1218
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	"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	1220	"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	1221	! !
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
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	!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	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	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	1226	"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	1227
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	^ (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	1229
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1230	"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	1231	! !
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
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	!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	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	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	1236	"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	1237
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	^ (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	1239
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	"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	1241	! !
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	!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	1244
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	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	1246	"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	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	^ (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	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	"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	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
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	!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	1254
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	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	1256	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	1257	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	1258	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	1259	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	1260	].
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	^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	1262	].
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	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	1265	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	1266	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	1267	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	1268	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1269	^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	1270	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1271
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1272	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	1273	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	1274	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	1275	^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	1276	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1277
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1278	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	1279
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1280	"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	1281	"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	1282	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1283
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1284	!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	1285
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1286	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	1287
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1288	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	1289
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1290	"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	1291	"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	1292	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1293
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1294	!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	1295
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1296	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	1297	"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	1298
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1299	^ 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	1300
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1301	"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	1302	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1303
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1304	!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	1305
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1306	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	1307	"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	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	^ 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	1310
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	"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	1312	! !
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
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	!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	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	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	1317	"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	1318	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	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	^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	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: / 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	1323	! !
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	!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	1326
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	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	1328
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	"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	1330	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	1331
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
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	"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	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
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	!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	1338
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	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	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	"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	1342	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	1343	^#()
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	"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	1346	! !
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	!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	1349
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	parkWithTimeoutMs:milliSeconds
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	"Same as #waitWithTimeoutMs: but sets the state to #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	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	Stupid, that I have to copy-paste this 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	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	\|activeProcess timeoutOccured wasBlocked timeoutBlock now endTime\|
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	wasBlocked := OperatingSystem blockInterrupts.
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
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	count <= 0 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	1361	"with zero-timeout, this is a poll"
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	milliSeconds == 0 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	1363	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
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	^ 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	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	activeProcess := Processor activeProcess.
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	timeoutOccured := 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	1369
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	milliSeconds 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	1371	"Wait with timeout: calculate the end-time"
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	now := OperatingSystem getMillisecondTime.
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	endTime := OperatingSystem millisecondTimeAdd:now and:milliSeconds.
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	timeoutBlock := [timeoutOccured := true. timeoutBlock:= nil. Processor resume:activeProcess].
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	Processor addTimedBlock:timeoutBlock for:activeProcess atMilliseconds:endTime.
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	].
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
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	need a while-loop here, since more than one process may
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	wait for it and another one may also wake up.
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	Thus, the count is not always non-zero after returning from
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	suspend.
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	"
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	self addWaitingProcess:activeProcess.
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
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	for some more descriptive info in processMonitor ...
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	... set the state to #wait (instead of #suspend)
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	"
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	"sleep until resumed..."
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	activeProcess suspendWithState:#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	1395	] ifCurtailed:[
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	"interrupts are not blocked when entered through Processor>>#interruptActive"
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	OperatingSystem blockInterrupts.
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	timeoutBlock 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	1399	Processor removeTimedBlock:timeoutBlock.
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	timeoutBlock := 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	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	self removeWaitingProcess:activeProcess.
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	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
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	].
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	self removeWaitingProcess:activeProcess.
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	timeoutOccured 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	1408	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
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	^ 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	1410	].
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	] doUntil:[count > 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	1412
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	timeoutBlock 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	1414	Processor removeTimedBlock:timeoutBlock.
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	timeoutBlock := 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	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	].
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	"if we come here, we have accquired the semaphore"
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	count := count - 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	1421	count == 0 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	1422	lastOwner := Processor activeProcess.
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	].
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	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
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	^ 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	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	"Created: / 16-08-2012 / 20:53:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1428	! !
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	!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	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	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	1433	^ 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	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
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1436	!ShortFloat class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1437
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1438	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1439
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1440	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1441
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1442	"Created: / 06-02-2011 / 17:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1443	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1444
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1445	!ShortFloat class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1446
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1447	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1448	^ FloatArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1449
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1450	"Created: / 11-02-2011 / 10:50:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1451	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1452
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1453	!ShortFloat class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1454
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	1455	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1456	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1457
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	1458	wrapper := (JavaVM classForName: 'java.lang.Float') new.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1459	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	1460	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1461
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1462	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1463	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1464
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1465	!ShortFloat class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1466
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1467	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1468
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1469	^'float'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1470
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1471	"Modified: / 25-02-2011 / 18:59:41 / 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
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	1474	!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	1475
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1476	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	1477	^(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	1478
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1479	"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	1480	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1481
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1482	!SignedIntegerArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1483
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1484	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1485
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1486	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1487	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1488
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1489	!SignedIntegerArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1490
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1491	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1492
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1493	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1494
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1495	"Created: / 06-02-2011 / 15:16:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1496	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1497
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1498	!SignedIntegerArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1499
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1500	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1501
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1502	^JavaArray javaArrayClassFor: SignedIntegerArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1503
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1504	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1505	"Modified: / 10-08-2011 / 22:47:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1506	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1507
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1508	!SignedIntegerArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1509
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1510	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1511
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1512	^ Integer
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1513
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1514	"Created: / 25-06-2011 / 08:38:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1515	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1516
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1517	!SignedIntegerArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1518
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1519	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1520
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1521	^'[I'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1522
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1523	"Modified: / 25-02-2011 / 19:03:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1524	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1525
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1526	!SignedLongIntegerArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1527
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1528	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1529
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1530	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1531	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1532
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1533	!SignedLongIntegerArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1534
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1535	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1536
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1537	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1538
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1539	"Created: / 20-12-2010 / 22:47:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1540	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1541
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1542	!SignedLongIntegerArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1543
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1544	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1545
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1546	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1547	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1548
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1549	"Created: / 20-12-2010 / 22:30:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1550	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1551
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	1552	!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	1553
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1554	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	1555
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1556	^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	1557
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1558	"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	1559	"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	1560	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1561
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1562	!SignedLongIntegerArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1563
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1564	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1565
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1566	^LargeInteger
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1567
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1568	"Modified: / 25-06-2011 / 08:38:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1569	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1570
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1571	!SignedLongIntegerArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1572
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1573	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1574
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1575	^'[J'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1576
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1577	"Modified: / 25-02-2011 / 19:03:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1578	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1579
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	1580	!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	1581
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1582	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	1583
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1584	^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	1585
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1586	"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	1587	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1588
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1589	!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	1590
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1591	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	1592
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1593	"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	1594	^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	1595
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1596	"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	1597	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1598
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1599	!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	1600
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1601	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	1602
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1603	^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	1604
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1605	"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	1606	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1607
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1608	!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	1609
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1610	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	1611
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1612	^'[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	1613
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1614	"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	1615	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1616
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1617	!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	1618
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1619	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	1620	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	1621	^ 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	1622	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1623	^ 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	1624
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1625	"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	1626	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1627
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1628	!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	1629
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1630	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	1631	^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	1632
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1633	"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	1634	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1635
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1636	!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	1637
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1638	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	1639	"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	1640
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1641	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	1642	[
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1643	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	1644	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	1645	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	1646	] on: OpenError do:[
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1647	"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	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
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	"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	1651	! !
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
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1653	!String methodsFor:'converting'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1654
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	1655	asArrayOfSubstringsSeparatedBy:aSeparator
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1656	"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	1657
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1658	\|substrings start end\|
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1659
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1660	substrings := OrderedCollection new.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1661	start := 1.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1662	[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	1663	(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	1664	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	1665	[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1666	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	1667	] 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	1668	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	1669	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	1670	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1671	start := start + 1
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1672	].
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1673	^ substrings asArray
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1674
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1675	"Created: / 07-02-2011 / 11:18:03 / Marcel Hlopko <hlopik@gmail.com>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1676	"Modified: / 08-02-2011 / 01:08:15 / Marcel Hlopko <hlopik@gmail.com>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1677	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1678
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	1679	!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	1680
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1681	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	1682	^ '[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	1683
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1684	"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	1685	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1686
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1687	!UndefinedObject class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1688
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1689	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1690
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1691	"void"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1692
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1693	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1694
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1695	"Created: / 21-12-2010 / 22:52:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1696	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1697
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1698	!UndefinedObject class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1699
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1700	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1701
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1702	^'void'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1703
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1704	"Modified: / 25-02-2011 / 18:59:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1705	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1706
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	1707	!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	1708
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	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	1710	^ '[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	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	"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	1713	! !
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	!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	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	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	1718	"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	1719	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	1720
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	\| 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	1722	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	1723	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	1724	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	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	^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	1727
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	"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	1729	! !
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	!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	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	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	1734	^ self at:#javaReleaseSelector ifAbsent:[nil].
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1735
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1736	"
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	1737	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	1738	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	1739	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	1740
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	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	1742	"
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: / 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	1745	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1746
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	1747	!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	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	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	1750	"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	1751	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	1752
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	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	1754	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	1755	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	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
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
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	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	1761	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	1762	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	1763
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	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	1765	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	1766
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	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	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
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	"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	1771	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1772
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1773	!WordArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1774
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1775	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1776
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1777	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1778	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1779
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1780	!WordArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1781
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1782	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1783
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1784	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1785
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1786	"Created: / 20-12-2010 / 22:47:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1787	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1788
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1789	!WordArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1790
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1791	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1792
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1793	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1794	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1795
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1796	"Created: / 20-12-2010 / 22:30:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1797	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1798
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1799	!WordArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1800
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1801	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1802
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1803	^JavaArray javaArrayClassFor: WordArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1804
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1805	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1806	"Modified: / 10-08-2011 / 22:46:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1807	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1808
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1809	!WordArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1810
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1811	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1812
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1813	^JavaShort
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1814
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1815	"Created: / 20-12-2010 / 22:13:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1816	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1817
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1818	!WordArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1819
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1820	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	1821	^ '[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	1822
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1823	"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	1824	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1825
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1826	!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	1827
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1828	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	1829	"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	1830
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1831	\| 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	1832	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	1833	^(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	1834	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	1835	] 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	1836	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	1837	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1838
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1839	"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	1840	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1841
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1842	!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	1843
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1844	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	1845
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1846	^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	1847
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1848	"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	1849	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1850
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1851	!ZipArchive methodsFor:'reading - java support'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1852
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1853	nextBytes: bytesToRead of: zmember startingAt: pos into: b startingAt: off
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1854
2638 54cd07376ffb use #position/#position: instead of #positionXBased Stefan Vogel <sv@exept.de> parents: 2635 diff changeset	1855	file position: (self dataStartOf: zmember) + startOfArchive + pos.
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1856	^ file nextBytes: bytesToRead into: b startingAt: off.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1857
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1858	"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	1859	"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	1860	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1861
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1862	!stx_libjava class methodsFor:'documentation'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1863
2442 037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	1864	extensionsVersion_CVS
2638 54cd07376ffb use #position/#position: instead of #positionXBased Stefan Vogel <sv@exept.de> parents: 2635 diff changeset	1865	^ '$Header: /cvs/stx/stx/libjava/extensions.st,v 1.7 2013-08-10 11:29:08 stefan Exp $'
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1866	! !
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1867
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1868	!stx_libjava class methodsFor:'documentation'!
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1869
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1870	extensionsVersion_HG
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1871
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1872	^ '$Changeset: <not expanded> $'
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1873	! !
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1874
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1875	!stx_libjava class methodsFor:'documentation'!
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1876
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1877	extensionsVersion_SVN
2638 54cd07376ffb use #position/#position: instead of #positionXBased Stefan Vogel <sv@exept.de> parents: 2635 diff changeset	1878	^ '$Id: extensions.st,v 1.7 2013-08-10 11:29:08 stefan Exp $'
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1879	! !
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1880

author	Stefan Vogel <sv@exept.de>
	Sat, 10 Aug 2013 13:29:08 +0200
changeset 2638	54cd07376ffb
parent 2635	00c38014b451
child 2639	453c3d9e8a94
permissions	-rw-r--r--