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

752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1	"{ Package: 'stx:libjava' }"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	2
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	3	!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	4
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	5	!BooleanArray methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	6
826 db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	7	isInterface
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	8
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	9	^false
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	10
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	11	"Created: / 31-05-2011 / 16:07:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	12	! !
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	13	!CharacterArray methodsFor:'java conversions'!
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	14
1061 59aed4985b1d vranyj1 parents: 1060 diff changeset	15	asDottedJavaClassName
59aed4985b1d vranyj1 parents: 1060 diff changeset	16
59aed4985b1d vranyj1 parents: 1060 diff changeset	17	"
59aed4985b1d vranyj1 parents: 1060 diff changeset	18	examples:
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	19	java.lang.String
1061 59aed4985b1d vranyj1 parents: 1060 diff changeset	20	[[[Ljava/lang/Object; => java.lang.Object
59aed4985b1d vranyj1 parents: 1060 diff changeset	21	"
59aed4985b1d vranyj1 parents: 1060 diff changeset	22
59aed4985b1d vranyj1 parents: 1060 diff changeset	23
59aed4985b1d vranyj1 parents: 1060 diff changeset	24	\| nm \|
59aed4985b1d vranyj1 parents: 1060 diff changeset	25	nm := self asJavaComponentClassName.
59aed4985b1d vranyj1 parents: 1060 diff changeset	26	(nm startsWith: $L) ifTrue: [
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	27	nm := nm copyFrom: 2 to: nm size - 1
1061 59aed4985b1d vranyj1 parents: 1060 diff changeset	28	].
59aed4985b1d vranyj1 parents: 1060 diff changeset	29	(nm includes: $/) ifTrue: [
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	30	nm := nm asString copyReplaceAll: $/ with: $.
1061 59aed4985b1d vranyj1 parents: 1060 diff changeset	31	].
59aed4985b1d vranyj1 parents: 1060 diff changeset	32	^ nm.
59aed4985b1d vranyj1 parents: 1060 diff changeset	33
59aed4985b1d vranyj1 parents: 1060 diff changeset	34	"Created: / 21-10-2011 / 12:31:51 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
59aed4985b1d vranyj1 parents: 1060 diff changeset	35	"Created: / 30-10-2011 / 17:41:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
59aed4985b1d vranyj1 parents: 1060 diff changeset	36	! !
59aed4985b1d vranyj1 parents: 1060 diff changeset	37	!CharacterArray methodsFor:'java conversions'!
59aed4985b1d vranyj1 parents: 1060 diff changeset	38
1036 4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	39	asInternalJavaClassName
1060 c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	40
c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	41	<resource: #obsolete>
c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	42
c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	43	^self asSlashedJavaClassName
1036 4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	44
4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	45	"Created: / 21-10-2011 / 12:31:51 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
1060 c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	46	"Modified: / 30-10-2011 / 17:40:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1036 4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	47	! !
4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	48	!CharacterArray methodsFor:'java conversions'!
4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	49
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	50	asJavaComponentClassName
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	51	\| componentClassName \|
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	52
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	53	componentClassName := self utf8Encoded.
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	54	(componentClassName matches: '\[') ifTrue: [
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	55	componentClassName := componentClassName
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	56	copyFrom: (componentClassName lastIndexOf: $[) + 1
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	57	to: componentClassName size.
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	58	].
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	59	^ componentClassName.
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	60	! !
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	61	!CharacterArray methodsFor:'java conversions'!
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	62
1036 4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	63	asJavaishClassName
1060 c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	64
c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	65	<resource: #obsolete>
c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	66
c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	67	^self asDottedJavaClassName.
1036 4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	68
4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	69	"Created: / 21-10-2011 / 12:33:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
1060 c3ac98001802 Yet another set of hacks for classloaders vranyj1 parents: 1038 diff changeset	70	"Modified: / 30-10-2011 / 17:41:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1036 4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	71	! !
4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	72	!CharacterArray methodsFor:'java conversions'!
4ff03464c3b3 refactored registry.. hlopkmar parents: 1033 diff changeset	73
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	74	asNiceJavaClassName
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	75	\| niceName \|
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	76
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	77	niceName := self asJavaComponentClassName asSTXInternalJavaClassName.
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	78	(self occurrencesOf: $[) timesRepeat: [ niceName := niceName , '[]' ].
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	79	niceName := niceName asString copyReplaceAll: $/ with: $..
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	80	^ niceName.
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	81	! !
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	82	!CharacterArray methodsFor:'java conversions'!
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	83
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	84	asSTXInternalJavaClassName
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	85	\| internalName \|
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	86
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	87	internalName := self asJavaComponentClassName.
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	88	(internalName startsWith: $L) ifTrue: [
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	89	internalName := internalName copyFrom: 2 to: internalName size - 1
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	90	].
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	91	(internalName includes: $.) ifTrue: [
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	92	internalName := internalName asString copyReplaceAll: $. with: $/
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	93	].
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	94	^internalName.
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	95	! !
1061 59aed4985b1d vranyj1 parents: 1060 diff changeset	96	!CharacterArray methodsFor:'java conversions'!
59aed4985b1d vranyj1 parents: 1060 diff changeset	97
59aed4985b1d vranyj1 parents: 1060 diff changeset	98	asSlashedJavaClassName
59aed4985b1d vranyj1 parents: 1060 diff changeset	99	"removes square brackets and adds slashes"
59aed4985b1d vranyj1 parents: 1060 diff changeset	100	\| internalName \|
59aed4985b1d vranyj1 parents: 1060 diff changeset	101	internalName := self asJavaComponentClassName.
59aed4985b1d vranyj1 parents: 1060 diff changeset	102	(internalName startsWith: $L) ifTrue: [
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	103	internalName := internalName copyFrom: 2 to: internalName size - 1
1061 59aed4985b1d vranyj1 parents: 1060 diff changeset	104	].
59aed4985b1d vranyj1 parents: 1060 diff changeset	105	(internalName includes: $.) ifTrue: [
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	106	internalName := internalName asString copyReplaceAll: $. with: $/
1061 59aed4985b1d vranyj1 parents: 1060 diff changeset	107	].
59aed4985b1d vranyj1 parents: 1060 diff changeset	108	^ internalName.
59aed4985b1d vranyj1 parents: 1060 diff changeset	109
59aed4985b1d vranyj1 parents: 1060 diff changeset	110	"Created: / 21-10-2011 / 12:31:51 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
59aed4985b1d vranyj1 parents: 1060 diff changeset	111	"Created: / 30-10-2011 / 17:40:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
59aed4985b1d vranyj1 parents: 1060 diff changeset	112	! !
1032 c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	113	!CharacterArray methodsFor:'java queries'!
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	114
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	115	isJavaArrayDescriptor
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	116	^ self startsWith:$[.
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	117	! !
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	118	!CharacterArray methodsFor:'java queries'!
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	119
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	120	isJavaPrimitiveTypeDescriptor
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	121	^ (self size = 1 and: [ JavaDescriptor baseTypes includesKey: self first ]).
c3085c73e150 just refactoring registry hlopkmar parents: 1021 diff changeset	122	! !
1006 5a8a5975eb22 Set can be used as java.util.Set :) kursjan parents: 960 diff changeset	123	!Class methodsFor:'method lookup'!
5a8a5975eb22 Set can be used as java.util.Set :) kursjan parents: 960 diff changeset	124
1207 babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	125	perform:aMessage onReceiver:receiver from:sender ifNotFound:aBlock
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	126	\| method selector class args retval\|
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	127	selector := aMessage selector.
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	128	args := aMessage arguments.
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	129	class := receiver class.
1006 5a8a5975eb22 Set can be used as java.util.Set :) kursjan parents: 960 diff changeset	130
1207 babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	131	SmalltalkLookup isNil ifTrue:[
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	132	(Smalltalk loadPackage: 'stx:libjava/experiments') ifFalse:[
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	133	self error: 'You should load package stx:libjava/experiments if you want some interop - still experimental' mayProceed: true.
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	134	^nil
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	135	]
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	136	].
1009 00cf245885ab Some methods in SmalltalkLookup and Class were missing... kursjan parents: 1006 diff changeset	137
1207 babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	138	method := SmalltalkLookup instance lookupMethodForSelector: selector
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	139	directedTo: class
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	140	for: receiver
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	141	withArguments: args
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	142	from: sender
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	143	ilc: nil.
1009 00cf245885ab Some methods in SmalltalkLookup and Class were missing... kursjan parents: 1006 diff changeset	144
1207 babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	145	method ifNotNil:
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	146	[ \| unboxedArgs \|
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	147	unboxedArgs := self unbox: args to: method argTypes.
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	148	retval := receiver perform: method selector withArguments: unboxedArgs.
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	149	^ self box: retval toType: method returnType.
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	150	].
babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	151	^ aBlock value.
1009 00cf245885ab Some methods in SmalltalkLookup and Class were missing... kursjan parents: 1006 diff changeset	152
00cf245885ab Some methods in SmalltalkLookup and Class were missing... kursjan parents: 1006 diff changeset	153	"Created: / 28-09-2011 / 11:31:33 / Jan Kurs <kursjan@fit.cvut.cz>"
1207 babfd6d59b31 small cleanup - bunch of JK's interop classes moved to stx:libjava/experiments vranyj1 parents: 1205 diff changeset	154	"Modified: / 03-12-2011 / 21:37:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1006 5a8a5975eb22 Set can be used as java.util.Set :) kursjan parents: 960 diff changeset	155	! !
1190 00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	156	!Delay methodsFor:'delaying'!
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	157
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	158	waitWithState:state
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	159	"suspend the current process until either the relative time delta
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	160	has passed (if millisecondDelta is non-nil), or the absolute millisecondTime
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	161	has been reached (if resumptionTime non-nil)."
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	162
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	163	\| wasBlocked currentDelta dueTime now then \|
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	164	isInterrupted := false.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	165	millisecondDelta notNil ifTrue: [
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	166	now := OperatingSystem getMillisecondTime.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	167	currentDelta := millisecondDelta rounded.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	168	currentDelta > 16r0fffffff ifTrue: [
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	169	"NOTE: the microsecondTime is increasing monotonically,
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	170	while millisecondTime is wrapping at 16r1fffffff.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	171	So use the microsecondTime to check when we are finished"
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	172	dueTime := OperatingSystem getMicrosecondTime + (currentDelta * 1000).
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	173	currentDelta := 16r0fffffff.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	174	].
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	175	then := OperatingSystem millisecondTimeAdd: now and: currentDelta.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	176	] ifFalse: [ then := resumptionTime. ].
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	177	wasBlocked := OperatingSystem blockInterrupts.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	178	[
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	179	[
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	180	Processor signal: delaySemaphore atMilliseconds: then.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	181	Processor activeProcess state: state.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	182	delaySemaphore wait.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	183	] doWhile: [
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	184	(dueTime notNil
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	185	and: [
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	186	isInterrupted not
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	187	and: [ (currentDelta := dueTime - OperatingSystem getMicrosecondTime) > 0 ]
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	188	])
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	189	ifTrue: [
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	190	currentDelta := (currentDelta // 1000) min: 16r0fffffff.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	191	now := OperatingSystem getMillisecondTime.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	192	then := OperatingSystem millisecondTimeAdd: now and: currentDelta.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	193	true.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	194	]
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	195	ifFalse: [ false ]
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	196	].
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	197	] ensure: [ wasBlocked ifFalse: [ OperatingSystem unblockInterrupts ]. ]
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	198
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	199	"
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	200	Transcript showCR:'1'.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	201	(Delay forSeconds:10) wait.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	202	Transcript showCR:'2'."
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	203
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	204	"Modified: / 26-02-1997 / 15:21:35 / cg"
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	205	"Modified: / 18-04-1997 / 11:56:46 / stefan"
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	206	"Created: / 30-11-2011 / 13:38:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	207	! !
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	208	!Object methodsFor:'testing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	209
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	210	isJavaArray
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	211
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	212	^self class isJavaArrayClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	213
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	214	"Created: / 19-12-2010 / 17:05:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	215	! !
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: 752 diff changeset	216	!Object methodsFor:'testing'!
be8e84381ce0 Merged with /branches/jk vranyj1 parents: 752 diff changeset	217
771 fb8026dda011 Merged with /trunk vranyj1 parents: 770 diff changeset	218	isJavaNameAndType
fb8026dda011 Merged with /trunk vranyj1 parents: 770 diff changeset	219	"return true, if given object represents name and type struct in java constant pool"
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	220
771 fb8026dda011 Merged with /trunk vranyj1 parents: 770 diff changeset	221	^ false.
fb8026dda011 Merged with /trunk vranyj1 parents: 770 diff changeset	222
fb8026dda011 Merged with /trunk vranyj1 parents: 770 diff changeset	223	"Created: / 10-05-2011 / 12:21:52 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fb8026dda011 Merged with /trunk vranyj1 parents: 770 diff changeset	224	! !
fb8026dda011 Merged with /trunk vranyj1 parents: 770 diff changeset	225	!Object methodsFor:'testing'!
fb8026dda011 Merged with /trunk vranyj1 parents: 770 diff changeset	226
894 e840e204829f Added JavaPackage vranyj1 parents: 880 diff changeset	227	isJavaPackage
1209 953b9d7c328a vranyj1 parents: 1207 diff changeset	228	"return true, if the receiver is a java package.
953b9d7c328a vranyj1 parents: 1207 diff changeset	229	False is returned here - the method is only redefined in JavaPackage."
894 e840e204829f Added JavaPackage vranyj1 parents: 880 diff changeset	230
e840e204829f Added JavaPackage vranyj1 parents: 880 diff changeset	231	^ false
e840e204829f Added JavaPackage vranyj1 parents: 880 diff changeset	232
e840e204829f Added JavaPackage vranyj1 parents: 880 diff changeset	233	"Created: / 09-08-2011 / 09:35:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e840e204829f Added JavaPackage vranyj1 parents: 880 diff changeset	234	! !
e840e204829f Added JavaPackage vranyj1 parents: 880 diff changeset	235	!Object methodsFor:'testing'!
e840e204829f Added JavaPackage vranyj1 parents: 880 diff changeset	236
758 be8e84381ce0 Merged with /branches/jk vranyj1 parents: 752 diff changeset	237	isJavaRef
be8e84381ce0 Merged with /branches/jk vranyj1 parents: 752 diff changeset	238	"return true, if given object represents reference in java constant pool"
be8e84381ce0 Merged with /branches/jk vranyj1 parents: 752 diff changeset	239	^ false.
be8e84381ce0 Merged with /branches/jk vranyj1 parents: 752 diff changeset	240
be8e84381ce0 Merged with /branches/jk vranyj1 parents: 752 diff changeset	241	"Created: / 08-04-2011 / 16:12:45 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
be8e84381ce0 Merged with /branches/jk vranyj1 parents: 752 diff changeset	242	! !
1332 a2e2c13b0ff6 Some testing methods vranyj1 parents: 1328 diff changeset	243	!Object methodsFor:'testing'!
a2e2c13b0ff6 Some testing methods vranyj1 parents: 1328 diff changeset	244
a2e2c13b0ff6 Some testing methods vranyj1 parents: 1328 diff changeset	245	isJavaWrapperClass
a2e2c13b0ff6 Some testing methods vranyj1 parents: 1328 diff changeset	246	"return true, if this is a java wrapper class, i.e, java.lang.Integer, java.lang.Boolean etc."
a2e2c13b0ff6 Some testing methods vranyj1 parents: 1328 diff changeset	247
a2e2c13b0ff6 Some testing methods vranyj1 parents: 1328 diff changeset	248	^ false
a2e2c13b0ff6 Some testing methods vranyj1 parents: 1328 diff changeset	249
a2e2c13b0ff6 Some testing methods vranyj1 parents: 1328 diff changeset	250	"Created: / 01-01-2012 / 17:25:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a2e2c13b0ff6 Some testing methods vranyj1 parents: 1328 diff changeset	251	! !
916 9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:) vranyj1 parents: 915 diff changeset	252	!Object methodsFor:'autoboxing support'!
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:) vranyj1 parents: 915 diff changeset	253
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:) vranyj1 parents: 915 diff changeset	254	javaBox: anObject
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:) vranyj1 parents: 915 diff changeset	255
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:) vranyj1 parents: 915 diff changeset	256	^anObject
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:) vranyj1 parents: 915 diff changeset	257
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:) vranyj1 parents: 915 diff changeset	258	"Created: / 15-08-2011 / 10:52:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:) vranyj1 parents: 915 diff changeset	259	! !
1263 451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	260	!Object methodsFor:'autoboxing support'!
451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	261
451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	262	javaUnwrap: anObject
451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	263	"Unwraps the objects. Possibly call on the wrapped class"
451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	264
451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	265	^anObject
451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	266
451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	267	"Created: / 10-12-2011 / 19:51:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	268	! !
1319 fbf4b3223b0e Added javaWrap: vranyj1 parents: 1295 diff changeset	269	!Object methodsFor:'autoboxing support'!
fbf4b3223b0e Added javaWrap: vranyj1 parents: 1295 diff changeset	270
1328 06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	271	javaUnwrapFrom: javaType
06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	272	^ self.
06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	273
06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	274	"Created: / 10-12-2011 / 19:51:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	275	"Created: / 30-12-2011 / 15:22:06 / kursjan <kursjan@fit.cvut.cz>"
06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	276	! !
06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	277	!Object methodsFor:'autoboxing support'!
06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	278
1319 fbf4b3223b0e Added javaWrap: vranyj1 parents: 1295 diff changeset	279	javaWrap: anObject
fbf4b3223b0e Added javaWrap: vranyj1 parents: 1295 diff changeset	280	"Wraps the receiver into corresponding Java object"
fbf4b3223b0e Added javaWrap: vranyj1 parents: 1295 diff changeset	281
fbf4b3223b0e Added javaWrap: vranyj1 parents: 1295 diff changeset	282	^anObject
fbf4b3223b0e Added javaWrap: vranyj1 parents: 1295 diff changeset	283
fbf4b3223b0e Added javaWrap: vranyj1 parents: 1295 diff changeset	284	"Created: / 26-12-2011 / 00:57:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fbf4b3223b0e Added javaWrap: vranyj1 parents: 1295 diff changeset	285	! !
1183 4db27693ce84 interrupt and sleep fixes hlopkmar parents: 1169 diff changeset	286	!Process methodsFor:'Java protocol'!
4db27693ce84 interrupt and sleep fixes hlopkmar parents: 1169 diff changeset	287
4db27693ce84 interrupt and sleep fixes hlopkmar parents: 1169 diff changeset	288	clearInterrupted
1185 f13a7d1c7385 process javaProtocol hlopkmar parents: 1184 diff changeset	289	JavaVM threadInterrupts at: self put: false.
1183 4db27693ce84 interrupt and sleep fixes hlopkmar parents: 1169 diff changeset	290
4db27693ce84 interrupt and sleep fixes hlopkmar parents: 1169 diff changeset	291	"Created: / 30-11-2011 / 10:44:26 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
4db27693ce84 interrupt and sleep fixes hlopkmar parents: 1169 diff changeset	292	! !
1187 6f46a5bd8da1 my neverending fight with svn continues :) fix in Process>>isInterrupted :) hlopkmar parents: 1186 diff changeset	293	!Process methodsFor:'Java protocol'!
6f46a5bd8da1 my neverending fight with svn continues :) fix in Process>>isInterrupted :) hlopkmar parents: 1186 diff changeset	294
6f46a5bd8da1 my neverending fight with svn continues :) fix in Process>>isInterrupted :) hlopkmar parents: 1186 diff changeset	295	isInterrupted
1188 1460e12fc954 interrupt test passes hlopkmar parents: 1187 diff changeset	296
1460e12fc954 interrupt test passes hlopkmar parents: 1187 diff changeset	297	^ JavaVM threadInterrupts at: self
1460e12fc954 interrupt test passes hlopkmar parents: 1187 diff changeset	298	ifAbsent: [ JavaVM threadInterrupts at: self put: false. ]
1187 6f46a5bd8da1 my neverending fight with svn continues :) fix in Process>>isInterrupted :) hlopkmar parents: 1186 diff changeset	299
6f46a5bd8da1 my neverending fight with svn continues :) fix in Process>>isInterrupted :) hlopkmar parents: 1186 diff changeset	300	"Created: / 30-11-2011 / 12:12:33 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
6f46a5bd8da1 my neverending fight with svn continues :) fix in Process>>isInterrupted :) hlopkmar parents: 1186 diff changeset	301	! !
1144 c1c59b13340e tiny changes and big discovery :) hlopkmar parents: 1139 diff changeset	302	!Process methodsFor:'queries'!
c1c59b13340e tiny changes and big discovery :) hlopkmar parents: 1139 diff changeset	303
1190 00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	304	isSleeping
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	305	"return true, iff the receiver is sleeping on Delay"
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	306
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	307	^ (state == #sleep)
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	308
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	309	"Created: / 30-11-2011 / 13:35:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	310	! !
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	311	!Process methodsFor:'queries'!
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	312
1144 c1c59b13340e tiny changes and big discovery :) hlopkmar parents: 1139 diff changeset	313	isWaiting
c1c59b13340e tiny changes and big discovery :) hlopkmar parents: 1139 diff changeset	314	"return true, iff the receiver is waiting on semaphore or something"
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	315
1144 c1c59b13340e tiny changes and big discovery :) hlopkmar parents: 1139 diff changeset	316	^ (state == #wait)
c1c59b13340e tiny changes and big discovery :) hlopkmar parents: 1139 diff changeset	317
c1c59b13340e tiny changes and big discovery :) hlopkmar parents: 1139 diff changeset	318	"Created: / 20-11-2011 / 20:55:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
c1c59b13340e tiny changes and big discovery :) hlopkmar parents: 1139 diff changeset	319	! !
1192 525a3aeb0dcf sleep mauve test passes hlopkmar parents: 1190 diff changeset	320	!Process methodsFor:'Java protocol'!
1190 00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	321
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	322	javaInterrupt
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	323	self isWaiting ifTrue: [
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	324	self
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	325	interruptWith: [
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	326	JavaVM
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	327	throwInterruptedException: 'thread has been interrupted during wait'.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	328	self terminate
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	329	]
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	330	] ifFalse: [
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	331	self isSleeping ifTrue: [
1192 525a3aeb0dcf sleep mauve test passes hlopkmar parents: 1190 diff changeset	332
1190 00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	333	self
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	334	interruptWith: [
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	335	JavaVM
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	336	throwInterruptedException: 'thread has been interrupted during sleep'.
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	337	self terminate
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	338	]
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	339	] ifFalse: [ self setInterrupted. ]
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	340	]
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	341
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	342	"Created: / 30-11-2011 / 13:35:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
00e22b8b2652 interrupts work much better hlopkmar parents: 1188 diff changeset	343	! !
1183 4db27693ce84 interrupt and sleep fixes hlopkmar parents: 1169 diff changeset	344	!Process methodsFor:'Java protocol'!
4db27693ce84 interrupt and sleep fixes hlopkmar parents: 1169 diff changeset	345
4db27693ce84 interrupt and sleep fixes hlopkmar parents: 1169 diff changeset	346	setInterrupted
1188 1460e12fc954 interrupt test passes hlopkmar parents: 1187 diff changeset	347
1460e12fc954 interrupt test passes hlopkmar parents: 1187 diff changeset	348	JavaVM threadInterrupts at: self put: true.
1183 4db27693ce84 interrupt and sleep fixes hlopkmar parents: 1169 diff changeset	349
4db27693ce84 interrupt and sleep fixes hlopkmar parents: 1169 diff changeset	350	"Created: / 30-11-2011 / 10:44:37 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
4db27693ce84 interrupt and sleep fixes hlopkmar parents: 1169 diff changeset	351	! !
1021 8ae6c261878a changed class loaders order, loading of primitive arrays, refactoring coming soon.. hlopkmar parents: 1020 diff changeset	352	!Set methodsFor:'javaProtocol'!
8ae6c261878a changed class loaders order, loading of primitive arrays, refactoring coming soon.. hlopkmar parents: 1020 diff changeset	353
1103 bf4c6f5bc68e just assert hlopkmar parents: 1099 diff changeset	354	java__contains:anObject
1169 8f727dc66647 monitor fix.. many to come :) hlopkmar parents: 1159 diff changeset	355	^ self contains: [:el \| anObject = el ]
1021 8ae6c261878a changed class loaders order, loading of primitive arrays, refactoring coming soon.. hlopkmar parents: 1020 diff changeset	356	! !
1328 06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	357	!SmallInteger methodsFor:'autoboxing'!
06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	358
06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	359	javaUnwrapFrom: javaType
06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	360	javaType = #boolean ifTrue: [
06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	361	^ self = 1
06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	362	].
06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	363	^ self
06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	364
06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	365	"Created: / 30-12-2011 / 15:22:52 / kursjan <kursjan@fit.cvut.cz>"
06e2e372ebb0 Support for wrapping/unwrapping JavaObjects kursjan parents: 1319 diff changeset	366	! !
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	367	!String methodsFor:'converting'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	368
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	369	asArrayOfSubstringsSeparatedBy:aSeparator
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	370	"Modified version of asArrayOfSubstrings"
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	371
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	372	\|substrings start end\|
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	373
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	374	substrings := OrderedCollection new.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	375	start := 1.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	376	[start <= self size] whileTrue:[
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	377	(self at:start) = aSeparator ifFalse:[
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	378	end := start + 1.
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	379	[
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	380	end <= self size and:[(self at:end) ~= aSeparator]
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	381	] whileTrue:[end := end + 1].
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	382	substrings add:(self copyFrom:start to:end - 1).
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	383	start := end - 1
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	384	].
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	385	start := start + 1
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	386	].
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	387	^ substrings asArray
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	388
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	389	"Created: / 07-02-2011 / 11:18:03 / Marcel Hlopko <hlopik@gmail.com>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	390	"Modified: / 08-02-2011 / 01:08:15 / Marcel Hlopko <hlopik@gmail.com>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	391	! !
763 1e82b558abd3 Few fixes toward new repository layout vranyj1 parents: 762 diff changeset	392	!UserPreferences methodsFor:'accessing-java-devel'!
1e82b558abd3 Few fixes toward new repository layout vranyj1 parents: 762 diff changeset	393
1e82b558abd3 Few fixes toward new repository layout vranyj1 parents: 762 diff changeset	394	javaTestsDirectory
774 ac54730a2b74 cleaning.. removed JavaConstantPoolContent hlopkmar parents: 772 diff changeset	395	^ self at: #javaTestsDirectory
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	396	ifAbsent:
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	397	[ \| nm \|
764 3c1d3f2d29a5 - stx_libjava class>>testSuite now contains also jUnit tests vranyj1 parents: 763 diff changeset	398
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	399	nm := OperatingSystem getLoginName.
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	400	"Default path for Jan"
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	401	(nm = 'jv' and:[OperatingSystem isUNIXlike])
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	402	ifTrue:
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	403	[ '/home/jv/Projects/libjava/sources/libjava/branches/jk_new_structure/tests' ]
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	404	ifFalse:
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	405	[ "Default path for Jan (the other one :-)"
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	406	nm = 'jk'
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	407	ifTrue: [ 'path for Jan' ]
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	408	ifFalse:
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	409	[ "Default path for Marcel"
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	410	nm = 'm'
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	411	ifTrue: [ '/home/m/Projects/libjava/branches/jk_new_structure/tests' ]
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	412	ifFalse:
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	413	[ \| "Look into package dir" p \|
768 f9e571ed1105 UserPreferences>>#javaTestDirectory: fix for hudon vranyj1 parents: 767 diff changeset	414
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	415	(p := (Smalltalk getPackageDirectoryForPackage: 'stx:libjava') asFilename
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	416	/ 'tests') exists
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	417	ifTrue: [ p pathName ]
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	418	ifFalse:
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	419	[ \| "Try the environment variable (used by Hudson)" p \|
764 3c1d3f2d29a5 - stx_libjava class>>testSuite now contains also jUnit tests vranyj1 parents: 763 diff changeset	420
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	421	(p := OperatingSystem getEnvironment: 'LIBJAVA_TESTS') notNil
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	422	ifTrue: [ p ]
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	423	ifFalse:
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	424	[ "No default, trigger an error"
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	425	self error: 'No tests path specified' ] ] ] ] ] ]
763 1e82b558abd3 Few fixes toward new repository layout vranyj1 parents: 762 diff changeset	426
1e82b558abd3 Few fixes toward new repository layout vranyj1 parents: 762 diff changeset	427	"
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	428	UserPreferences current javaTestsDirectory"
763 1e82b558abd3 Few fixes toward new repository layout vranyj1 parents: 762 diff changeset	429
1e82b558abd3 Few fixes toward new repository layout vranyj1 parents: 762 diff changeset	430	"Created: / 07-05-2011 / 17:43:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
764 3c1d3f2d29a5 - stx_libjava class>>testSuite now contains also jUnit tests vranyj1 parents: 763 diff changeset	431	"Modified: / 07-05-2011 / 20:21:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
774 ac54730a2b74 cleaning.. removed JavaConstantPoolContent hlopkmar parents: 772 diff changeset	432	"Modified: / 12-05-2011 / 15:54:39 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
763 1e82b558abd3 Few fixes toward new repository layout vranyj1 parents: 762 diff changeset	433	! !
1e82b558abd3 Few fixes toward new repository layout vranyj1 parents: 762 diff changeset	434	!UserPreferences methodsFor:'accessing-java-devel'!
1e82b558abd3 Few fixes toward new repository layout vranyj1 parents: 762 diff changeset	435
1e82b558abd3 Few fixes toward new repository layout vranyj1 parents: 762 diff changeset	436	javaTestsDirectory: aStringOrFilename
1e82b558abd3 Few fixes toward new repository layout vranyj1 parents: 762 diff changeset	437
1e82b558abd3 Few fixes toward new repository layout vranyj1 parents: 762 diff changeset	438	self at:#javaTestsDirectory put: aStringOrFilename asString.
1e82b558abd3 Few fixes toward new repository layout vranyj1 parents: 762 diff changeset	439
1e82b558abd3 Few fixes toward new repository layout vranyj1 parents: 762 diff changeset	440	"Created: / 07-05-2011 / 17:45:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1e82b558abd3 Few fixes toward new repository layout vranyj1 parents: 762 diff changeset	441	! !
1295 6093c1f40b70 Improvements for interop experiments vranyj1 parents: 1276 diff changeset	442	!WrappedMethod methodsFor:'accessing'!
6093c1f40b70 Improvements for interop experiments vranyj1 parents: 1276 diff changeset	443
6093c1f40b70 Improvements for interop experiments vranyj1 parents: 1276 diff changeset	444	descriptor
6093c1f40b70 Improvements for interop experiments vranyj1 parents: 1276 diff changeset	445	"Returns descriptor object (for wrapped Java methods)"
6093c1f40b70 Improvements for interop experiments vranyj1 parents: 1276 diff changeset	446
6093c1f40b70 Improvements for interop experiments vranyj1 parents: 1276 diff changeset	447	\| orig \|
6093c1f40b70 Improvements for interop experiments vranyj1 parents: 1276 diff changeset	448	orig := self originalMethod.
6093c1f40b70 Improvements for interop experiments vranyj1 parents: 1276 diff changeset	449	^(orig respondsTo: #descriptor) ifTrue:[
6093c1f40b70 Improvements for interop experiments vranyj1 parents: 1276 diff changeset	450	orig descriptor
6093c1f40b70 Improvements for interop experiments vranyj1 parents: 1276 diff changeset	451	] ifFalse:[
6093c1f40b70 Improvements for interop experiments vranyj1 parents: 1276 diff changeset	452	self doesNotUnderstand: (Message selector: #descriptor)
6093c1f40b70 Improvements for interop experiments vranyj1 parents: 1276 diff changeset	453	]
6093c1f40b70 Improvements for interop experiments vranyj1 parents: 1276 diff changeset	454
6093c1f40b70 Improvements for interop experiments vranyj1 parents: 1276 diff changeset	455	"Created: / 16-12-2011 / 20:03:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6093c1f40b70 Improvements for interop experiments vranyj1 parents: 1276 diff changeset	456	! !
1209 953b9d7c328a vranyj1 parents: 1207 diff changeset	457	!WrappedMethod methodsFor:'queries'!
953b9d7c328a vranyj1 parents: 1207 diff changeset	458
953b9d7c328a vranyj1 parents: 1207 diff changeset	459	isAbstract
953b9d7c328a vranyj1 parents: 1207 diff changeset	460
953b9d7c328a vranyj1 parents: 1207 diff changeset	461	^self originalMethod isAbstract.
953b9d7c328a vranyj1 parents: 1207 diff changeset	462
953b9d7c328a vranyj1 parents: 1207 diff changeset	463	"Created: / 04-12-2011 / 11:24:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
953b9d7c328a vranyj1 parents: 1207 diff changeset	464	! !
762 d995915ebc0b Merged with /branches/jk vranyj1 parents: 758 diff changeset	465	!ZipArchive methodsFor:'reading - java support'!
d995915ebc0b Merged with /branches/jk vranyj1 parents: 758 diff changeset	466
d995915ebc0b Merged with /branches/jk vranyj1 parents: 758 diff changeset	467	nextBytes: bytesToRead of: zmember startingAt: pos into: b startingAt: off
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	468
762 d995915ebc0b Merged with /branches/jk vranyj1 parents: 758 diff changeset	469	file position0Based: zmember fileStart + startOfArchive + pos.
d995915ebc0b Merged with /branches/jk vranyj1 parents: 758 diff changeset	470	^ file nextBytes: bytesToRead into: b startingAt: off.
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	471
762 d995915ebc0b Merged with /branches/jk vranyj1 parents: 758 diff changeset	472	"Created: / 01-05-2011 / 16:21:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	473	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	474	!Boolean class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	475
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	476	isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	477
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	478	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	479
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	480	"Created: / 25-02-2011 / 08:22:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	481	! !
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	482	!Boolean class methodsFor:'queries'!
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	483
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	484	javaArrayClass
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	485	^ BooleanArray
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	486
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	487	"Created: / 25-02-2011 / 08:27:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	488	! !
916 9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:) vranyj1 parents: 915 diff changeset	489	!Boolean class methodsFor:'autoboxing support'!
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:) vranyj1 parents: 915 diff changeset	490
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	491	javaBox: anObject
916 9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:) vranyj1 parents: 915 diff changeset	492	\| wrapper \|
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:) vranyj1 parents: 915 diff changeset	493
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	494	wrapper := (JavaVM classForName: 'java.lang.Boolean') new.
916 9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:) vranyj1 parents: 915 diff changeset	495	wrapper perform: #'<init>(Z)V' with: anObject.
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	496	^ wrapper
916 9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:) vranyj1 parents: 915 diff changeset	497
1204 6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	498	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
916 9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:) vranyj1 parents: 915 diff changeset	499	! !
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	500	!Boolean class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	501
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	502	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	503
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	504	^'boolean'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	505
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	506	"Modified: / 25-02-2011 / 18:58:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	507	! !
1204 6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	508	!Boolean class methodsFor:'autoboxing support'!
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	509
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	510	javaUnbox: object onError: errorBlock
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	511
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	512	\| value \|
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	513
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	514	(object class name = 'java/lang/Boolean') ifFalse:[
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	515	errorBlock value.
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	516	].
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	517	value := object instVarNamed: #value.
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	518	(value ~~ 0 and:[value ~~ 1]) ifTrue:[
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	519	errorBlock value.
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	520	].
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	521	^value
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	522
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	523	"Created: / 22-11-2011 / 11:52:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	524	! !
1263 451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	525	!Boolean class methodsFor:'autoboxing support'!
451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	526
451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	527	javaUnwrap: zeroOrOne
451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	528
451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	529	^zeroOrOne == 1
451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	530
451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	531	"Created: / 10-12-2011 / 20:00:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
451695d79afa Few fixes vranyj1 parents: 1253 diff changeset	532	! !
826 db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	533	!BooleanArray class methodsFor:'testing'!
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	534
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	535	isInterface
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	536
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	537	^false
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	538	! !
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	539	!BooleanArray class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	540
912 e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	541	isJavaArrayClass
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	542
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	543	^true
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	544
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	545	"Created: / 20-12-2010 / 22:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	546	! !
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	547	!BooleanArray class methodsFor:'queries'!
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	548
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	549	isJavaReferenceType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	550
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	551	"Java arrays are reference types"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	552	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	553
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	554	"Created: / 20-12-2010 / 22:30:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	555	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	556	!BooleanArray class methodsFor:'accessing-java'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	557
1226 bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	558	javaArrayClass
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	559	^ JavaArray javaArrayClassFor: self
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	560
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	561	"Created: / 06-12-2011 / 17:29:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	562	! !
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	563	!BooleanArray class methodsFor:'accessing-java'!
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	564
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	565	javaComponentClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	566
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	567	^Boolean
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	568
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	569	"Created: / 20-12-2010 / 22:13:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	570	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	571	!BooleanArray class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	572
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	573	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	574
960 1c7fd32d1f26 Few fixes vranyj1 parents: 927 diff changeset	575	^'[Z'.
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	576
960 1c7fd32d1f26 Few fixes vranyj1 parents: 927 diff changeset	577	"Modified: / 31-08-2011 / 23:57:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	578	! !
826 db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	579	!ByteArray class methodsFor:'testing'!
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	580
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	581	isInterface
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	582
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	583	^false
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	584	! !
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	585	!ByteArray class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	586
866 10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	587	isJavaArrayClass
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	588
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	589	^true
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	590
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	591	"Created: / 05-02-2011 / 22:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	592	! !
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	593	!ByteArray class methodsFor:'queries'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	594
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	595	isJavaReferenceType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	596
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	597	"Java arrays are reference types"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	598	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	599
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	600	"Created: / 20-12-2010 / 22:30:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	601	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	602	!ByteArray class methodsFor:'accessing-java'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	603
866 10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	604	javaArrayClass
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	605
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	606	^JavaArray javaArrayClassFor: self
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	607
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	608	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	609	! !
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	610	!ByteArray class methodsFor:'accessing-java'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	611
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	612	javaComponentClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	613
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	614	^JavaByte
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	615
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	616	"Created: / 20-12-2010 / 22:05:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	617	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	618	!ByteArray class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	619
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	620	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	621
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	622	^'[B'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	623
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	624	"Modified: / 25-02-2011 / 19:02:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	625	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	626	!Character class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	627
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	628	isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	629
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	630	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	631
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	632	"Created: / 20-12-2010 / 22:18:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	633	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	634	!Character class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	635
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	636	javaArrayClass
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	637	^ String
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	638
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	639	"Created: / 11-02-2011 / 10:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	640	! !
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	641	!Character class methodsFor:'autoboxing support'!
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	642
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	643	javaBox: anObject
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	644	\| wrapper \|
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	645
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	646	wrapper := (JavaVM classForName: 'java.lang.Character') new.
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	647	wrapper perform: #'<init>(C)V' with: anObject codePoint.
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	648	^ wrapper
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	649
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	650	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	651	! !
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	652	!Character class methodsFor:'accessing'!
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	653
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	654	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	655
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	656	^'char'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	657
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	658	"Modified: / 25-02-2011 / 18:58:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	659	! !
1204 6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	660	!Character class methodsFor:'autoboxing support'!
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	661
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	662	javaUnbox: object onError: errorBlock
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	663
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	664	\| value \|
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	665
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	666	(object class name = 'java/lang/Character') ifFalse:[
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	667	errorBlock value.
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	668	].
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	669	value := object instVarNamed: #value.
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	670	(value between: 0 and: 255) ifFalse:[
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	671	errorBlock value.
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	672	].
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	673	^value
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	674
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	675	"Created: / 22-11-2011 / 11:52:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	676	! !
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	677	!CharacterArray class methodsFor:'encoding & decoding'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	678
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	679	decodeFromJavaUTF8: bytes
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	680	"Decodes a string from modified UTF8 encoding
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	681	as used in Java .class files. see
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	682	'The class file format specification', section 4.5.7"
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	683
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	684	\| string i s b codePoint realLength \|
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	685
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	686	string := String new: bytes size.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	687	realLength := bytes size.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	688	s := bytes readStream.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	689	i := 1.
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	690	[ s atEnd ] whileFalse:
1253 0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	691	[ b := s next.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	692	(b & 2r10000000) == 0
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	693	ifTrue: [ codePoint := b ]
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	694	ifFalse:
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	695	[ self assert: (b & 2r01000000) = 2r01000000.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	696	(b & 2r00100000) = 0
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	697	ifTrue:
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	698	[ "two byte utf char"
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	699	realLength := realLength - 1.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	700	self assert: s size > 0.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	701	self assert: (b & 2r01000000) = 2r01000000.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	702	string bitsPerCharacter < 16
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	703	ifTrue: [ string := Unicode16String fromString: string ].
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	704	codePoint := (b & 2r00011111) << 6.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	705	b := s next.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	706	self assert: (b & 2r11000000) = 2r10000000.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	707	codePoint := codePoint + (b & 2r00111111). ]
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	708	ifFalse:
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	709	[ "at lease 3 byte utf char"
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	710	realLength := realLength - 2.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	711	string bitsPerCharacter < 16"was: 32"
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	712	ifTrue: [ string := Unicode16String"was: Unicode32String" fromString: string ].
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	713	self assert: s size > 1.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	714	(b & 2r00010000) = 0
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	715	ifTrue:
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	716	[ \| utf32Possible utf32Value \|
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	717
1253 0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	718	"3 or 6 byte utf char"
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	719	self assert: s size > 1.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	720	s size < 5
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	721	ifTrue: [ utf32Possible := false ]
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	722	ifFalse: [ utf32Possible := true ].
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	723	b ~= 2r11101101 ifTrue: [ utf32Possible := false ].
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	724	codePoint := (b & 2r00001111) << 12.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	725	b := s next.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	726	self assert: (b & 2r11000000) = 2r10000000.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	727	((b & 2r11110000) = 2r10100000 and: [ utf32Possible ])
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	728	ifTrue: [ utf32Value := 2r00010000 + ((b & 2r00001111) << 16) ]
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	729	ifFalse: [ utf32Possible := false ].
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	730	codePoint := codePoint + ((b & 2r00111111) << 6).
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	731	b := s next.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	732	self assert: (b & 2r11000000) = 2r10000000.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	733	utf32Possible
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	734	ifTrue: [ utf32Value := utf32Value + ((b & 2r00111111) << 10) ].
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	735	codePoint := codePoint + (b & 2r00111111).
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	736	utf32Possible
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	737	ifTrue:
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	738	[ \| tmpB \|
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	739
1253 0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	740	string bitsPerCharacter < 32
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	741	ifTrue: [ string := Unicode32String fromString: string ].
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	742	tmpB := s copy.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	743	b := tmpB next.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	744	b = 2r11101101
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	745	ifTrue:
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	746	[ b := tmpB next.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	747	(b & 2r11110000) = 2r10110000
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	748	ifTrue:
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	749	[ utf32Value := utf32Value + ((b & 2r00001111) << 6).
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	750	b := tmpB next.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	751	self assert: (b & 2r11000000) = 2r10000000.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	752	utf32Value := utf32Value + (b & 2r00111111).
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	753	codePoint := utf32Value.
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	754	realLength := realLength - 3. s position: tmpB position.] ] ] ]
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	755	ifFalse:
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	756	[ "should not happen, ask mh"
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	757	self halt. ] ] ].
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	758	string at: i put: (Character codePoint: codePoint).
0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	759	i := i + 1. ].
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	760	^ string subString: 1 to: realLength.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	761
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	762	"
1253 0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	763	String decodeFromJavaUTF8: 'Hello world' asByteArray"
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	764
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	765	"Created: / 22-12-2010 / 23:45:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	766	"Modified: / 09-02-2011 / 01:12:25 / Marcel Hlopko <hlopik@gmail.com>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	767	"Modified: / 13-03-2011 / 15:52:36 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
1253 0ce45e884e08 Few more fixes in native methods vranyj1 parents: 1226 diff changeset	768	"Modified: / 09-12-2011 / 19:49:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	769	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	770	!CharacterArray class methodsFor:'instance creation'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	771
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	772	fromJavaUTF8Bytes:aByteCollection
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	773	"return a new string which represents the characters as decoded
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	774	from the modified utf8 encoded bytes as specified in
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	775	The class file format specification, section 4.5.7"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	776
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	777	^ self decodeFromJavaUTF8:aByteCollection.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	778
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	779	"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	780	CharacterArray fromUTF8Bytes:#[ 16r41 16r42 ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	781	CharacterArray fromUTF8Bytes:#[ 16rC1 16r02 ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	782	CharacterArray fromUTF8Bytes:#[ 16rE0 16r81 16r02 ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	783	CharacterArray fromUTF8Bytes:#[ 16rEF 16rBF 16rBF ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	784
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	785	rfc2279 examples:
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	786	CharacterArray fromUTF8Bytes:#[ 16r41 16rE2 16r89 16rA2 16rCE 16r91 16r2E ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	787	CharacterArray fromUTF8Bytes:#[ 16rED 16r95 16r9C 16rEA 16rB5 16rAD 16rEC 16r96 16rB4 ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	788	CharacterArray fromUTF8Bytes:#[ 16rE6 16r97 16rA5 16rE6 16r9C 16rAC 16rE8 16rAA 16r9E ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	789
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	790	invalid:
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	791	CharacterArray fromUTF8Bytes:#[ 16rC0 16r80 ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	792	CharacterArray fromUTF8Bytes:#[ 16rE0 16r80 16r80 ]
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	793	"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	794
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	795	"Created: / 23-12-2010 / 09:01:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	796	! !
865 82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	797	!CharacterArray class methodsFor:'queries'!
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	798
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	799	isJavaArrayClass
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	800
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	801	^true
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	802
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	803	"Created: / 05-02-2011 / 22:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	804	! !
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	805	!CharacterArray class methodsFor:'accessing-java'!
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	806
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	807	javaArrayClass
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	808
901 64a889b68bef - JavaVM: more natives vranyj1 parents: 900 diff changeset	809	^JavaArray javaArrayClassFor: Unicode16String
865 82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	810
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	811	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
901 64a889b68bef - JavaVM: more natives vranyj1 parents: 900 diff changeset	812	"Modified: / 10-08-2011 / 13:18:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
865 82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	813	! !
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	814	!CharacterArray class methodsFor:'accessing-java'!
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	815
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	816	javaComponentClass
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	817
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	818	^Character
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	819
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	820	"Created: / 20-12-2010 / 22:05:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
82615f7deade Few fixes... vranyj1 parents: 851 diff changeset	821	! !
826 db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	822	!DoubleArray class methodsFor:'testing'!
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	823
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	824	isInterface
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	825
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	826	^false
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	827	! !
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	828	!DoubleArray class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	829
912 e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	830	isJavaArrayClass
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	831
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	832	^true
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	833
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	834	"Created: / 20-12-2010 / 22:47:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	835	! !
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	836	!DoubleArray class methodsFor:'queries'!
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	837
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	838	isJavaReferenceType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	839
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	840	"Java arrays are reference types"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	841	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	842
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	843	"Created: / 20-12-2010 / 22:30:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	844	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	845	!DoubleArray class methodsFor:'accessing-java'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	846
1226 bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	847	javaArrayClass
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	848	^ JavaArray javaArrayClassFor: self.
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	849
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	850	"Created: / 06-12-2011 / 17:28:26 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	851	! !
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	852	!DoubleArray class methodsFor:'accessing-java'!
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	853
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	854	javaComponentClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	855
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	856	^Float
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	857
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	858	"Created: / 20-12-2010 / 22:06:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	859	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	860	!DoubleArray class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	861
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	862	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	863
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	864	^'[D'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	865
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	866	"Modified: / 25-02-2011 / 19:03:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	867	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	868	!Float class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	869
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	870	isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	871
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	872	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	873
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	874	"Created: / 06-02-2011 / 17:21:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	875	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	876	!Float class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	877
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	878	javaArrayClass
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	879	^ DoubleArray
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	880
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	881	"Created: / 11-02-2011 / 10:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	882	! !
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	883	!Float class methodsFor:'autoboxing support'!
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	884
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	885	javaBox: anObject
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	886	\| wrapper \|
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	887
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	888	wrapper := (JavaVM classForName: 'java.lang.Double') new.
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	889	wrapper perform: #'<init>(D)V' with: anObject.
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	890	^ wrapper
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	891
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	892	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	893	! !
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	894	!Float class methodsFor:'accessing'!
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	895
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	896	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	897
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	898	^'double'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	899
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	900	"Modified: / 25-02-2011 / 18:59:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	901	! !
826 db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	902	!FloatArray class methodsFor:'testing'!
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	903
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	904	isInterface
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	905
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	906	^false
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	907	! !
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	908	!FloatArray class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	909
912 e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	910	isJavaArrayClass
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	911
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	912	^true
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	913
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	914	"Created: / 20-12-2010 / 22:47:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	915	! !
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	916	!FloatArray class methodsFor:'queries'!
e651488f5741 Many fixes in reflection, expecially for generic types support vranyj1 parents: 905 diff changeset	917
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	918	isJavaReferenceType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	919
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	920	"Java arrays are reference types"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	921	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	922
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	923	"Created: / 20-12-2010 / 22:30:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	924	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	925	!FloatArray class methodsFor:'accessing-java'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	926
1226 bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	927	javaArrayClass
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	928	^ JavaArray javaArrayClassFor: self.
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	929
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	930	"Created: / 06-12-2011 / 17:29:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	931	! !
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	932	!FloatArray class methodsFor:'accessing-java'!
bd1d5c4ca4a8 fixes to make resolving tests pass hlopkmar parents: 1225 diff changeset	933
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	934	javaComponentClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	935
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	936	^ShortFloat
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	937
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	938	"Created: / 20-12-2010 / 22:06:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	939	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	940	!FloatArray class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	941
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	942	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	943
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	944	^'[F'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	945
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	946	"Modified: / 25-02-2011 / 19:03:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	947	! !
1038 bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	948	!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	949
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	950	javaClassBrowserIcon
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	951	"This resource specification was automatically generated
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	952	by the ImageEditor of ST/X."
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	953
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	954	"Do not manually edit this!! If it is corrupted,
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	955	the ImageEditor may not be able to read the specification."
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	956
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	957	"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	958	self javaClassBrowserIcon inspect
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	959	ImageEditor openOnClass:self andSelector:#javaClassBrowserIcon
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	960	Icon flushCachedIcons
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	961	"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	962
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	963	<resource: #image>
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	964
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	965	^Icon
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	966	constantNamed:'GenericToolbarIconLibrary class javaClassBrowserIcon'
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	967	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1038 bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	968	VU%YVU%YVU%YVU%YVU%YVU%YVU%YVU%YVU%YVU%YVU%YVU%YVU\OF@4YC5]YVU%YVU%YVP$MO4YFQ#<ABU%YVU%YVP$[R5YTUUQRQ0(IVU%YVU\MRUAXVE!!X
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	969	VD=H@U]YVU$GPEEXVEMMS%!!LR$@PVU%YASYBVDMAPTEEQDP>AU%YVPDVI5 (EALSEA\\H@1YVU$EGQ)XJQ8"H!!H.C"PEVU%YDBD3M5 /I!!=XOR4*@E%YVU\J
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	970	LC(4VE!!XMS02B%]YVU%YDP,#NC$;NS 1@!!EYVU%YVU$QERT+KB,%EQEYVU%YVU%YVU\F@0PCBE]YVU%YVU%YVU%YVU%YVU%YVU%YVP@@@@@@@@@@@@@@@@@@
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	971	@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[108 168 129 51 130 77 54 131 79 64 137 88 66 139 90 70 143 94 84 152 106 90 155 112 92 156 113 130 179 146 36 118 62 46 124 70 51 129 75 57 134 80 88 156 109 93 158 113 99 162 119 129 178 144 162 201 174 45 124 68 46 125 69 47 125 70 48 126 70 51 129 73 75 146 96 74 144 94 119 174 135 50 128 71 54 132 74 59 135 79 63 137 82 142 189 154 62 136 79 62 136 80 62 135 80 70 142 87 71 143 88 82 150 98 107 167 122 143 190 154 195 221 201 226 239 229 82 150 96 86 154 100 86 153 100 93 156 106 171 207 179 188 216 194 84 151 97 87 153 100 88 153 100 94 156 106 218 234 221 230 241 232 82 150 94 241 247 242 96 160 105 124 178 132 121 174 129 133 184 140 140 188 147 240 247 241 89 153 97 104 164 111 97 160 103 96 158 102 158 198 161 220 234 221 103 162 106 109 166 112 119 174 120 128 179 128 123 177 122 121 174 119 135 184 133 129 179 125 225 239 224 145 190 140 179 210 176 188 217 185 190 218 187 159 199 154 160 199 155 187 216 183 194 220 191 198 222 195 176 208 171 201 208 199 255 255 255 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@_0C? _?C?>O?8??#?>O?8??#?>G?0O>@_0@@@b') ; yourself); yourself]
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	972	! !
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	973	!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	974
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	975	javaExceptionBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	976	"This resource specification was automatically generated
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	977	by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	978
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	979	"Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	980	the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	981
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	982	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	983	self javaExceptionBrowserIcon inspect
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	984	ImageEditor openOnClass:self andSelector:#javaExceptionBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	985	Icon flushCachedIcons
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	986	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	987
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	988	<resource: #image>
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	989
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	990	^Icon
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	991	constantNamed:'GenericToolbarIconLibrary class javaExceptionBrowserIcon'
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	992	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1038 bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	993	D!!HRD!!HC@@DRD!!HRD!!HRD!!HRD!!HR@0@AD!!HRD!!HRD!!HRD!!HRD L@@QHRA $IA!!HRD!!HRD!!HC@@DRD $EAP$RD!!HRD!!HR@0@AD!!HIAPTID!!HRD!!HRD L@@QHR
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	994	B ,KB!!HRD!!HR@0HB@@HRD PD@ RD!!HRD LA@@HRD!!HLDQDLD!!HRD!!HRD!!HRD!!HRA0<OA1HRD!!HRD!!HRD!!HRD!!HNC!!HRD!!HRD!!HRD!!HRD!!HRD!!HRD!!HRD!!HR
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	995	D!!HRD!!HRA $IA!!HRD!!HRD!!HRD!!HRD $MA@$RD!!HRD!!HRD!!HRD!!HNCPPND!!HRD!!HRD!!HRD!!HRA 8NA!!HRD!!HRD!!HRD!!HRD!!HRD!!HRD @@@@@@@@@@@@@@@@@@
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	996	@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[40 98 150 81 128 170 110 150 185 194 211 226 255 223 95 255 234 145 228 221 192 218 204 156 184 149 37 190 156 40 188 153 39 255 226 134 180 143 35 255 223 127 170 130 30 207 167 62 254 215 119 254 207 108 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A0@G@@\<A30GO@\<G30^O@@<@A @@@@<@C0@O@@<@@@b') ; yourself); yourself]
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	997	! !
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	998	!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	999
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1000	javaPrivateClassBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1001	"This resource specification was automatically generated
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1002	by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1003
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1004	"Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1005	the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1006
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1007	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1008	self javaPrivateClassBrowserIcon inspect
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1009	ImageEditor openOnClass:self andSelector:#javaPrivateClassBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1010	Icon flushCachedIcons
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1011	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1012
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1013	<resource: #image>
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1014
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1015	^Icon
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1016	constantNamed:'GenericToolbarIconLibrary class javaPrivateClassBrowserIcon'
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1017	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1038 bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1018	XVE!!XQHWHAX!!E1I!!XVE!!XVE!!XQ@VPD]GQ4@JDFE!!XVE!!XQ@$SE]UU%USRALPXVE!!XQHVR%E XFA XEAIB!!I!!XVDNPUI XEQNS6AMR4DXXVE!!CC%CXDQBP$IF
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1019	QTT?CFE!!XP(^K6@1GA,[GA<%JQU!!XVDLI"I L"\+J1$4F" QXVE!!FB(7N&@5K%)ZV%)ZV%)!!XRLSM#48XFAYWE1\WE1YXVE!!C1P,N30>V51^W%9\V6E!!XVDO
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1020	GR43L@HGA TFA0I!!XVE!!XQHMB0$CW54@@E<AXVE!!XVE!!XVE!!AE!!XVE!!XAFE!!XVE!!XVE!!XP HB@ HB@!!!!XVE!!XVE!!XVE!!XVE!!XVE!!XP@@@@@@@@@@@@@@@@@@
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1021	@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[231 96 97 200 41 48 200 48 52 200 41 49 200 29 44 242 77 92 241 77 92 245 118 128 200 25 42 152 195 167 51 130 77 64 137 88 70 143 94 84 152 106 90 155 112 126 179 144 129 181 146 155 198 169 205 226 212 36 118 62 46 124 70 51 129 75 57 134 80 93 158 113 99 162 119 162 201 174 166 204 178 45 124 68 46 125 69 47 125 70 48 126 70 51 129 73 75 146 96 74 144 94 119 174 135 216 233 221 50 128 71 54 132 74 59 135 79 63 137 82 155 198 166 62 136 79 62 136 80 62 135 80 70 142 87 82 150 98 107 167 122 143 190 154 164 203 173 195 221 201 226 239 229 86 154 100 171 207 179 188 216 194 84 151 97 94 156 106 218 234 221 82 150 94 241 247 242 96 160 105 124 178 132 121 174 129 167 204 172 89 153 97 104 164 111 97 160 103 96 158 102 158 198 161 220 234 221 103 162 106 109 166 112 119 174 120 128 179 128 123 177 122 121 174 119 135 184 133 129 179 125 225 239 224 145 190 140 179 210 176 188 217 185 190 218 187 159 199 154 160 199 155 187 216 183 194 220 191 198 222 195 176 208 171 231 147 139 201 67 60 201 71 62 201 62 58 246 146 142 231 96 96 245 124 124 237 131 131 255 255 255 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C>@_<C?8_?1??G?<_?1??G?>_?8??!!?>C?8@? C>@@@b') ; yourself); yourself]
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1022	! !
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1023	!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1024
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1025	javaPrivateEnumBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1026	"This resource specification was automatically generated
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1027	by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1028
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1029	"Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1030	the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1031
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1032	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1033	self javaPrivateEnumBrowserIcon inspect
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1034	ImageEditor openOnClass:self andSelector:#javaPrivateEnumBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1035	Icon flushCachedIcons
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1036	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1037
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1038	<resource: #image>
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1039
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1040	^Icon
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1041	constantNamed:'GenericToolbarIconLibrary class javaPrivateEnumBrowserIcon'
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1042	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1038 bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1043	QDQDQC\#F1PZH3]DQDQDQDQDQB0TI"@ HBXRKDQDQDQDQB0PJ#D1LSD1I 0,QDQDQC\TJR%BP$IBP#H D#]DQDP!!IBP$P$H6K2<''IBP%QDQDFQ0"H$IBKRH"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1044	H"T FTQDQAHOCP5BP$IBP" SE!!EDQDPYEQTUP$H0NC JL3L5QDQDIQX\GDIBB30<OC0<OC1DQC\LG!!9BP$L<O#8>O#8;QDQDJ04XK"89OS9@PD@>OTQDQDP+
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1045	C!!4 BPHGA TFA0IDQDQDQC\_E3PCPS<@@DDAQDQDQDQDQDQDAC(:N#(:BDQDQDQDQDQDQ@ HB@ HB@!!DQDQDQDQDQDQDQDQDQDQDQ@@@@@@@@@@@@@@@@@@@
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1046	@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[231 96 97 200 41 48 200 48 52 200 41 49 200 29 44 242 77 92 241 77 92 245 118 128 200 25 42 217 201 182 219 204 186 230 219 206 140 89 32 142 92 36 142 93 37 143 93 38 144 94 39 144 95 40 145 96 41 146 97 43 147 99 45 147 100 47 148 101 48 149 103 50 152 107 56 153 108 57 154 109 60 155 111 62 158 115 67 158 116 68 159 117 69 160 118 71 161 119 73 163 123 77 165 125 81 165 126 81 166 127 83 169 131 88 170 133 91 176 141 102 178 144 106 180 147 110 185 154 119 186 156 122 187 157 124 190 161 129 194 167 137 199 174 146 204 182 157 206 184 160 209 188 165 212 193 172 213 195 174 214 196 176 216 199 180 225 211 196 226 213 199 231 220 208 231 147 139 201 67 60 201 71 62 201 62 58 246 146 142 231 96 96 245 124 124 237 131 131 255 254 254 255 255 255 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C>@_<C?8_?1??G?<_?1??G?>_?8??!!?>C?8@? C>@@@b') ; yourself); yourself]
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1047	! !
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1048	!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1049
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1050	javaPrivateInterfaceBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1051	"This resource specification was automatically generated
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1052	by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1053
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1054	"Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1055	the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1056
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1057	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1058	self javaPrivateInterfaceBrowserIcon inspect
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1059	ImageEditor openOnClass:self andSelector:#javaPrivateInterfaceBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1060	Icon flushCachedIcons
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1061	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1062
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1063	<resource: #image>
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1064
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1065	^Icon
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1066	constantNamed:'GenericToolbarIconLibrary class javaPrivateInterfaceBrowserIcon'
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1067	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1038 bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1068	TUEQTTPVCP,NE$QQTUEQTUEQTS<KD!!TUEQHKO5EQTUEQTS<3OQ-GQ4\[OSL?TUEQTRD,NQ1PTEAPB!!0;KBEQTUDVD3 8FEAPBS 8NAPYTUEQC4XLC@1PTDLL
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1069	CCT5C5EQTR<(J"\''TE@ I2\*IB9QTUDOKR,&I%APPT@^GQ5BTUEQFSH0LTUPTD)JR$)JR$)QTRH#M#)PTEAJSD1LSD1ITUEQF"TQOC0_R41NS$9LR5EQTUDZ
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1070	JS\PO HGA TFA0IQTUEQTTPWMA<CS44@@D<ATUEQTUEQTUEQAD!!HRD!!HBEEQTUEQTUEQTP HB@ HB@!!QTUEQTUEQTUEQTUEQTUEQTP@@@@@@@@@@@@@@@@@@
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1071	@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[231 96 97 200 41 48 200 48 52 200 41 49 200 29 44 242 77 92 241 77 92 245 118 128 200 25 42 197 188 224 215 209 233 112 94 176 111 93 174 114 96 177 113 95 176 115 97 177 117 100 177 120 102 180 125 108 184 125 108 183 130 114 185 143 128 194 151 136 198 149 135 197 158 145 203 156 143 201 159 146 203 165 153 207 168 156 208 168 156 207 167 155 205 171 160 209 174 164 209 220 215 236 226 222 240 85 66 159 90 71 159 93 74 164 90 72 159 89 71 158 92 73 160 94 75 164 93 74 161 93 75 161 97 79 167 96 79 166 97 79 166 98 80 167 98 80 165 96 79 162 101 83 168 101 84 169 108 91 173 107 91 172 111 94 174 117 100 178 131 116 188 137 122 191 134 120 187 139 125 191 138 124 190 142 128 193 154 142 199 161 149 204 167 156 207 174 165 210 181 172 216 185 176 218 204 198 228 94 78 161 105 89 172 174 165 212 231 147 139 201 67 60 201 71 62 201 62 58 246 146 142 231 96 96 245 124 124 237 131 131 255 255 255 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C>@_<C?8_?1??G?<_?1??G?>_?8??!!?>C?8@? C>@@@b') ; yourself); yourself]
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1072	! !
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1073	!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1074
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1075	javaProtectedClassBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1076	"This resource specification was automatically generated
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1077	by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1078
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1079	"Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1080	the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1081
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1082	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1083	self javaProtectedClassBrowserIcon inspect
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1084	ImageEditor openOnClass:self andSelector:#javaProtectedClassBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1085	Icon flushCachedIcons
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1086	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1087
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1088	<resource: #image>
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1089
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1090	^Icon
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1091	constantNamed:'GenericToolbarIconLibrary class javaProtectedClassBrowserIcon'
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1092	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1038 bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1093	X6M#X0(PE 8WD@)#X6M#X6M#X0\NM34=OS\@A6M#X6M#X0\\P$5KSD-IO ,GX6M#X0(NPD]"X&I"X$X?@@)#X6LEND!!"X$)DQVICPS QX6M#@2<:X#,9NS$<
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1094	LSD6@6M#X0@UIVH(D1HRD1 _I 5#X6LCGQ)"JQ8!!HP<(T%HHX6M#DR@-LFH+IA%"T$9NT&M#X1,KKCP.X&I"T5APTD=TX6M#A 0"L#L5VUUZV%)ZUUE#X6LF
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1095	EBL*I5!!_XVE!!XU=WX6M#X0(D@PHIW&A XFAVX6M#X6M#X6M#X6M\XFA]X6M#X6M#X6M#X6M#X5-[X6M#X6M#X6M#X6M#X6M#X6M#X0@@@@@@@@@@@@@@@@@@
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1096	@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[51 130 77 64 137 88 66 139 90 70 143 94 84 152 106 90 155 112 126 179 144 129 181 146 155 198 169 180 212 191 205 226 212 36 118 62 46 124 70 51 129 75 57 134 80 79 149 101 93 158 113 99 162 119 45 124 68 46 125 69 47 125 70 48 126 70 75 146 96 74 144 94 83 151 103 109 168 126 119 174 135 216 233 221 50 128 71 59 135 79 63 137 82 144 191 156 62 136 80 62 135 80 70 142 87 82 150 98 107 167 122 143 190 154 150 194 161 164 203 173 195 221 201 226 239 229 86 154 100 188 216 194 84 151 97 94 156 106 218 234 221 82 150 94 241 247 242 84 151 94 96 160 105 124 178 132 121 174 129 167 204 172 89 153 97 104 164 111 97 160 103 96 158 102 158 198 161 220 234 221 109 166 112 119 174 120 128 179 128 123 177 122 121 174 119 135 184 133 129 179 125 225 239 224 145 190 140 179 210 176 188 217 185 190 218 187 159 199 154 160 199 155 187 216 183 194 220 191 198 222 195 176 208 171 255 242 176 255 233 145 255 234 145 183 147 37 190 156 40 187 152 39 187 153 39 255 230 152 174 135 31 179 141 34 178 141 34 184 147 36 255 222 125 167 126 28 170 129 29 170 130 30 174 135 32 254 219 140 254 222 150 254 207 108 255 255 255 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C>@_<C?8_?1??G?<_?1??G?<_?8??1??C?8@O@@X@@@b') ; yourself); yourself]
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1097	! !
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1098	!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1099
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1100	javaProtectedEnumBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1101	"This resource specification was automatically generated
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1102	by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1103
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1104	"Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1105	the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1106
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1107	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1108	self javaProtectedEnumBrowserIcon inspect
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1109	ImageEditor openOnClass:self andSelector:#javaProtectedEnumBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1110	Icon flushCachedIcons
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1111	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1112
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1113	<resource: #image>
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1114
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1115	^Icon
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1116	constantNamed:'GenericToolbarIconLibrary class javaProtectedEnumBrowserIcon'
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1117	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1038 bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1118	Q4]GQ4P-IQ4$KTQGQ4]GQ4]GQ3\]LB(J#@\M4]GQ4]GQ3\ZMS4=OS4=LAX7Q4]GQ4P]L3MFQ$YFQ#8GDQGQ4\+K"8.Q$YCN3,1K"8/Q4]GH2X,KDYFNB0,
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1119	KB<*H4]GQ10YE1]FQ$YFQ#H?PQ-GQ4\#G!!8^Q$X<MCPUA@QBQ4]GK1<&I$YFNRYCA@@@AD]GQ4PVJB!!FQ$YFAPHB@ DFQ4]GM!!\"N#)EB0\LC@0LA0MGQ4\6
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1120	FB\*E@(QD1LSD1DIQ4]GQ4P)HBE@DAHRD!!HHQ4]GQ4]GQ4]GQ4\ND!!HOQ4]GQ4]GQ4]GQ4]GQ04MQ4]GQ4]GQ4]GQ4]GQ4]GQ4]GQ0@@@@@@@@@@@@@@@@@@
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1121	@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[255 242 176 255 233 145 255 234 145 183 147 37 190 156 40 187 152 39 187 153 39 255 230 152 174 135 31 179 141 34 178 141 34 184 147 36 255 222 125 167 126 28 170 129 29 170 130 30 174 135 32 254 219 140 254 222 150 254 207 108 217 201 182 219 204 186 140 89 32 142 92 36 142 93 37 143 93 38 144 94 39 144 95 40 145 96 41 147 99 45 147 100 47 148 101 48 149 103 50 151 104 53 152 107 56 153 108 57 154 109 60 155 111 62 158 115 67 158 116 68 159 117 69 160 118 71 161 119 73 163 123 77 165 125 81 165 126 81 166 127 83 169 131 88 170 133 91 176 141 102 178 144 106 180 147 110 182 150 114 185 154 119 186 156 122 187 157 124 190 161 129 192 164 133 194 167 137 199 174 146 204 182 157 206 184 160 209 188 165 211 192 170 213 194 173 212 193 172 214 196 176 216 199 180 225 211 196 231 220 208 255 254 254 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C>@_<C?8_?1??G?<_?1??G?<_?8??1??C?8@O@@X@@@b') ; yourself); yourself]
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1122	! !
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1123	!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1124
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1125	javaProtectedInterfaceBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1126	"This resource specification was automatically generated
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1127	by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1128
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1129	"Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1130	the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1131
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1132	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1133	self javaProtectedInterfaceBrowserIcon inspect
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1134	ImageEditor openOnClass:self andSelector:#javaProtectedInterfaceBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1135	Icon flushCachedIcons
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1136	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1137
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1138	<resource: #image>
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1139
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1140	^Icon
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1141	constantNamed:'GenericToolbarIconLibrary class javaProtectedInterfaceBrowserIcon'
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1142	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1038 bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1143	U%YVU#4MA@HECS5VU%YVU%YVU# BBP0LC@$BNEYVU%YVU# -M1I@PD@RM248U%YVU!!0&L1QUUUUU@QP5I!!1VU%XMB#H2C5UU@CH2L ,PU%YVA#<C@0MUUS0C
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1144	@2</A%YVU"$"IBD!!UUTYHRDUD2!!VU%XFI2T HEUUN"@VQTT;U%YVDB0*J39UUQ(9QTEAQUYVU!!4^LCQUUUUUQ$MCP4IGU%YVDQ<HM#XWSD!!MST5MRDQVU%XQ
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1145	H3DGF4-RUEQTUEIJU%YVU#4NK"\XTUMST5MIU%YVU%YVU%YVU%YOT5MPU%YVU%YVU%YVU%YVU$9NU%YVU%YVU%YVU%YVU%YVU%YVU @@@@@@@@@@@@@@@@@@
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1146	@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[197 188 224 215 209 233 112 94 176 111 93 174 114 96 177 113 95 176 115 97 177 117 100 177 120 102 180 125 108 184 125 108 183 130 114 185 143 128 194 151 136 198 149 135 197 158 145 203 156 143 201 159 146 203 165 153 207 167 155 207 168 156 208 168 156 207 167 155 205 171 160 209 178 167 213 174 164 209 177 167 212 183 173 216 220 215 236 226 222 240 85 66 159 93 74 164 90 72 159 89 71 158 92 73 160 94 75 164 93 74 161 93 75 161 97 79 167 96 79 166 97 79 166 98 80 167 98 80 165 96 79 162 101 83 168 101 84 169 108 91 173 107 91 172 111 94 174 117 100 178 131 116 188 137 122 191 134 120 187 139 125 191 138 124 190 142 128 193 161 149 204 169 159 207 174 165 210 181 172 216 185 176 218 204 198 228 94 78 161 105 89 172 174 165 212 255 242 176 255 233 145 255 234 145 183 147 37 190 156 40 187 152 39 187 153 39 255 230 152 174 135 31 179 141 34 178 141 34 184 147 36 255 222 125 167 126 28 170 129 29 170 130 30 174 135 32 254 219 140 254 222 150 254 207 108 255 255 255 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C>@_<C?8_?1??G?<_?1??G?<_?8??1??C?8@O@@X@@@b') ; yourself); yourself]
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1147	! !
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1148	!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1149
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1150	javaPublicClassBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1151	"This resource specification was automatically generated
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1152	by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1153
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1154	"Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1155	the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1156
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1157	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1158	self javaClassBrowserIcon inspect
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1159	ImageEditor openOnClass:self andSelector:#javaClassBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1160	Icon flushCachedIcons
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1161	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1162
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1163	<resource: #image>
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1164
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1165	^Icon
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1166	constantNamed:'GenericToolbarIconLibrary class javaClassBrowserIcon'
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1167	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1038 bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1168	VU%YVU%YVU%YVU%YVU%YVU%YVU%YVU%YVU%YVU%YVU%YVU%YVU\OF@4YC5]YVU%YVU%YVP$MO4YFQ#<ABU%YVU%YVP$[R5YTUUQRQ0(IVU%YVU\MRUAXVE!!X
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1169	VD=H@U]YVU$GPEEXVEMMS%!!LR$@PVU%YASYBVDMAPTEEQDP>AU%YVPDVI5 (EALSEA\\H@1YVU$EGQ)XJQ8"H!!H.C"PEVU%YDBD3M5 /I!!=XOR4*@E%YVU\J
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1170	LC(4VE!!XMS02B%]YVU%YDP,#NC$;NS 1@!!EYVU%YVU$QERT+KB,%EQEYVU%YVU%YVU\F@0PCBE]YVU%YVU%YVU%YVU%YVU%YVU%YVP@@@@@@@@@@@@@@@@@@
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1171	@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[108 168 129 51 130 77 54 131 79 64 137 88 66 139 90 70 143 94 84 152 106 90 155 112 92 156 113 130 179 146 36 118 62 46 124 70 51 129 75 57 134 80 88 156 109 93 158 113 99 162 119 129 178 144 162 201 174 45 124 68 46 125 69 47 125 70 48 126 70 51 129 73 75 146 96 74 144 94 119 174 135 50 128 71 54 132 74 59 135 79 63 137 82 142 189 154 62 136 79 62 136 80 62 135 80 70 142 87 71 143 88 82 150 98 107 167 122 143 190 154 195 221 201 226 239 229 82 150 96 86 154 100 86 153 100 93 156 106 171 207 179 188 216 194 84 151 97 87 153 100 88 153 100 94 156 106 218 234 221 230 241 232 82 150 94 241 247 242 96 160 105 124 178 132 121 174 129 133 184 140 140 188 147 240 247 241 89 153 97 104 164 111 97 160 103 96 158 102 158 198 161 220 234 221 103 162 106 109 166 112 119 174 120 128 179 128 123 177 122 121 174 119 135 184 133 129 179 125 225 239 224 145 190 140 179 210 176 188 217 185 190 218 187 159 199 154 160 199 155 187 216 183 194 220 191 198 222 195 176 208 171 201 208 199 255 255 255 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@_0C? _?C?>O?8??#?>O?8??#?>G?0O>@_0@@@b') ; yourself); yourself]
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1172
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1173	"Created: / 23-10-2011 / 14:41:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1174	! !
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1175	!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1176
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1177	javaPublicEnumBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1178	"This resource specification was automatically generated
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1179	by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1180
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1181	"Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1182	the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1183
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1184	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1185	self javaPublicEnumBrowserIcon inspect
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1186	ImageEditor openOnClass:self andSelector:#javaPublicEnumBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1187	Icon flushCachedIcons
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1188	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1189
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1190	<resource: #image>
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1191
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1192	^Icon
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1193	constantNamed:'GenericToolbarIconLibrary class javaPublicEnumBrowserIcon'
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1194	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1038 bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1195	LC@0LB8ZD@ OF"80LC@0LC@0LBTHGQXVE!!4FIS@0LC@0LBTDH2,+J2,+GP@%LC@0LB8HHRD/K2</K20VA"80LC@WF1,[K2<-JR$_F1,\LC@0C!!DYFR</I!!$Y
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1196	FQ0VC#@0L@XC@PD/K2</K2@GB T0LC@NBP$IK2<*H"H[BP$NLC@0G@(QDR</I1DQDQDQG#@0LB8@D1L/K2</K20V@B80LC@0I@DMJB (JB ]A2P0LC@0LC@$
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1197	@!!HVEQXR@"P0LC@0LC@0LB8TB00KFB80LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0LC@0L@@@@@@@@@@@@@@@@@@@
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1198	@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[140 89 32 142 92 36 142 93 37 143 93 38 144 94 39 144 95 40 145 96 41 146 97 43 147 99 45 147 100 47 148 101 48 149 103 50 151 104 53 152 107 56 153 108 57 154 109 60 155 111 62 158 115 67 158 116 68 159 117 69 160 118 71 161 119 72 161 119 73 163 123 77 164 124 79 165 125 81 165 126 81 166 127 83 169 131 88 170 133 91 175 139 100 176 141 102 178 144 106 180 147 110 182 150 114 185 154 119 186 156 122 187 157 124 190 161 129 192 164 133 194 167 137 199 174 146 204 182 157 206 184 160 209 188 165 216 199 180 225 211 196 255 254 254 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C>@_<C?8_?1??G?<_?1??G?<_?0?>A?0C>@@@@@@@@@b') ; yourself); yourself]
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1199	! !
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1200	!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1201
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1202	javaPublicInterfaceBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1203	"This resource specification was automatically generated
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1204	by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1205
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1206	"Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1207	the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1208
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1209	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1210	self javaPublicInterfaceBrowserIcon inspect
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1211	ImageEditor openOnClass:self andSelector:#javaPublicInterfaceBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1212	Icon flushCachedIcons
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1213	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1214
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1215	<resource: #image>
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1216
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1217	^Icon
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1218	constantNamed:'GenericToolbarIconLibrary class javaPublicInterfaceBrowserIcon'
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1219	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1038 bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1220	P4MCP38NAPLFC#9CP4MCP4MCP3,CB 4MCP(CN4MCP4MCP3,.N!!UAPTDUN"8;P4MCP1$%M!!YBP$IB@!!X8IQ%CP4LNB3T5DTIB@CT5MP0RP4MCA4@DA@QBP#4D
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1221	AC@0A4MCP2 H!!<_P$HWG1<"GB]CP4LGI"P^G$IBOA8_H"LGP4MCD"4*J3=BP!! ?J2,,EDMCP1([L3]BP$IB@S\2F1%CP4MCD14INS$9NS$1JQMCP4MCP4LS
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1222	HSPHB@ 4HQMCP4MCP4MCP38OK2X/DC9CP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP0@@@@@@@@@@@@@@@@@@
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1223	@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[197 188 224 197 189 222 215 209 233 112 94 176 111 93 174 114 96 177 113 95 176 115 97 177 117 100 177 120 102 180 125 108 184 125 108 183 130 114 185 143 128 194 151 136 198 149 135 197 152 138 199 158 145 203 156 143 201 159 146 203 162 150 204 165 153 207 168 156 208 174 164 209 177 167 212 220 215 236 226 222 240 85 66 159 90 71 159 93 74 164 90 72 159 89 71 158 92 73 160 94 75 164 93 74 161 92 74 160 93 75 161 97 79 167 96 79 166 97 79 166 98 80 167 100 82 168 98 80 165 96 79 162 100 82 167 101 83 168 101 84 169 108 91 173 107 91 172 108 92 172 113 96 177 111 94 174 117 100 178 131 116 188 137 122 191 134 120 187 139 125 191 138 124 190 142 128 193 161 149 204 174 165 210 185 176 218 204 198 228 94 78 161 105 89 172 174 165 212 255 255 255 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C>@_<C?8_?1??G?<_?1??G?<_?0?>A?0C>@@@@@@@@@b') ; yourself); yourself]
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1224	! !
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1225	!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1226
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1227	javaRuntimeExceptionBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1228	"This resource specification was automatically generated
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1229	by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1230
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1231	"Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1232	the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1233
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1234	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1235	self javaRuntimeExceptionBrowserIcon inspect
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1236	ImageEditor openOnClass:self andSelector:#javaRuntimeExceptionBrowserIcon
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1237	Icon flushCachedIcons
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1238	"
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1239
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1240	<resource: #image>
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1241
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1242	^Icon
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1243	constantNamed:'GenericToolbarIconLibrary class javaRuntimeExceptionBrowserIcon'
afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1244	ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1038 bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1245	D1LSD1LMB ,SD1LSD1LSD1LSD1LSCP(KD1LSD1LSD1LSD1LSD04JB1LSB@8NBALSD1LSD1LMB ,SD08OC08SD1LSD1LSCP(KD1LND!!DND1LSD1LSD04JB1LS
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1246	D@@@DALSD1LSCP0LB 0SD0DB@0DSD1LSD04KB 0SD1LGAPPGD1LSD1LSD1LSD1LSA 8NA!!LSD1LSD1LSD1LSD1LGA1LSD1LSD1LSD1LSD1LSD1LSD1LSD1LS
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1247	D1LSD1LSBP8NBQLSD1LSD1LSD1LSD08QDP8SD1LSD1LSD1LSD1LGDQDGD1LSD1LSD1LSD1LSB@\GBALSD1LSD1LSD1LSD1LSD1LSD0@@@@@@@@@@@@@@@@@@
bf2ece5a5362 Few fixes vranyj1 parents: 1036 diff changeset	1248	@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[244 120 123 200 39 47 244 102 111 243 103 111 243 88 99 242 87 99 233 164 170 200 25 42 242 197 202 244 208 212 40 98 150 81 128 170 110 150 185 194 211 226 201 71 62 246 146 142 201 58 56 246 136 134 246 135 135 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A0@G@@\<A30GO@\<G30^O@@<@A @@@@<@C0@O@@<@@@b') ; yourself); yourself]
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1249	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1250	!Integer class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1251
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1252	isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1253
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1254	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1255
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1256	"Created: / 11-02-2011 / 11:12:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1257	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1258	!Integer class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1259
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1260	javaArrayClass
873 933263bd2d27 Fixes for primitive array types (uses Signed* variant of an array) vranyj1 parents: 866 diff changeset	1261	^ SignedIntegerArray
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1262
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1263	"Created: / 11-02-2011 / 10:51:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1264	! !
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1265	!Integer class methodsFor:'autoboxing support'!
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1266
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1267	javaBox: anObject
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1268	\| wrapper \|
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1269
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	1270	wrapper := (JavaVM classForName: 'java.lang.Integer') new.
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1271	wrapper perform: #'<init>(I)V' with: anObject.
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	1272	^ wrapper
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1273
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1274	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1275	! !
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1276	!Integer class methodsFor:'accessing'!
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1277
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1278	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1279
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1280	^'int'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1281
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1282	"Modified: / 25-02-2011 / 18:59:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1283	! !
1204 6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1284	!Integer class methodsFor:'autoboxing support'!
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1285
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1286	javaUnbox: object onError: errorBlock
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1287
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1288	^self javaUnbox: object onError: errorBlock
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1289	min: "Integer.MIN_VALUE"-2147483648
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1290	max: "Integer.MAX_VALUE" 2147483647
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1291
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1292	"Created: / 25-11-2011 / 19:10:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1293	! !
1205 ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1294	!Integer class methodsFor:'autoboxing support'!
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1295
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1296	javaUnbox: object onError: errorBlock min: min max: max
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1297
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1298	\| value \|
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1299
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1300	(#( 'java/lang/Byte'
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1301	'java/lang/Short'
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1302	'java/lang/Integer'
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1303	"'java/lang/Long'" ) includes: object class name) ifFalse:[
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1304	errorBlock value.
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1305	].
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1306
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1307	value := object instVarNamed:#value.
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1308	(value between: min and: max) ifFalse:[
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1309	errorBlock value.
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1310	].
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1311	^value
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1312
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1313	"Created: / 22-11-2011 / 11:43:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ea0a42e158f0 vranyj1 parents: 1204 diff changeset	1314	! !
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1315	!LargeInteger class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1316
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1317	isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1318
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1319	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1320
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1321	"Created: / 04-02-2011 / 11:55:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1322	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1323	!LargeInteger class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1324
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1325	javaArrayClass
873 933263bd2d27 Fixes for primitive array types (uses Signed* variant of an array) vranyj1 parents: 866 diff changeset	1326	^ SignedLongIntegerArray
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1327
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1328	"Created: / 11-02-2011 / 10:51:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1329	! !
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1330	!LargeInteger class methodsFor:'autoboxing support'!
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1331
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1332	javaBox: anObject
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1333	\| wrapper \|
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1334
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	1335	wrapper := (JavaVM classForName: 'java.lang.Long') new.
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1336	wrapper perform: #'<init>(J)V' with: anObject.
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	1337	^ wrapper
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1338
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1339	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1340	! !
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1341	!LargeInteger class methodsFor:'accessing'!
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1342
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1343	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1344
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1345	^'long'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1346
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1347	"Modified: / 25-02-2011 / 18:59:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1348	! !
1204 6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1349	!LargeInteger class methodsFor:'autoboxing support'!
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1350
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1351	javaUnbox: object onError: errorBlock
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1352
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1353	\| value \|
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1354
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1355	(object class name = 'java/lang/Long') ifFalse:[
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1356	errorBlock value.
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1357	].
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1358
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1359	value := object instVarNamed:#value.
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1360	(value between: "Integer.MIN_VALUE"-9223372036854775808 and: "Integer.MAX_VALUE" 9223372036854775807) ifFalse:[
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1361	errorBlock value.
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1362	].
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1363	^value
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1364
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1365	"Created: / 22-11-2011 / 11:45:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6c2b887399e8 Few small fixes vranyj1 parents: 1192 diff changeset	1366	! !
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1367	!Object class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1368
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1369	isJavaArrayClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1370
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1371	^false
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1372
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1373	"Created: / 19-12-2010 / 17:05:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1374	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1375	!Object class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1376
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1377	isJavaClassType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1378
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1379	^false
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1380
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1381	"Created: / 11-02-2011 / 08:08:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1382	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1383	!Object class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1384
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1385	isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1386
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1387	^false
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1388
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1389	"Created: / 20-12-2010 / 21:52:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1390	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1391	!Object class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1392
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1393	isJavaReferenceType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1394
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1395	^false
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1396
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1397	"Created: / 20-12-2010 / 21:52:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1398	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1399	!Object class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1400
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1401	isJavaType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1402
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1403	^false
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1404
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1405	"Created: / 20-12-2010 / 21:52:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1406	! !
1276 5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1407	!ProjectDefinition class methodsFor:'description - java'!
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1408
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1409	javaClassPath
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1410
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1411	"Defines a Java class path containing java classes/jars
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1412	required by this package"
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1413
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1414	^#()
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1415
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1416	"Created: / 13-12-2011 / 23:48:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1417	! !
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1418	!ProjectDefinition class methodsFor:'description - java'!
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1419
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1420	javaSourcePath
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1421
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1422	"Defines paths to Java source files (for packages that
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1423	contains Java code"
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1424	^#()
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1425
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1426	"Created: / 13-12-2011 / 23:49:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5a302466ecb8 Default class path hanling changed, now each Smalltalk/X package can define its own class path, that is included initial class path vranyj1 parents: 1263 diff changeset	1427	! !
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1428	!ShortFloat class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1429
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1430	isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1431
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1432	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1433
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1434	"Created: / 06-02-2011 / 17:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1435	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1436	!ShortFloat class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1437
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1438	javaArrayClass
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1439	^ FloatArray
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1440
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1441	"Created: / 11-02-2011 / 10:50:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1442	! !
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1443	!ShortFloat class methodsFor:'autoboxing support'!
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1444
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1445	javaBox: anObject
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1446	\| wrapper \|
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1447
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	1448	wrapper := (JavaVM classForName: 'java.lang.Float') new.
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1449	wrapper perform: #'<init>(F)V' with: anObject.
1033 a31de6a4cfa4 refactoringl, moved registry to JavaVM hlopkmar parents: 1032 diff changeset	1450	^ wrapper
917 ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1451
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1452	"Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ecd1a00132f1 - added JavaEvaluator vranyj1 parents: 916 diff changeset	1453	! !
851 fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1454	!ShortFloat class methodsFor:'accessing'!
fc38cc6ed478 Small refactoring vranyj1 parents: 826 diff changeset	1455
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1456	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1457
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1458	^'float'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1459
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1460	"Modified: / 25-02-2011 / 18:59:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1461	! !
866 10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1462	!SignedIntegerArray class methodsFor:'testing'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1463
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1464	isInterface
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1465
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1466	^false
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1467	! !
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1468	!SignedIntegerArray class methodsFor:'queries'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1469
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1470	isJavaArrayClass
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1471
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1472	^true
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1473
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1474	"Created: / 06-02-2011 / 15:16:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1475	! !
905 d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1476	!SignedIntegerArray class methodsFor:'accessing-java'!
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1477
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1478	javaArrayClass
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1479
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1480	^JavaArray javaArrayClassFor: SignedIntegerArray
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1481
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1482	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1483	"Modified: / 10-08-2011 / 22:47:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1484	! !
866 10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1485	!SignedIntegerArray class methodsFor:'accessing'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1486
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1487	javaComponentClass
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1488
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1489	^ Integer
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1490
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1491	"Created: / 25-06-2011 / 08:38:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1492	! !
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1493	!SignedIntegerArray class methodsFor:'accessing'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1494
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1495	javaName
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1496
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1497	^'[I'.
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1498
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1499	"Modified: / 25-02-2011 / 19:03:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1500	! !
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1501	!SignedLongIntegerArray class methodsFor:'testing'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1502
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1503	isInterface
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1504
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1505	^false
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1506	! !
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1507	!SignedLongIntegerArray class methodsFor:'queries'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1508
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1509	isJavaArrayClass
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1510
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1511	^true
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1512
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1513	"Created: / 20-12-2010 / 22:47:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1514	! !
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1515	!SignedLongIntegerArray class methodsFor:'queries'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1516
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1517	isJavaReferenceType
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1518
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1519	"Java arrays are reference types"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1520	^true
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1521
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1522	"Created: / 20-12-2010 / 22:30:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1523	! !
927 be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1524	!SignedLongIntegerArray class methodsFor:'accessing-java'!
be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1525
be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1526	javaArrayClass
be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1527
be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1528	^JavaArray javaArrayClassFor: SignedLongIntegerArray
be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1529
be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1530	"Modified: / 10-08-2011 / 22:47:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1531	"Created: / 26-08-2011 / 18:29:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
be143911f384 Fixes: vranyj1 parents: 925 diff changeset	1532	! !
866 10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1533	!SignedLongIntegerArray class methodsFor:'accessing'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1534
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1535	javaComponentClass
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1536
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1537	^LargeInteger
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1538
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1539	"Modified: / 25-06-2011 / 08:38:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1540	! !
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1541	!SignedLongIntegerArray class methodsFor:'accessing'!
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1542
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1543	javaName
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1544
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1545	^'[J'.
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1546
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1547	"Modified: / 25-02-2011 / 19:03:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve... vranyj1 parents: 865 diff changeset	1548	! !
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1549	!UndefinedObject class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1550
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1551	isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1552
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1553	"void"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1554
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1555	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1556
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1557	"Created: / 21-12-2010 / 22:52:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1558	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1559	!UndefinedObject class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1560
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1561	javaName
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1562
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1563	^'void'.
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1564
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1565	"Modified: / 25-02-2011 / 18:59:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1566	! !
826 db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	1567	!WordArray class methodsFor:'testing'!
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	1568
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	1569	isInterface
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	1570
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	1571	^false
db53b9c842d7 - TestletTestCaseProxy: debugging support improved. vranyj1 parents: 774 diff changeset	1572	! !
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1573	!WordArray class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1574
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1575	isJavaArrayClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1576
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1577	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1578
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1579	"Created: / 20-12-2010 / 22:47:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1580	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1581	!WordArray class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1582
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1583	isJavaReferenceType
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1584
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1585	"Java arrays are reference types"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1586	^true
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1587
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1588	"Created: / 20-12-2010 / 22:30:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1589	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1590	!WordArray class methodsFor:'accessing-java'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1591
905 d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1592	javaArrayClass
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1593
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1594	^JavaArray javaArrayClassFor: WordArray
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1595
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1596	"Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1597	"Modified: / 10-08-2011 / 22:46:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1598	! !
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1599	!WordArray class methodsFor:'accessing-java'!
d03d9e05c581 Temporary commit. method resolving fixed vranyj1 parents: 901 diff changeset	1600
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1601	javaComponentClass
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1602
1159 afe8ab363ca3 Mainly fixes: vranyj1 parents: 1151 diff changeset	1603	^JavaShort
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1604
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1605	"Created: / 20-12-2010 / 22:13:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1606	! !
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1607	!WordArray class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1608
ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1609	javaName
1225 30600ca8173c ok now we enabled permissions and groovy maybe does not work :/ hlopkmar parents: 1209 diff changeset	1610	^ '[S'.
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1611
1225 30600ca8173c ok now we enabled permissions and groovy maybe does not work :/ hlopkmar parents: 1209 diff changeset	1612	"Modified: / 06-12-2011 / 16:43:59 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
752 ff7bc6428c9c branch jk_new_structure resurrected vranyj1 parents: diff changeset	1613	! !
1020 16b7733beeaf tiny little fix in test resource hlopkmar parents: 1009 diff changeset	1614	!stx_libjava class methodsFor:'documentation'!
16b7733beeaf tiny little fix in test resource hlopkmar parents: 1009 diff changeset	1615
16b7733beeaf tiny little fix in test resource hlopkmar parents: 1009 diff changeset	1616	extensionsVersion_SVN
16b7733beeaf tiny little fix in test resource hlopkmar parents: 1009 diff changeset	1617	^ '$Id$'
16b7733beeaf tiny little fix in test resource hlopkmar parents: 1009 diff changeset	1618	! !

author	vranyj1
	Sun, 01 Jan 2012 17:03:10 +0000
branch	jk_new_structure
changeset 1332	a2e2c13b0ff6
parent 1328	06e2e372ebb0
child 1336	5f651f3589d9
permissions	-rw-r--r--