hg/stx-libjava: extensions.st@503761e88b38 (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
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	70	(object class binaryName = 'java/lang/Boolean') ifFalse:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	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>"
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	80	"Modified: / 08-10-2013 / 22:41:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	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
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	!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	84
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	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	86
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	^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	88
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	"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	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
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	!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	93
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	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	95
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	^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	97
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	"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	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
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	!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	102
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	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	104	^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	105
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	"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	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
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	!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	110
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	javaWrapperClass
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	112	^(JavaVM classForName: 'java.lang.Boolean')
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	113
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	"Created: / 24-02-2012 / 19:43:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	115	"Modified: / 07-05-2013 / 11:21:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	116	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	117
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	118	!BooleanArray methodsFor:'queries'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	119
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	120	isInterface
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	121
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	122	^false
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	123
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	124	"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	125	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	126
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	127	!BooleanArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	128
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	129	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	130
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	131	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	132	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	133
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	134	!BooleanArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	135
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	136	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	137
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	138	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	139
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	140	"Created: / 20-12-2010 / 22:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	141	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	142
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	143	!BooleanArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	144
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	145	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	146
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	147	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	148	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	149
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	150	"Created: / 20-12-2010 / 22:30:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	151	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	152
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	153	!BooleanArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	154
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	155	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	156	^ 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	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	"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	159	! !
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
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	161	!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	162
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	163	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	164
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	165	^Boolean
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	166
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	167	"Created: / 20-12-2010 / 22:13:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	168	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	169
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	170	!BooleanArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	171
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	172	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	173
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	174	^'[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	175
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	176	"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	177	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	178
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	179	!ByteArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	180
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	181	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	182
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	183	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	184	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	185
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	186	!ByteArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	187
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	188	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	189
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	190	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	191
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	192	"Created: / 05-02-2011 / 22:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	193	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	194
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	195	!ByteArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	196
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	197	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	198
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	199	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	200	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	201
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	202	"Created: / 20-12-2010 / 22:30:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	203	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	204
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	205	!ByteArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	206
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	207	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	208
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	209	^JavaArray javaArrayClassFor: self
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	210
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	211	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	212	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	213
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	214	!ByteArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	215
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	216	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	217
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	218	^JavaByte
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	219
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	220	"Created: / 20-12-2010 / 22:05:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	221	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	222
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	223	!ByteArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	224
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	225	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	226
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	227	^'[B'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	228
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	229	"Modified: / 25-02-2011 / 19:02:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	230	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	231
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	232	!Character class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	233
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	234	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	235
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	236	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	237
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	238	"Created: / 20-12-2010 / 22:18:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	239	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	240
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	241	!Character class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	242
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	243	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	244	^ String
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	245
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	246	"Created: / 11-02-2011 / 10:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	247	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	248
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	249	!Character class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	250
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	251	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	252	\| 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	253
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 := (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	255	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	256	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	257
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	258	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	259	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	260
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	261	!Character class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	262
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	263	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	264
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	265	^'char'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	266
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	267	"Modified: / 25-02-2011 / 18:58:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	268	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	269
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	270	!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	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	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	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	\| 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	275
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	276	(object class binaryName = 'java/lang/Character') ifFalse:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	277	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	278	].
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	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	280	(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	281	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	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	^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	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	"Created: / 22-11-2011 / 11:52:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	286	"Modified: / 08-10-2013 / 22:41:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	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
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	!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	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	javaWrapperClass
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	292	^(JavaVM classForName: 'java.lang.Character')
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	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	"Created: / 24-02-2012 / 19:42:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	295	"Modified: / 07-05-2013 / 11:21:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	296	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	297
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	298	!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	299
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	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	301
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	302	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	303	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	304	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	305	[[[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	306	"
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
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	308
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	309	\| nm \|
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 := 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	311	(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	312	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	313	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	314	(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	315	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	316	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	317	^ 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	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	"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	320	"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	321	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	322
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	323	!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	324
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	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	326	\| 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
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	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	329	(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	330	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	331	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	332	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	333	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	334	^ 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	335	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	336
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	337	!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	338
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	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	340	\| niceName \|
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	341
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	342	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	343	(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	344	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	345	^ 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	346	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	347
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	348	!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	349
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	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	351	\| 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	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 := 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	354	(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	355	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	356	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	357	(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	358	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	359	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	360	^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	361	! !
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
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	!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	364
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	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	366	"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	367	\| 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	368	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	369	(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	370	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	371	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	372	(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	373	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	374	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	375	^ 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	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	"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	378	"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	379	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	380
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	381	!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	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	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	384	^ 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	385	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	386
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	387	!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	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	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	390	^ (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	391	! !
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
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	!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	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	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	396	"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	397	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	398
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	399	(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	400	^ 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	401	].
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	^ 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	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	"
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	'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	406	'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	407
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	408	"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	409	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	410
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	411	!CharacterArray class methodsFor:'encoding & decoding'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	412
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	decodeFromJavaUTF8: bytes
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	414	"Decodes a string from modified UTF8 encoding
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	415	as used in Java .class files. see
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	416	'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	417
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	418	\| string i s b codePoint realLength \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	419
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	420	string := String new: bytes size.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	421	realLength := bytes size.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	422	s := bytes readStream.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	423	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	424	[ s atEnd ] whileFalse:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	425	[ 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	426	(b & 2r10000000) == 0
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	427	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	428	ifFalse:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	429	[ 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	430	(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	431	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	432	[ "two byte utf char"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	433	realLength := realLength - 1.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	434	self assert: s size > 0.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	435	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	436	string bitsPerCharacter < 16
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	437	ifTrue: [ string := Unicode16String fromString: string ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	438	codePoint := (b & 2r00011111) << 6.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	439	b := s next.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	440	self assert: (b & 2r11000000) = 2r10000000.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	441	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	442	ifFalse:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	443	[ "at lease 3 byte utf char"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	444	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	445	string bitsPerCharacter < 16"was: 32"
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	446	ifTrue: [ string := Unicode16String"was: Unicode32String" fromString: string ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	447	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	448	(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	449	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	450	[ \| utf32Possible utf32Value \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	451
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	452	"3 or 6 byte utf char"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	453	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	454	s size < 5
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	455	ifTrue: [ utf32Possible := false ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	456	ifFalse: [ utf32Possible := true ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	457	b ~= 2r11101101 ifTrue: [ utf32Possible := false ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	458	codePoint := (b & 2r00001111) << 12.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	459	b := s next.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	460	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	461	((b & 2r11110000) = 2r10100000 and: [ utf32Possible ])
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	462	ifTrue: [ utf32Value := 2r00010000 + ((b & 2r00001111) << 16) ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	463	ifFalse: [ utf32Possible := false ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	464	codePoint := codePoint + ((b & 2r00111111) << 6).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	465	b := s next.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	466	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	467	utf32Possible
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	468	ifTrue: [ utf32Value := utf32Value + ((b & 2r00111111) << 10) ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	469	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	470	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	471	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	472	[ \| tmpB \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	473
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	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	475	ifTrue: [ string := Unicode32String fromString: string ].
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	476	tmpB := s copy.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	477	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	478	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	479	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	480	[ 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	481	(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	482	ifTrue:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	483	[ utf32Value := utf32Value + ((b & 2r00001111) << 6).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	484	b := tmpB next.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	485	self assert: (b & 2r11000000) = 2r10000000.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	486	utf32Value := utf32Value + (b & 2r00111111).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	487	codePoint := utf32Value.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	488	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	489	ifFalse:
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	490	[ "should not happen, ask mh"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	491	self halt. ] ] ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	492	string at: i put: (Character codePoint: codePoint).
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	493	i := i + 1. ].
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	494	^ string subString: 1 to: realLength.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	495
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	496	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	497	String decodeFromJavaUTF8: 'Hello world' asByteArray"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	498
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	499	"Created: / 22-12-2010 / 23:45:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	500	"Modified: / 09-02-2011 / 01:12:25 / Marcel Hlopko <hlopik@gmail.com>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	501	"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	502	"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	503	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	504
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	505	!CharacterArray class methodsFor:'instance creation'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	506
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	507	fromJavaUTF8Bytes:aByteCollection
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	508	"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	509	from the modified utf8 encoded bytes as specified in
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	510	The class file format specification, section 4.5.7"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	511
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	512	^ self decodeFromJavaUTF8:aByteCollection.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	513
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	514	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	515	CharacterArray fromUTF8Bytes:#[ 16r41 16r42 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	516	CharacterArray fromUTF8Bytes:#[ 16rC1 16r02 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	517	CharacterArray fromUTF8Bytes:#[ 16rE0 16r81 16r02 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	518	CharacterArray fromUTF8Bytes:#[ 16rEF 16rBF 16rBF ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	519
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	520	rfc2279 examples:
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	521	CharacterArray fromUTF8Bytes:#[ 16r41 16rE2 16r89 16rA2 16rCE 16r91 16r2E ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	522	CharacterArray fromUTF8Bytes:#[ 16rED 16r95 16r9C 16rEA 16rB5 16rAD 16rEC 16r96 16rB4 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	523	CharacterArray fromUTF8Bytes:#[ 16rE6 16r97 16rA5 16rE6 16r9C 16rAC 16rE8 16rAA 16r9E ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	524
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	525	invalid:
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	526	CharacterArray fromUTF8Bytes:#[ 16rC0 16r80 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	527	CharacterArray fromUTF8Bytes:#[ 16rE0 16r80 16r80 ]
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	528	"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	529
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	530	"Created: / 23-12-2010 / 09:01:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	531	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	532
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	533	!CharacterArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	534
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	535	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	536
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	537	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	538
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	539	"Created: / 05-02-2011 / 22:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	540	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	541
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	542	!CharacterArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	543
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	544	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	545
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	546	^JavaArray javaArrayClassFor: Unicode16String
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	547
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	548	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	549	"Modified: / 10-08-2011 / 13:18:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	550	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	551
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	552	!CharacterArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	553
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	554	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	555
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	556	^Character
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	557
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	558	"Created: / 20-12-2010 / 22:05:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	559	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	560
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	561	!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	562
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	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	564	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	565
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	"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	567	! !
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
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	!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	570
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	571	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	572	^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	573
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	"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	575	! !
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
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	!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	578
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	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	580	"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	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	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	583	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	584	^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	585
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	"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	587	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	588
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	589	!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	590
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	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	592	\| 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	593
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	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	595	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	596	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	597	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	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	^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	600
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	601	"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	602	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	603
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	604	!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	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	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	607	"/ 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	608	^ (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	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	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	612	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	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	"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	616	"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	617	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	618
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	619	!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	620
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	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	622	^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	623
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	624	"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	625	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	626
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	627	!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	628
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	629	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	630	"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	631	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	632	has been reached (if resumptionTime non-nil)."
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	633
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	634	Processor activeProcess state:state.
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	635	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	636
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	637	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	638	Transcript showCR:'1'.
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	639	(Delay forSeconds:10) waitWithState:#sleep.
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	640	Transcript showCR:'2'.
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	641	"
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	642
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	"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	644	"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	645	"Modified: / 25-07-2013 / 11:33:41 / exept"
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	646	"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	647	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	648
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	649	!DoubleArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	650
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	651	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	652
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	653	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	654	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	655
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	656	!DoubleArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	657
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	658	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	659
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	660	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	661
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	662	"Created: / 20-12-2010 / 22:47:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	663	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	664
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	665	!DoubleArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	666
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	667	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	668
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	669	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	670	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	671
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	672	"Created: / 20-12-2010 / 22:30:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	673	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	674
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	675	!DoubleArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	676
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	677	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	678	^ 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	679
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	"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	681	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	682
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	683	!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	684
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	685	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	686
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	687	^Float
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	688
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	689	"Created: / 20-12-2010 / 22:06:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	690	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	691
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	692	!DoubleArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	693
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	694	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	695
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	696	^'[D'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	697
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	698	"Modified: / 25-02-2011 / 19:03:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	699	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	700
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	701	!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	702
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	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	704	^ 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	705
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	"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	707	! !
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
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	!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	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	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	712	"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	713	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	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	^ 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	716
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	717	"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	718	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	719
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	720	!Float class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	721
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	722	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	723
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	724	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	725
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	726	"Created: / 06-02-2011 / 17:21:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	727	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	728
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	729	!Float class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	730
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	731	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	732	^ DoubleArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	733
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	734	"Created: / 11-02-2011 / 10:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	735	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	736
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	737	!Float class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	738
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	739	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	740	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	741
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	742	wrapper := (JavaVM classForName: 'java.lang.Double') new.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	743	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	744	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	745
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	746	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	747	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	748
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	749	!Float class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	750
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	751	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	752
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	753	^'double'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	754
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	755	"Modified: / 25-02-2011 / 18:59:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	756	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	757
2442 037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	758	!Float class methodsFor:'autoboxing support'!
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	javaUnbox: object onError: errorBlock
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	761
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	762	\| value \|
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	763
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	764	(object class binaryName = 'java/lang/Double') ifFalse:[
2442 037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	765	errorBlock value.
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	766	].
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	767	value := object instVarNamed: #value.
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	768	^value
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	769
6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	770	"Modified: / 08-10-2013 / 22:41:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2442 037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	771	! !
037e8713d1a2 added Float >> javaUnbox:onError: Claus Gittinger <cg@exept.de> parents: 2353 diff changeset	772
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	773	!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	774
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	775	javaWrapperClass
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	776	^(JavaVM classForName: 'java.lang.Double')
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	777
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	778	"Created: / 24-02-2012 / 19:42:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	779	"Modified: / 07-05-2013 / 11:21:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	780	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	781
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	782	!FloatArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	783
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	784	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	785
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	786	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	787	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	788
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	789	!FloatArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	790
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	791	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	792
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	793	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	794
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	795	"Created: / 20-12-2010 / 22:47:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	796	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	797
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	798	!FloatArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	799
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	800	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	801
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	802	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	803	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	804
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	805	"Created: / 20-12-2010 / 22:30:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	806	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	807
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	808	!FloatArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	809
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	810	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	811	^ 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	812
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	813	"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	814	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	815
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	816	!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	817
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	818	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	819
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	820	^ShortFloat
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	821
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	822	"Created: / 20-12-2010 / 22:06:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	823	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	824
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	825	!FloatArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	826
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	827	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	828
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	829	^'[F'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	830
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	831	"Modified: / 25-02-2011 / 19:03:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	832	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	833
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	834	!Integer class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	835
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	836	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	837
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	838	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	839
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	840	"Created: / 11-02-2011 / 11:12:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	841	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	842
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	843	!Integer class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	844
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	845	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	846	^ SignedIntegerArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	847
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	848	"Created: / 11-02-2011 / 10:51:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	849	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	850
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	851	!Integer class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	852
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	853	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	854	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	855
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	856	wrapper := (JavaVM classForName: 'java.lang.Integer') new.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	857	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	858	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	859
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	860	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	861	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	862
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	863	!Integer class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	864
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	865	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	866
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	867	^'int'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	868
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	869	"Modified: / 25-02-2011 / 18:59:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	870	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	871
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	872	!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	873
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	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	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	^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	877	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	878	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	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	"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	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
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	!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	884
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	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	886
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	\| 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	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	(#( '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	890	'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	891	'java/lang/Integer'
2907 503761e88b38 Fixes for Mauve tests. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2841 diff changeset	892	"'java/lang/Long'" ) includes: object class binaryName) ifFalse:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	893	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	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
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	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	897	(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	898	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	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	^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	901
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	"Created: / 22-11-2011 / 11:43:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2907 503761e88b38 Fixes for Mauve tests. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2841 diff changeset	903	"Modified: / 08-11-2013 / 00:02:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	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
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	906	!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	907
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	908	javaWrapperClass
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	909	^(JavaVM classForName: 'java.lang.Integer')
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	910
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	911	"Created: / 24-02-2012 / 19:41:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	912	"Modified: / 07-05-2013 / 11:21:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	913	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	914
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	915	!LargeInteger class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	916
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	917	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	918
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	919	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	920
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	921	"Created: / 04-02-2011 / 11:55:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	922	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	923
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	924	!LargeInteger class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	925
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	926	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	927	^ SignedLongIntegerArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	928
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	929	"Created: / 11-02-2011 / 10:51:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	930	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	931
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	932	!LargeInteger class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	933
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	934	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	935	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	936
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	937	wrapper := (JavaVM classForName: 'java.lang.Long') new.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	938	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	939	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	940
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	941	"Created: / 16-08-2011 / 09:58:40 / 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
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	944	!LargeInteger class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	945
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	946	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	947
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	948	^'long'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	949
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	950	"Modified: / 25-02-2011 / 18:59:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	951	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	952
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	953	!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	954
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	955	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	956
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	\| 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	958
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	959	(object class binaryName = 'java/lang/Long') ifFalse:[
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	960	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	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	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	964	(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	965	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	966	].
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	^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	968
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	"Created: / 22-11-2011 / 11:45:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	970	"Modified: / 08-10-2013 / 22:42:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	971	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	972
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	!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	974
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	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	976	^(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	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: / 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	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	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	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	^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	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 / 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	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:'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	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	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	994	"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	995
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	^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	997
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	"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	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
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	!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	1002
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	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	1004	"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	1005	^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	1006
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	"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	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
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	!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	1011
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	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	1013	"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	1014	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	1015	- 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	1016	- 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	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
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	"/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	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	^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	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 / 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	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:'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	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	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	1029	"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	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	^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	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	"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	1034	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1035
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1036	!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	1037
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1038	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	1039	^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	1040
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1041	"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	1042	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1043
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1044	!Object methodsFor:'testing'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1045
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1046	isJavaArray
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1047
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1048	^self class isJavaArrayClass
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: / 19-12-2010 / 17:05:50 / Jan Vrany <jan.vrany@fit.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	isJavaNameAndType
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1056	"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	1057
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1058	^ false.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1059
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1060	"Created: / 10-05-2011 / 12:21:52 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1061	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1062
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1063	!Object methodsFor:'testing'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1064
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1065	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	1066	"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	1067	False is returned here - the method is only redefined in JavaPackage."
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1068
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1069	^ false
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1070
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1071	"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	1072	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1073
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1074	!Object methodsFor:'testing'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1075
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1076	isJavaRef
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1077	"Return true, if given object represents reference in java constant pool"
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1078
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1079	^ false.
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1080
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1081	"Created: / 08-04-2011 / 16:12:45 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1082	"Modified (comment): / 30-08-2013 / 00:41:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1083	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1084
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	1085	!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	1086
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	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	1088	"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	1089
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	^ 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	1091
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	"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	1093	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1094
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1095	!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	1096
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1097	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	1098	"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	1099	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	1100
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1101	^ 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	1102
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1103	"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	1104	! !
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
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1106	!Object methodsFor:'autoboxing support'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1107
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1108	javaBox: anObject
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1109
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1110	^anObject
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1111
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1112	"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	1113	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1114
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1115	!Object methodsFor:'autoboxing support'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1116
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	1117	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	1118	"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	1119
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	^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	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	"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	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
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	!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	1126
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1127	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	1128	^ 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	1129
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	"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	1131	"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	1132	! !
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	!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	1135
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	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	1137	"Wraps the receiver into corresponding Java object"
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1138
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1139	^anObject
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1140
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	1141	"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	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
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	!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	1145
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	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	1147	"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	1148	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	1149	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	1150	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	1151
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	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	1153	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	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(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	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	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	1158
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	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	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	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	1162	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	1163	(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	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	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	1166
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1167	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	1168
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1169	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	1170	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	1171	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	1172
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1173	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1174
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1175	^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	1176
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1177	"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	1178	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1179
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1180	!Object class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1181
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1182	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1183
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1184	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1185
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1186	"Created: / 19-12-2010 / 17:05:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1187	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1188
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1189	!Object class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1190
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1191	isJavaClassType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1192
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1193	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1194
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1195	"Created: / 11-02-2011 / 08:08:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1196	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1197
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1198	!Object class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1199
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1200	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1201
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1202	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1203
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1204	"Created: / 20-12-2010 / 21:52:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1205	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1206
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1207	!Object class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1208
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1209	isJavaType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1210
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1211	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1212
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1213	"Created: / 20-12-2010 / 21:52:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1214	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1215
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	1216	!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	1217
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1218	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	1219	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	1220
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1221	"Created: / 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	1222	"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	1223	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1224
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1225	!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	1226
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1227	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	1228
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	^ 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	1230
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	"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	1232	"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	1233	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1234
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1235	!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	1236
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1237	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	1238	"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	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	^ (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	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	"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	1243	! !
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	!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	1246
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	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	1248	"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	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	^ (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	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	"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	1253	! !
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	!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	1256
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	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	1258	"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	1259
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1260	^ (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	1261
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	"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	1263	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1264
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1265	!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	1266
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	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	1268	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	1269	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	1270	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	1271	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	1272	].
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
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	].
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
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	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	1277	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	1278	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	1279	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	1280	].
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	^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	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	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	1285	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	1286	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	1287	^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	1288	].
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	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	1291
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	"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	1293	"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	1294	! !
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	!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	1297
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	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	1299
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	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	1301
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	"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	1303	"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	1304	! !
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	!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	1307
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	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	1309	"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	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	^ 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	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	"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	1314	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1315
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1316	!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	1317
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1318	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	1319	"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	1320
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	^ 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	1322
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	"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	1324	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1325
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1326	!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	1327
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1328	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	1329	"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	1330	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	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	^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	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: / 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	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	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	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 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	1342	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	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
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	"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	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
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	!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	1350
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1351	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	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	"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	1354	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	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
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	"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	1358	! !
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	!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	1361
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	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	1363	"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	1364
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	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	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
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	\|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	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	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	1371
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1372	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	1373	"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	1374	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	1375	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	1376	^ 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	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	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	1380	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	1381
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	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	1383	"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	1384	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	1385	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	1386
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1387	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	1388	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	1389	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1390
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1391	"
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	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	1393	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	1394	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	1395	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	1396	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1397	[
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	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	1399
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	"
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	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	1402	... 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	1403	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1404	[
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	"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	1406	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	1407	] 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	1408	"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	1409	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	1410	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	1411	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	1412	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	1413	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1414	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	1415	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	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	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	1419	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	1420	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	1421	^ 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	1422	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1423	] 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	1424
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1425	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	1426	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	1427	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	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
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	"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	1432	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	1433	count == 0 ifTrue:[
2639 453c3d9e8a94 class: Semaphore Stefan Vogel <sv@exept.de> parents: 2638 diff changeset	1434	activeProcess isNil ifTrue:[activeProcess := Processor activeProcess].
453c3d9e8a94 class: Semaphore Stefan Vogel <sv@exept.de> parents: 2638 diff changeset	1435	lastOwner := activeProcess.
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	1436	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1437	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	1438	^ 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	1439
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1440	"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	1441	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1442
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1443	!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	1444
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1445	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	1446	^ 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	1447	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1448
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1449	!ShortFloat class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1450
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1451	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1452
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1453	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1454
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1455	"Created: / 06-02-2011 / 17:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1456	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1457
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1458	!ShortFloat class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1459
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1460	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1461	^ FloatArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1462
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1463	"Created: / 11-02-2011 / 10:50:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1464	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1465
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1466	!ShortFloat class methodsFor:'autoboxing support'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1467
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	1468	javaBox: anObject
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1469	\| wrapper \|
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1470
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	1471	wrapper := (JavaVM classForName: 'java.lang.Float') new.
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1472	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	1473	^ wrapper
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1474
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1475	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1476	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1477
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1478	!ShortFloat class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1479
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1480	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1481
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1482	^'float'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1483
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1484	"Modified: / 25-02-2011 / 18:59:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1485	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1486
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1487	!ShortFloat class methodsFor:'autoboxing support'!
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1488
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1489	javaUnbox: object onError: errorBlock
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1490	(object class binaryName = 'java/lang/Float') ifFalse:[
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1491	errorBlock value.
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1492	].
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1493	^object instVarNamed: #value.
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1494
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1495	"Created: / 22-11-2011 / 11:52:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2841 6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2731 diff changeset	1496	"Modified: / 08-10-2013 / 22:42:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2678 c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1497	! !
c865275e48a7 Updated to match Mercurial revision a00302fe5083 with two tweaks: Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2639 diff changeset	1498
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	1499	!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	1500
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1501	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	1502	^(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	1503
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1504	"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	1505	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1506
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1507	!SignedIntegerArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1508
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1509	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1510
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1511	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1512	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1513
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1514	!SignedIntegerArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1515
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1516	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1517
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1518	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1519
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1520	"Created: / 06-02-2011 / 15:16:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1521	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1522
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1523	!SignedIntegerArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1524
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1525	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1526
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1527	^JavaArray javaArrayClassFor: SignedIntegerArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1528
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1529	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1530	"Modified: / 10-08-2011 / 22:47:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
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	!SignedIntegerArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1534
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1535	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1536
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1537	^ Integer
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1538
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1539	"Created: / 25-06-2011 / 08:38:05 / 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	!SignedIntegerArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1543
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1544	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1545
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1546	^'[I'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1547
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1548	"Modified: / 25-02-2011 / 19:03:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1549	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1550
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1551	!SignedLongIntegerArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1552
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1553	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1554
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1555	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1556	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1557
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1558	!SignedLongIntegerArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1559
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1560	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1561
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1562	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1563
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1564	"Created: / 20-12-2010 / 22:47:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1565	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1566
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1567	!SignedLongIntegerArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1568
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1569	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1570
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1571	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1572	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1573
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1574	"Created: / 20-12-2010 / 22:30:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1575	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1576
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	1577	!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	1578
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1579	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	1580
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	^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	1582
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	"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	1584	"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	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
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1587	!SignedLongIntegerArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1588
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1589	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1590
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1591	^LargeInteger
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1592
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1593	"Modified: / 25-06-2011 / 08:38:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1594	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1595
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1596	!SignedLongIntegerArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1597
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1598	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1599
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1600	^'[J'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1601
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1602	"Modified: / 25-02-2011 / 19:03:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1603	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1604
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1605	!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	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	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	1608
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	^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	1610
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	"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	1612	! !
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	!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	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	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	1617
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	"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	1619	^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	1620
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	"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	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
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	!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	1625
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	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	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	^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	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	"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	1631	! !
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	!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	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	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	1636
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	^'[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	1638
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	"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	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
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	!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	1643
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	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	1645	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	1646	^ 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	1647	].
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	^ 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	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: / 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	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
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1653	!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	1654
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	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	1656	^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	1657
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1658	"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	1659	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1660
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1661	!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	1662
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	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	1664	"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	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	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	1667	[
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1668	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	1669	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	1670	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	1671	] on: OpenError do:[
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1672	"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	1673	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1674
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1675	"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	1676	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1677
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1678	!String methodsFor:'converting'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1679
2353 fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1680	asArrayOfSubstringsSeparatedBy:aSeparator
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1681	"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	1682
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1683	\|substrings start end\|
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1684
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1685	substrings := OrderedCollection new.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1686	start := 1.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1687	[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	1688	(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	1689	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	1690	[
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1691	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	1692	] 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	1693	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	1694	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	1695	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1696	start := start + 1
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1697	].
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1698	^ substrings asArray
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1699
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1700	"Created: / 07-02-2011 / 11:18:03 / Marcel Hlopko <hlopik@gmail.com>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1701	"Modified: / 08-02-2011 / 01:08:15 / Marcel Hlopko <hlopik@gmail.com>"
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1702	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1703
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	1704	!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	1705
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1706	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	1707	^ '[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	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	"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	1710	! !
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
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1712	!UndefinedObject class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1713
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1714	isJavaPrimitiveType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1715
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1716	"void"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1717
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1718	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1719
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1720	"Created: / 21-12-2010 / 22:52:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1721	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1722
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1723	!UndefinedObject class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1724
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1725	javaName
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1726
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1727	^'void'.
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1728
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1729	"Modified: / 25-02-2011 / 18:59:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1730	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1731
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	1732	!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	1733
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	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	1735	^ '[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	1736
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	"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	1738	! !
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
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	!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	1741
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1742	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	1743	"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	1744	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	1745
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1746	\| 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	1747	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	1748	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	1749	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	1750	].
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	^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	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	"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	1754	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1755
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	!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	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	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	1759	^ self at:#javaReleaseSelector ifAbsent:[nil].
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1760
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1761	"
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	1762	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	1763	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	1764	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	1765
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	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	1767	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1768
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1769	"Created: / 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	1770	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1771
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	1772	!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	1773
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1774	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	1775	"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	1776	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	1777
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1778	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	1779	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	1780	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	1781	].
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1782
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1783
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1784	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1785	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	1786	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	1787	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	1788
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1789	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	1790	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	1791
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1792	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	1793	"
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1794
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1795	"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	1796	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1797
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1798	!WordArray class methodsFor:'testing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1799
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1800	isInterface
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1801
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1802	^false
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1803	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1804
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1805	!WordArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1806
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1807	isJavaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1808
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1809	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1810
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1811	"Created: / 20-12-2010 / 22:47:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1812	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1813
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1814	!WordArray class methodsFor:'queries'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1815
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1816	isJavaReferenceType
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1817
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1818	"Java arrays are reference types"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1819	^true
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1820
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1821	"Created: / 20-12-2010 / 22:30:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1822	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1823
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1824	!WordArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1825
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1826	javaArrayClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1827
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1828	^JavaArray javaArrayClassFor: WordArray
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1829
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1830	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1831	"Modified: / 10-08-2011 / 22:46:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1832	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1833
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1834	!WordArray class methodsFor:'accessing-java'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1835
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1836	javaComponentClass
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1837
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1838	^JavaShort
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1839
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1840	"Created: / 20-12-2010 / 22:13:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1841	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1842
749 e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1843	!WordArray class methodsFor:'accessing'!
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1844
e898eaeff091 Synchronized with CVS repository at: vranyj1 parents: diff changeset	1845	javaName
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	1846	^ '[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	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	"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	1849	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1850
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1851	!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	1852
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1853	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	1854	"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	1855
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1856	\| 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	1857	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	1858	^(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	1859	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	1860	] 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	1861	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	1862	]
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1863
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1864	"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	1865	! !
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1866
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1867	!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	1868
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1869	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	1870
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1871	^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	1872
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2339 diff changeset	1873	"Created: / 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	1874	! !
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1875
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1876	!ZipArchive methodsFor:'reading - java support'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1877
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1878	nextBytes: bytesToRead of: zmember startingAt: pos into: b startingAt: off
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1879
2638 54cd07376ffb use #position/#position: instead of #positionXBased Stefan Vogel <sv@exept.de> parents: 2635 diff changeset	1880	file position: (self dataStartOf: zmember) + startOfArchive + pos.
2339 bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1881	^ file nextBytes: bytesToRead into: b startingAt: off.
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1882
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1883	"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	1884	"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	1885	! !
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1886
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1887	!stx_libjava class methodsFor:'documentation'!
bf462a66e675 x Claus Gittinger <cg@exept.de> parents: 2152 diff changeset	1888
2635 00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1889	extensionsVersion_HG
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1890
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1891	^ '$Changeset: <not expanded> $'
00c38014b451 eliminated marcel's duplicate code Claus Gittinger <cg@exept.de> parents: 2442 diff changeset	1892	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 08 Nov 2013 10:11:49 +0000
branch	development
changeset 2907	503761e88b38
parent 2841	6fa1bcf9c997
child 2918	e2fc5ead5542
permissions	-rw-r--r--