src/extensions.st
author vranyj1
Sat, 26 Nov 2011 08:22:25 +0000
branchjk_new_structure
changeset 1159 afe8ab363ca3
parent 1151 2744e1f793e4
child 1169 8f727dc66647
permissions -rw-r--r--
Mainly fixes: - JavaMonitor: fix for timeouting (0 timeout mans forever) - JavaTestCaseProxy: readded lost method - JavaMethodWrapperCompiler: initial version, not finished - JavaFieldDescriptor>>#javaClassName
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
vranyj1
parents: 1060
diff changeset
    15
asDottedJavaClassName
vranyj1
parents: 1060
diff changeset
    16
vranyj1
parents: 1060
diff changeset
    17
 "
vranyj1
parents: 1060
diff changeset
    18
    examples:
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
    19
    java.lang.String
1061
vranyj1
parents: 1060
diff changeset
    20
    [[[Ljava/lang/Object; => java.lang.Object
vranyj1
parents: 1060
diff changeset
    21
    "
vranyj1
parents: 1060
diff changeset
    22
vranyj1
parents: 1060
diff changeset
    23
vranyj1
parents: 1060
diff changeset
    24
    | nm |
vranyj1
parents: 1060
diff changeset
    25
    nm := self asJavaComponentClassName.
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
vranyj1
parents: 1060
diff changeset
    28
    ].
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
vranyj1
parents: 1060
diff changeset
    31
    ].
vranyj1
parents: 1060
diff changeset
    32
    ^ nm.
vranyj1
parents: 1060
diff changeset
    33
vranyj1
parents: 1060
diff changeset
    34
    "Created: / 21-10-2011 / 12:31:51 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
vranyj1
parents: 1060
diff changeset
    35
    "Created: / 30-10-2011 / 17:41:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
vranyj1
parents: 1060
diff changeset
    36
! !
vranyj1
parents: 1060
diff changeset
    37
!CharacterArray methodsFor:'java conversions'!
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
vranyj1
parents: 1060
diff changeset
    96
!CharacterArray methodsFor:'java conversions'!
vranyj1
parents: 1060
diff changeset
    97
vranyj1
parents: 1060
diff changeset
    98
asSlashedJavaClassName
vranyj1
parents: 1060
diff changeset
    99
    "removes square brackets and adds slashes"
vranyj1
parents: 1060
diff changeset
   100
    | internalName |
vranyj1
parents: 1060
diff changeset
   101
    internalName := self asJavaComponentClassName.
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
vranyj1
parents: 1060
diff changeset
   104
    ].
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
vranyj1
parents: 1060
diff changeset
   107
    ].
vranyj1
parents: 1060
diff changeset
   108
    ^ internalName.
vranyj1
parents: 1060
diff changeset
   109
vranyj1
parents: 1060
diff changeset
   110
    "Created: / 21-10-2011 / 12:31:51 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
vranyj1
parents: 1060
diff changeset
   111
    "Created: / 30-10-2011 / 17:40:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
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
5a8a5975eb22 Set can be used as java.util.Set :)
kursjan
parents: 960
diff changeset
   125
box: sObj toType: type
5a8a5975eb22 Set can be used as java.util.Set :)
kursjan
parents: 960
diff changeset
   126
    ^ (JavaTypeBox typeBoxForJava: type) box: sObj.
5a8a5975eb22 Set can be used as java.util.Set :)
kursjan
parents: 960
diff changeset
   127
5a8a5975eb22 Set can be used as java.util.Set :)
kursjan
parents: 960
diff changeset
   128
    "Created: / 06-09-2011 / 22:12:59 / Jan Kurs <kursjan@fit.cvut.cz>"
5a8a5975eb22 Set can be used as java.util.Set :)
kursjan
parents: 960
diff changeset
   129
! !
5a8a5975eb22 Set can be used as java.util.Set :)
kursjan
parents: 960
diff changeset
   130
!Class methodsFor:'method lookup'!
5a8a5975eb22 Set can be used as java.util.Set :)
kursjan
parents: 960
diff changeset
   131
1009
00cf245885ab Some methods in SmalltalkLookup and Class were missing...
kursjan
parents: 1006
diff changeset
   132
perform:aMessage onReceiver:receiver from:sender ifNotFound:aBlock
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   133
	| method  selector class args retval|
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   134
	selector := aMessage selector.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   135
	args := aMessage arguments.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   136
	class := receiver class.
1009
00cf245885ab Some methods in SmalltalkLookup and Class were missing...
kursjan
parents: 1006
diff changeset
   137
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   138
	method := SmalltalkLookup instance lookupMethodForSelector: selector
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   139
		directedTo: class
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   140
		for: receiver
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   141
		withArguments: args
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   142
		from: sender
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   143
		ilc: nil.
1009
00cf245885ab Some methods in SmalltalkLookup and Class were missing...
kursjan
parents: 1006
diff changeset
   144
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   145
	method ifNotNil:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   146
	[  | unboxedArgs |
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   147
	    unboxedArgs := self unbox: args to: method argTypes.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   148
	    retval := receiver perform: method selector withArguments: unboxedArgs.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   149
	    ^ self box: retval toType: method returnType.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   150
	].
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
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>"
1139
d7a367bb8ca1 - JavaClassReader: do not uodate changes when loading .class file
vranyj1
parents: 1103
diff changeset
   154
    "Modified: / 19-11-2011 / 12:38:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1009
00cf245885ab Some methods in SmalltalkLookup and Class were missing...
kursjan
parents: 1006
diff changeset
   155
! !
00cf245885ab Some methods in SmalltalkLookup and Class were missing...
kursjan
parents: 1006
diff changeset
   156
!Class methodsFor:'method lookup'!
00cf245885ab Some methods in SmalltalkLookup and Class were missing...
kursjan
parents: 1006
diff changeset
   157
1006
5a8a5975eb22 Set can be used as java.util.Set :)
kursjan
parents: 960
diff changeset
   158
unbox: javaArgumentsCollection to: typesCollection
5a8a5975eb22 Set can be used as java.util.Set :)
kursjan
parents: 960
diff changeset
   159
    " box smalltalk arguments collection to Java arguments "
5a8a5975eb22 Set can be used as java.util.Set :)
kursjan
parents: 960
diff changeset
   160
"/    ^ stArgumentsCollection with: typesCollection collect: [ :stObject :javaType |
5a8a5975eb22 Set can be used as java.util.Set :)
kursjan
parents: 960
diff changeset
   161
"/        (JavaTypeBox  javaTypeAt: javaType) box: stObject.
5a8a5975eb22 Set can be used as java.util.Set :)
kursjan
parents: 960
diff changeset
   162
"/    ]
5a8a5975eb22 Set can be used as java.util.Set :)
kursjan
parents: 960
diff changeset
   163
    ^ javaArgumentsCollection.
5a8a5975eb22 Set can be used as java.util.Set :)
kursjan
parents: 960
diff changeset
   164
5a8a5975eb22 Set can be used as java.util.Set :)
kursjan
parents: 960
diff changeset
   165
    "Created: / 25-09-2011 / 20:22:59 / Jan Kurs <kursjan@fit.cvut.cz>"
5a8a5975eb22 Set can be used as java.util.Set :)
kursjan
parents: 960
diff changeset
   166
! !
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   167
!Object methodsFor:'testing'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   168
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   169
isJavaArray
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   170
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   171
    ^self class isJavaArrayClass
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   172
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   173
    "Created: / 19-12-2010 / 17:05:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   174
! !
758
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
   175
!Object methodsFor:'testing'!
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
   176
771
fb8026dda011 Merged with /trunk
vranyj1
parents: 770
diff changeset
   177
isJavaNameAndType
fb8026dda011 Merged with /trunk
vranyj1
parents: 770
diff changeset
   178
    "return true, if given object represents name and type struct in java constant pool"
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   179
771
fb8026dda011 Merged with /trunk
vranyj1
parents: 770
diff changeset
   180
    ^ false.
fb8026dda011 Merged with /trunk
vranyj1
parents: 770
diff changeset
   181
fb8026dda011 Merged with /trunk
vranyj1
parents: 770
diff changeset
   182
    "Created: / 10-05-2011 / 12:21:52 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
fb8026dda011 Merged with /trunk
vranyj1
parents: 770
diff changeset
   183
! !
fb8026dda011 Merged with /trunk
vranyj1
parents: 770
diff changeset
   184
!Object methodsFor:'testing'!
fb8026dda011 Merged with /trunk
vranyj1
parents: 770
diff changeset
   185
894
e840e204829f Added JavaPackage
vranyj1
parents: 880
diff changeset
   186
isJavaPackage
e840e204829f Added JavaPackage
vranyj1
parents: 880
diff changeset
   187
    "return true, if this is a java package.
e840e204829f Added JavaPackage
vranyj1
parents: 880
diff changeset
   188
     false is returned here - the method is only redefined in JavaPackage."
e840e204829f Added JavaPackage
vranyj1
parents: 880
diff changeset
   189
e840e204829f Added JavaPackage
vranyj1
parents: 880
diff changeset
   190
    ^ false
e840e204829f Added JavaPackage
vranyj1
parents: 880
diff changeset
   191
e840e204829f Added JavaPackage
vranyj1
parents: 880
diff changeset
   192
    "Created: / 09-08-2011 / 09:35:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e840e204829f Added JavaPackage
vranyj1
parents: 880
diff changeset
   193
! !
e840e204829f Added JavaPackage
vranyj1
parents: 880
diff changeset
   194
!Object methodsFor:'testing'!
e840e204829f Added JavaPackage
vranyj1
parents: 880
diff changeset
   195
758
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
   196
isJavaRef
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
   197
"return true, if given object represents reference in java constant pool"
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
   198
^ false.
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
   199
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
   200
    "Created: / 08-04-2011 / 16:12:45 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
be8e84381ce0 Merged with /branches/jk
vranyj1
parents: 752
diff changeset
   201
! !
916
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:)
vranyj1
parents: 915
diff changeset
   202
!Object methodsFor:'autoboxing support'!
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:)
vranyj1
parents: 915
diff changeset
   203
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:)
vranyj1
parents: 915
diff changeset
   204
javaBox: anObject
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:)
vranyj1
parents: 915
diff changeset
   205
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:)
vranyj1
parents: 915
diff changeset
   206
    ^anObject
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:)
vranyj1
parents: 915
diff changeset
   207
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:)
vranyj1
parents: 915
diff changeset
   208
    "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
   209
! !
1144
c1c59b13340e tiny changes and big discovery :)
hlopkmar
parents: 1139
diff changeset
   210
!Process methodsFor:'queries'!
c1c59b13340e tiny changes and big discovery :)
hlopkmar
parents: 1139
diff changeset
   211
c1c59b13340e tiny changes and big discovery :)
hlopkmar
parents: 1139
diff changeset
   212
isWaiting
c1c59b13340e tiny changes and big discovery :)
hlopkmar
parents: 1139
diff changeset
   213
    "return true, iff the receiver is waiting on semaphore or something"
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   214
1144
c1c59b13340e tiny changes and big discovery :)
hlopkmar
parents: 1139
diff changeset
   215
    ^ (state == #wait)
c1c59b13340e tiny changes and big discovery :)
hlopkmar
parents: 1139
diff changeset
   216
c1c59b13340e tiny changes and big discovery :)
hlopkmar
parents: 1139
diff changeset
   217
    "Created: / 20-11-2011 / 20:55:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
c1c59b13340e tiny changes and big discovery :)
hlopkmar
parents: 1139
diff changeset
   218
! !
1021
8ae6c261878a changed class loaders order, loading of primitive arrays, refactoring coming soon..
hlopkmar
parents: 1020
diff changeset
   219
!Set methodsFor:'javaProtocol'!
8ae6c261878a changed class loaders order, loading of primitive arrays, refactoring coming soon..
hlopkmar
parents: 1020
diff changeset
   220
1103
bf4c6f5bc68e just assert
hlopkmar
parents: 1099
diff changeset
   221
java__contains:anObject
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   222
	 ^ self contains: [:el | anObject = el ]
1021
8ae6c261878a changed class loaders order, loading of primitive arrays, refactoring coming soon..
hlopkmar
parents: 1020
diff changeset
   223
! !
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   224
!String methodsFor:'converting'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   225
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   226
asArrayOfSubstringsSeparatedBy:aSeparator
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   227
    "Modified version of asArrayOfSubstrings"
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   228
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   229
    |substrings start end|
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   230
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   231
    substrings := OrderedCollection new.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   232
    start := 1.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   233
    [start <= self size] whileTrue:[
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   234
	(self at:start) = aSeparator ifFalse:[
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   235
	    end := start + 1.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   236
	    [
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   237
		end <= self size and:[(self at:end) ~= aSeparator]
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   238
	    ] whileTrue:[end := end + 1].
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   239
	    substrings add:(self copyFrom:start to:end - 1).
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   240
	    start := end - 1
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   241
	].
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   242
	start := start + 1
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   243
    ].
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   244
    ^ substrings asArray
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   245
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   246
    "Created: / 07-02-2011 / 11:18:03 / Marcel Hlopko <hlopik@gmail.com>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   247
    "Modified: / 08-02-2011 / 01:08:15 / Marcel Hlopko <hlopik@gmail.com>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   248
! !
763
1e82b558abd3 Few fixes toward new repository layout
vranyj1
parents: 762
diff changeset
   249
!UserPreferences methodsFor:'accessing-java-devel'!
1e82b558abd3 Few fixes toward new repository layout
vranyj1
parents: 762
diff changeset
   250
1e82b558abd3 Few fixes toward new repository layout
vranyj1
parents: 762
diff changeset
   251
javaTestsDirectory
774
ac54730a2b74 cleaning.. removed JavaConstantPoolContent
hlopkmar
parents: 772
diff changeset
   252
    ^ self at: #javaTestsDirectory
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   253
	ifAbsent:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   254
	    [ | nm |
764
3c1d3f2d29a5 - stx_libjava class>>testSuite now contains also jUnit tests
vranyj1
parents: 763
diff changeset
   255
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   256
	    nm := OperatingSystem getLoginName.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   257
	     "Default path for Jan"
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   258
	    (nm = 'jv' and:[OperatingSystem isUNIXlike])
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   259
		ifTrue:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   260
		    [ '/home/jv/Projects/libjava/sources/libjava/branches/jk_new_structure/tests' ]
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   261
		ifFalse:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   262
		    [ "Default path for Jan (the other one :-)"
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   263
		    nm = 'jk'
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   264
			ifTrue: [ 'path for Jan' ]
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   265
			ifFalse:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   266
			    [ "Default path for Marcel"
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   267
			    nm = 'm'
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   268
				ifTrue: [ '/home/m/Projects/libjava/branches/jk_new_structure/tests' ]
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   269
				ifFalse:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   270
				    [ | "Look into package dir" p |
768
f9e571ed1105 UserPreferences>>#javaTestDirectory: fix for hudon
vranyj1
parents: 767
diff changeset
   271
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   272
				    (p := (Smalltalk getPackageDirectoryForPackage: 'stx:libjava') asFilename
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   273
						/ 'tests') exists
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   274
					ifTrue: [ p pathName ]
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   275
					ifFalse:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   276
					    [ | "Try the environment variable (used by Hudson)" p |
764
3c1d3f2d29a5 - stx_libjava class>>testSuite now contains also jUnit tests
vranyj1
parents: 763
diff changeset
   277
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   278
					    (p := OperatingSystem getEnvironment: 'LIBJAVA_TESTS') notNil
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   279
						ifTrue: [ p ]
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   280
						ifFalse:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   281
						    [ "No default, trigger an error"
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   282
						    self error: 'No tests path specified' ] ] ] ] ] ]
763
1e82b558abd3 Few fixes toward new repository layout
vranyj1
parents: 762
diff changeset
   283
1e82b558abd3 Few fixes toward new repository layout
vranyj1
parents: 762
diff changeset
   284
    "
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   285
	UserPreferences current javaTestsDirectory"
763
1e82b558abd3 Few fixes toward new repository layout
vranyj1
parents: 762
diff changeset
   286
1e82b558abd3 Few fixes toward new repository layout
vranyj1
parents: 762
diff changeset
   287
    "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
   288
    "Modified: / 07-05-2011 / 20:21:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
774
ac54730a2b74 cleaning.. removed JavaConstantPoolContent
hlopkmar
parents: 772
diff changeset
   289
    "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
   290
! !
1e82b558abd3 Few fixes toward new repository layout
vranyj1
parents: 762
diff changeset
   291
!UserPreferences methodsFor:'accessing-java-devel'!
1e82b558abd3 Few fixes toward new repository layout
vranyj1
parents: 762
diff changeset
   292
1e82b558abd3 Few fixes toward new repository layout
vranyj1
parents: 762
diff changeset
   293
javaTestsDirectory: aStringOrFilename
1e82b558abd3 Few fixes toward new repository layout
vranyj1
parents: 762
diff changeset
   294
1e82b558abd3 Few fixes toward new repository layout
vranyj1
parents: 762
diff changeset
   295
    self at:#javaTestsDirectory put: aStringOrFilename asString.
1e82b558abd3 Few fixes toward new repository layout
vranyj1
parents: 762
diff changeset
   296
1e82b558abd3 Few fixes toward new repository layout
vranyj1
parents: 762
diff changeset
   297
    "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
   298
! !
762
d995915ebc0b Merged with /branches/jk
vranyj1
parents: 758
diff changeset
   299
!ZipArchive methodsFor:'reading - java support'!
d995915ebc0b Merged with /branches/jk
vranyj1
parents: 758
diff changeset
   300
d995915ebc0b Merged with /branches/jk
vranyj1
parents: 758
diff changeset
   301
nextBytes: bytesToRead of: zmember startingAt: pos into: b startingAt: off
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   302
762
d995915ebc0b Merged with /branches/jk
vranyj1
parents: 758
diff changeset
   303
    file position0Based: zmember fileStart + startOfArchive + pos.
d995915ebc0b Merged with /branches/jk
vranyj1
parents: 758
diff changeset
   304
    ^ file nextBytes: bytesToRead into: b startingAt: off.
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   305
762
d995915ebc0b Merged with /branches/jk
vranyj1
parents: 758
diff changeset
   306
    "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
   307
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   308
!Boolean class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   309
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   310
isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   311
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   312
    ^true
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   313
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   314
    "Created: / 25-02-2011 / 08:22:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   315
! !
851
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   316
!Boolean class methodsFor:'queries'!
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   317
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   318
javaArrayClass
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   319
    ^ BooleanArray
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   320
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   321
    "Created: / 25-02-2011 / 08:27:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   322
! !
916
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:)
vranyj1
parents: 915
diff changeset
   323
!Boolean class methodsFor:'autoboxing support'!
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:)
vranyj1
parents: 915
diff changeset
   324
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   325
javaBox: anObject
916
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:)
vranyj1
parents: 915
diff changeset
   326
    | wrapper |
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:)
vranyj1
parents: 915
diff changeset
   327
1033
a31de6a4cfa4 refactoringl, moved registry to JavaVM
hlopkmar
parents: 1032
diff changeset
   328
    wrapper := (JavaVM classForName: 'java.lang.Boolean') new.
916
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:)
vranyj1
parents: 915
diff changeset
   329
    wrapper perform: #'<init>(Z)V' with: anObject.
1033
a31de6a4cfa4 refactoringl, moved registry to JavaVM
hlopkmar
parents: 1032
diff changeset
   330
    ^ wrapper
916
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:)
vranyj1
parents: 915
diff changeset
   331
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:)
vranyj1
parents: 915
diff changeset
   332
    "Created: / 14-08-2011 / 22:54:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9980c5250fc1 Added lost methods (javaBox:/#javaUnbox:)
vranyj1
parents: 915
diff changeset
   333
! !
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   334
!Boolean class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   335
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   336
javaName
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   337
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   338
    ^'boolean'.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   339
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   340
    "Modified: / 25-02-2011 / 18:58:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   341
! !
826
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   342
!BooleanArray class methodsFor:'testing'!
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   343
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   344
isInterface
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   345
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   346
    ^false
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   347
! !
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   348
!BooleanArray class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   349
912
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   350
isJavaArrayClass
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   351
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   352
    ^true
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   353
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   354
    "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
   355
! !
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   356
!BooleanArray class methodsFor:'queries'!
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   357
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   358
isJavaReferenceType
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   359
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   360
    "Java arrays are reference types"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   361
    ^true
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   362
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   363
    "Created: / 20-12-2010 / 22:30:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   364
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   365
!BooleanArray class methodsFor:'accessing-java'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   366
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   367
javaComponentClass
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   368
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   369
    ^Boolean
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   370
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   371
    "Created: / 20-12-2010 / 22:13:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   372
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   373
!BooleanArray class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   374
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   375
javaName
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   376
960
1c7fd32d1f26 Few fixes
vranyj1
parents: 927
diff changeset
   377
    ^'[Z'.
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   378
960
1c7fd32d1f26 Few fixes
vranyj1
parents: 927
diff changeset
   379
    "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
   380
! !
826
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   381
!ByteArray class methodsFor:'testing'!
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   382
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   383
isInterface
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   384
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   385
    ^false
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   386
! !
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   387
!ByteArray class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   388
866
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
   389
isJavaArrayClass
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
   390
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
   391
    ^true
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
   392
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
   393
    "Created: / 05-02-2011 / 22:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
   394
! !
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
   395
!ByteArray class methodsFor:'queries'!
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
   396
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   397
isJavaReferenceType
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   398
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   399
    "Java arrays are reference types"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   400
    ^true
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   401
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   402
    "Created: / 20-12-2010 / 22:30:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   403
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   404
!ByteArray class methodsFor:'accessing-java'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   405
866
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
   406
javaArrayClass
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
   407
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
   408
    ^JavaArray javaArrayClassFor: self
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
   409
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
   410
    "Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
   411
! !
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
   412
!ByteArray class methodsFor:'accessing-java'!
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
   413
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   414
javaComponentClass
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   415
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   416
    ^JavaByte
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   417
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   418
    "Created: / 20-12-2010 / 22:05:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   419
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   420
!ByteArray class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   421
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   422
javaName
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   423
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   424
    ^'[B'.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   425
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   426
    "Modified: / 25-02-2011 / 19:02:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   427
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   428
!Character class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   429
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   430
isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   431
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   432
    ^true
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   433
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   434
    "Created: / 20-12-2010 / 22:18:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   435
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   436
!Character class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   437
851
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   438
javaArrayClass
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   439
    ^ String
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   440
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   441
    "Created: / 11-02-2011 / 10:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   442
! !
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
   443
!Character class methodsFor:'autoboxing support'!
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
   444
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   445
javaBox: anObject
1033
a31de6a4cfa4 refactoringl, moved registry to JavaVM
hlopkmar
parents: 1032
diff changeset
   446
    | wrapper |
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
   447
1033
a31de6a4cfa4 refactoringl, moved registry to JavaVM
hlopkmar
parents: 1032
diff changeset
   448
    wrapper := (JavaVM classForName: 'java.lang.Character') new.
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   449
    wrapper perform: #'<init>(C)V' with: anObject codePoint.
1033
a31de6a4cfa4 refactoringl, moved registry to JavaVM
hlopkmar
parents: 1032
diff changeset
   450
    ^ wrapper
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
   451
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
   452
    "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
   453
! !
851
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   454
!Character class methodsFor:'accessing'!
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   455
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   456
javaName
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   457
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   458
    ^'char'.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   459
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   460
    "Modified: / 25-02-2011 / 18:58:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   461
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   462
!CharacterArray class methodsFor:'encoding & decoding'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   463
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   464
decodeFromJavaUTF8: bytes
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   465
    "Decodes a string from modified UTF8 encoding
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   466
     as used in Java .class files. see
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   467
     'The class file format specification', section 4.5.7"
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   468
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   469
    | string  i  s  b  codePoint  realLength |
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   470
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   471
    string := String new: bytes size.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   472
    realLength := bytes size.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   473
    s := bytes readStream.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   474
    i := 1.
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   475
    [ s atEnd ] whileFalse:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   476
	    [ b := s next.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   477
	    (b & 2r10000000) == 0
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   478
		ifTrue: [ codePoint := b ]
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   479
		ifFalse:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   480
		    [ self assert: (b & 2r01000000) = 2r01000000.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   481
		    (b & 2r00100000) = 0
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   482
			ifTrue:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   483
			    [ "two byte utf char"
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   484
			    realLength := realLength - 1.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   485
			    self assert: s size > 0.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   486
			    self assert: (b & 2r01000000) = 2r01000000.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   487
			    string bitsPerCharacter = 8
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   488
				ifTrue: [ string := Unicode16String fromString: string ].
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   489
			    codePoint := (b & 2r00011111) << 6.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   490
			    b := s next.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   491
			    self assert: (b & 2r11000000) = 2r10000000.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   492
			    codePoint := codePoint + (b & 2r00111111). ]
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   493
			ifFalse:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   494
			    [ "at lease 3 byte utf char"
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   495
			    realLength := realLength - 2.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   496
			    string bitsPerCharacter ~= 16"was: 32"
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   497
				ifTrue: [ string := Unicode16String"was: Unicode32String" fromString: string ].
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   498
			    self assert: s size > 1.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   499
			    (b & 2r00010000) = 0
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   500
				ifTrue:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   501
				    [ | utf32Possible  utf32Value |
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   502
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   503
				    "3 or 6 byte utf char"
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   504
				    self assert: s size > 1.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   505
				    s size < 5
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   506
					ifTrue: [ utf32Possible := false ]
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   507
					ifFalse: [ utf32Possible := true ].
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   508
				    b ~= 2r11101101 ifTrue: [ utf32Possible := false ].
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   509
				    codePoint := (b & 2r00001111) << 12.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   510
				    b := s next.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   511
				    self assert: (b & 2r11000000) = 2r10000000.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   512
				    ((b & 2r11110000) = 2r10100000 and: [ utf32Possible ])
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   513
					ifTrue: [ utf32Value := 2r00010000 + ((b & 2r00001111) << 16) ]
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   514
					ifFalse: [ utf32Possible := false ].
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   515
				    codePoint := codePoint + ((b & 2r00111111) << 6).
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   516
				    b := s next.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   517
				    self assert: (b & 2r11000000) = 2r10000000.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   518
				    utf32Possible
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   519
					ifTrue: [ utf32Value := utf32Value + ((b & 2r00111111) << 10) ].
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   520
				    codePoint := codePoint + (b & 2r00111111).
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   521
				    utf32Possible
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   522
					ifTrue:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   523
					    [ | tmpB |
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   524
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   525
					    tmpB := s copy.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   526
					    b := tmpB next.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   527
					    b = 2r11101101
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   528
						ifTrue:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   529
						    [ b := tmpB next.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   530
						    (b & 2r11110000) = 2r10110000
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   531
							ifTrue:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   532
							    [ utf32Value := utf32Value + ((b & 2r00001111) << 6).
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   533
							    b := tmpB next.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   534
							    self assert: (b & 2r11000000) = 2r10000000.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   535
							    utf32Value := utf32Value + (b & 2r00111111).
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   536
							    codePoint := utf32Value.
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   537
							    realLength := realLength - 3. s position: tmpB position.] ] ] ]
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   538
				ifFalse:
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   539
				    [ "should not happen, ask mh"
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   540
				    self halt. ] ] ].
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   541
	    string at: i put: (Character codePoint: codePoint).
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   542
	    i := i + 1. ].
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   543
    ^ string subString: 1 to: realLength.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   544
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   545
    "
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   546
	String decodeFromJavaUTF8: 'Hello world' asByteArray"
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   547
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   548
    "Created: / 22-12-2010 / 23:45:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   549
    "Modified: / 09-02-2011 / 01:12:25 / Marcel Hlopko <hlopik@gmail.com>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   550
    "Modified: / 13-03-2011 / 15:52:36 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
900
af7f94374272 - more native methods
vranyj1
parents: 894
diff changeset
   551
    "Modified: / 10-08-2011 / 01:00:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   552
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   553
!CharacterArray class methodsFor:'instance creation'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   554
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   555
fromJavaUTF8Bytes:aByteCollection
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   556
    "return a new string which represents the characters as decoded
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   557
     from the modified utf8 encoded bytes as specified in
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   558
     The class file format specification, section 4.5.7"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   559
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   560
    ^ self decodeFromJavaUTF8:aByteCollection.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   561
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   562
    "
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   563
     CharacterArray fromUTF8Bytes:#[ 16r41 16r42 ]
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   564
     CharacterArray fromUTF8Bytes:#[ 16rC1 16r02 ]
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   565
     CharacterArray fromUTF8Bytes:#[ 16rE0 16r81 16r02 ]
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   566
     CharacterArray fromUTF8Bytes:#[ 16rEF 16rBF 16rBF ]
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   567
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   568
   rfc2279 examples:
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   569
     CharacterArray fromUTF8Bytes:#[ 16r41 16rE2 16r89 16rA2 16rCE 16r91 16r2E ]
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   570
     CharacterArray fromUTF8Bytes:#[ 16rED 16r95 16r9C 16rEA 16rB5 16rAD 16rEC 16r96 16rB4 ]
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   571
     CharacterArray fromUTF8Bytes:#[ 16rE6 16r97 16rA5 16rE6 16r9C 16rAC 16rE8 16rAA 16r9E ]
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   572
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   573
   invalid:
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   574
     CharacterArray fromUTF8Bytes:#[ 16rC0 16r80 ]
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   575
     CharacterArray fromUTF8Bytes:#[ 16rE0 16r80 16r80 ]
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   576
    "
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   577
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   578
    "Created: / 23-12-2010 / 09:01:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   579
! !
865
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   580
!CharacterArray class methodsFor:'queries'!
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   581
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   582
isJavaArrayClass
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   583
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   584
    ^true
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   585
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   586
    "Created: / 05-02-2011 / 22:45:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   587
! !
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   588
!CharacterArray class methodsFor:'accessing-java'!
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   589
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   590
javaArrayClass
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   591
901
64a889b68bef - JavaVM: more natives
vranyj1
parents: 900
diff changeset
   592
    ^JavaArray javaArrayClassFor: Unicode16String
865
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   593
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   594
    "Created: / 11-06-2011 / 23:42:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
901
64a889b68bef - JavaVM: more natives
vranyj1
parents: 900
diff changeset
   595
    "Modified: / 10-08-2011 / 13:18:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
865
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   596
! !
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   597
!CharacterArray class methodsFor:'accessing-java'!
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   598
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   599
javaComponentClass
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   600
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   601
    ^Character
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   602
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   603
    "Created: / 20-12-2010 / 22:05:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
82615f7deade Few fixes...
vranyj1
parents: 851
diff changeset
   604
! !
826
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   605
!DoubleArray class methodsFor:'testing'!
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   606
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   607
isInterface
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   608
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   609
    ^false
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   610
! !
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   611
!DoubleArray class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   612
912
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   613
isJavaArrayClass
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   614
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   615
    ^true
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   616
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   617
    "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
   618
! !
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   619
!DoubleArray class methodsFor:'queries'!
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   620
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   621
isJavaReferenceType
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   622
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   623
    "Java arrays are reference types"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   624
    ^true
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   625
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   626
    "Created: / 20-12-2010 / 22:30:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   627
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   628
!DoubleArray class methodsFor:'accessing-java'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   629
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   630
javaComponentClass
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   631
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   632
    ^Float
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   633
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   634
    "Created: / 20-12-2010 / 22:06:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   635
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   636
!DoubleArray class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   637
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   638
javaName
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   639
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   640
    ^'[D'.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   641
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   642
    "Modified: / 25-02-2011 / 19:03:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   643
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   644
!Float class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   645
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   646
isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   647
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   648
    ^true
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   649
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   650
    "Created: / 06-02-2011 / 17:21:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   651
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   652
!Float class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   653
851
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   654
javaArrayClass
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   655
    ^ DoubleArray
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   656
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   657
    "Created: / 11-02-2011 / 10:50:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   658
! !
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
   659
!Float class methodsFor:'autoboxing support'!
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
   660
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   661
javaBox: anObject
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
   662
    | wrapper |
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
   663
1033
a31de6a4cfa4 refactoringl, moved registry to JavaVM
hlopkmar
parents: 1032
diff changeset
   664
    wrapper := (JavaVM classForName: 'java.lang.Double') new.
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
   665
    wrapper perform: #'<init>(D)V' with: anObject.
1033
a31de6a4cfa4 refactoringl, moved registry to JavaVM
hlopkmar
parents: 1032
diff changeset
   666
    ^ wrapper
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
   667
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
   668
    "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
   669
! !
851
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   670
!Float class methodsFor:'accessing'!
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
   671
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   672
javaName
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   673
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   674
    ^'double'.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   675
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   676
    "Modified: / 25-02-2011 / 18:59:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   677
! !
826
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   678
!FloatArray class methodsFor:'testing'!
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   679
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   680
isInterface
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   681
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   682
    ^false
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
   683
! !
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   684
!FloatArray class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   685
912
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   686
isJavaArrayClass
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   687
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   688
    ^true
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   689
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   690
    "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
   691
! !
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   692
!FloatArray class methodsFor:'queries'!
e651488f5741 Many fixes in reflection, expecially for generic types support
vranyj1
parents: 905
diff changeset
   693
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   694
isJavaReferenceType
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   695
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   696
    "Java arrays are reference types"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   697
    ^true
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   698
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   699
    "Created: / 20-12-2010 / 22:30:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   700
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   701
!FloatArray class methodsFor:'accessing-java'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   702
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   703
javaComponentClass
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   704
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   705
    ^ShortFloat
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   706
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   707
    "Created: / 20-12-2010 / 22:06:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   708
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   709
!FloatArray class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   710
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   711
javaName
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   712
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   713
    ^'[F'.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   714
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   715
    "Modified: / 25-02-2011 / 19:03:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   716
! !
1038
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   717
!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   718
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   719
javaClassBrowserIcon
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   720
    "This resource specification was automatically generated
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   721
     by the ImageEditor of ST/X."
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   722
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   723
    "Do not manually edit this!! If it is corrupted,
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   724
     the ImageEditor may not be able to read the specification."
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   725
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   726
    "
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   727
     self javaClassBrowserIcon inspect
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   728
     ImageEditor openOnClass:self andSelector:#javaClassBrowserIcon
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   729
     Icon flushCachedIcons
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   730
    "
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   731
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   732
    <resource: #image>
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   733
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
   734
    ^Icon
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   735
	constantNamed:'GenericToolbarIconLibrary class javaClassBrowserIcon'
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   736
	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
   737
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
   738
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
   739
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
   740
@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   741
! !
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   742
!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   743
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   744
javaExceptionBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   745
    "This resource specification was automatically generated
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   746
     by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   747
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   748
    "Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   749
     the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   750
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   751
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   752
     self javaExceptionBrowserIcon inspect
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   753
     ImageEditor openOnClass:self andSelector:#javaExceptionBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   754
     Icon flushCachedIcons
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   755
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   756
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   757
    <resource: #image>
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   758
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   759
    ^Icon
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   760
	constantNamed:'GenericToolbarIconLibrary class javaExceptionBrowserIcon'
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   761
	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
   762
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
   763
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
   764
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
   765
@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   766
! !
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   767
!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   768
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   769
javaPrivateClassBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   770
    "This resource specification was automatically generated
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   771
     by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   772
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   773
    "Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   774
     the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   775
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   776
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   777
     self javaPrivateClassBrowserIcon inspect
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   778
     ImageEditor openOnClass:self andSelector:#javaPrivateClassBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   779
     Icon flushCachedIcons
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   780
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   781
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   782
    <resource: #image>
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   783
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   784
    ^Icon
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   785
	constantNamed:'GenericToolbarIconLibrary class javaPrivateClassBrowserIcon'
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   786
	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
   787
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
   788
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
   789
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
   790
@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   791
! !
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   792
!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   793
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   794
javaPrivateEnumBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   795
    "This resource specification was automatically generated
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   796
     by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   797
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   798
    "Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   799
     the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   800
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   801
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   802
     self javaPrivateEnumBrowserIcon inspect
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   803
     ImageEditor openOnClass:self andSelector:#javaPrivateEnumBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   804
     Icon flushCachedIcons
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   805
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   806
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   807
    <resource: #image>
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   808
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   809
    ^Icon
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   810
	constantNamed:'GenericToolbarIconLibrary class javaPrivateEnumBrowserIcon'
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   811
	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
   812
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
   813
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
   814
C!!4 BPHGA TFA0IDQDQDQC\_E3PCPS<@@DDAQDQDQDQDQDQDAC(:N#(:BDQDQDQDQDQDQ@ HB@ HB@!!DQDQDQDQDQDQDQDQDQDQDQ@@@@@@@@@@@@@@@@@@@
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   815
@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   816
! !
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   817
!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   818
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   819
javaPrivateInterfaceBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   820
    "This resource specification was automatically generated
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   821
     by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   822
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   823
    "Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   824
     the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   825
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   826
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   827
     self javaPrivateInterfaceBrowserIcon inspect
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   828
     ImageEditor openOnClass:self andSelector:#javaPrivateInterfaceBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   829
     Icon flushCachedIcons
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   830
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   831
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   832
    <resource: #image>
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   833
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   834
    ^Icon
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   835
	constantNamed:'GenericToolbarIconLibrary class javaPrivateInterfaceBrowserIcon'
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   836
	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
   837
TUEQTTPVCP,NE$QQTUEQTUEQTS<KD!!TUEQHKO5EQTUEQTS<3OQ-GQ4\[OSL?TUEQTRD,NQ1PTEAPB!!0;KBEQTUDVD3 8FEAPBS 8NAPYTUEQC4XLC@1PTDLL
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   838
CCT5C5EQTR<(J"\''TE@ I2\*IB9QTUDOKR,&I%APPT@^GQ5BTUEQFSH0LTUPTD)JR$)JR$)QTRH#M#)PTEAJSD1LSD1ITUEQF"TQOC0_R41NS$9LR5EQTUDZ
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   839
JS\PO HGA TFA0IQTUEQTTPWMA<CS44@@D<ATUEQTUEQTUEQAD!!HRD!!HBEEQTUEQTUEQTP HB@ HB@!!QTUEQTUEQTUEQTUEQTUEQTP@@@@@@@@@@@@@@@@@@
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   840
@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   841
! !
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   842
!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   843
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   844
javaProtectedClassBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   845
    "This resource specification was automatically generated
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   846
     by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   847
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   848
    "Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   849
     the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   850
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   851
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   852
     self javaProtectedClassBrowserIcon inspect
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   853
     ImageEditor openOnClass:self andSelector:#javaProtectedClassBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   854
     Icon flushCachedIcons
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   855
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   856
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   857
    <resource: #image>
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   858
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   859
    ^Icon
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   860
	constantNamed:'GenericToolbarIconLibrary class javaProtectedClassBrowserIcon'
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   861
	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
   862
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
   863
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
   864
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
   865
@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   866
! !
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   867
!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   868
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   869
javaProtectedEnumBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   870
    "This resource specification was automatically generated
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   871
     by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   872
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   873
    "Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   874
     the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   875
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   876
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   877
     self javaProtectedEnumBrowserIcon inspect
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   878
     ImageEditor openOnClass:self andSelector:#javaProtectedEnumBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   879
     Icon flushCachedIcons
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   880
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   881
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   882
    <resource: #image>
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   883
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   884
    ^Icon
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   885
	constantNamed:'GenericToolbarIconLibrary class javaProtectedEnumBrowserIcon'
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   886
	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
   887
Q4]GQ4P-IQ4$KTQGQ4]GQ4]GQ3\]LB(*J#@\M4]GQ4]GQ3\ZMS4=OS4=LAX7Q4]GQ4P]L3MFQ$YFQ#8*GDQGQ4\+K"8.Q$YCN3,1K"8/Q4]GH2X,KDYFNB0,
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   888
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
   889
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
   890
@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   891
! !
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   892
!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   893
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   894
javaProtectedInterfaceBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   895
    "This resource specification was automatically generated
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   896
     by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   897
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   898
    "Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   899
     the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   900
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   901
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   902
     self javaProtectedInterfaceBrowserIcon inspect
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   903
     ImageEditor openOnClass:self andSelector:#javaProtectedInterfaceBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   904
     Icon flushCachedIcons
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   905
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   906
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   907
    <resource: #image>
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   908
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   909
    ^Icon
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   910
	constantNamed:'GenericToolbarIconLibrary class javaProtectedInterfaceBrowserIcon'
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   911
	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
   912
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
   913
@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
   914
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
   915
@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   916
! !
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   917
!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   918
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   919
javaPublicClassBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   920
    "This resource specification was automatically generated
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   921
     by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   922
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   923
    "Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   924
     the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   925
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   926
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   927
     self javaClassBrowserIcon inspect
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   928
     ImageEditor openOnClass:self andSelector:#javaClassBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   929
     Icon flushCachedIcons
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   930
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   931
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   932
    <resource: #image>
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   933
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   934
    ^Icon
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   935
	constantNamed:'GenericToolbarIconLibrary class javaClassBrowserIcon'
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   936
	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
   937
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
   938
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
   939
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
   940
@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   941
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   942
    "Created: / 23-10-2011 / 14:41:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   943
! !
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   944
!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   945
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   946
javaPublicEnumBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   947
    "This resource specification was automatically generated
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   948
     by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   949
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   950
    "Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   951
     the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   952
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   953
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   954
     self javaPublicEnumBrowserIcon inspect
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   955
     ImageEditor openOnClass:self andSelector:#javaPublicEnumBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   956
     Icon flushCachedIcons
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   957
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   958
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   959
    <resource: #image>
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   960
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   961
    ^Icon
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   962
	constantNamed:'GenericToolbarIconLibrary class javaPublicEnumBrowserIcon'
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   963
	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
   964
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
   965
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
   966
@!!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
   967
@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   968
! !
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   969
!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   970
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   971
javaPublicInterfaceBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   972
    "This resource specification was automatically generated
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   973
     by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   974
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   975
    "Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   976
     the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   977
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   978
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   979
     self javaPublicInterfaceBrowserIcon inspect
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   980
     ImageEditor openOnClass:self andSelector:#javaPublicInterfaceBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   981
     Icon flushCachedIcons
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   982
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   983
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   984
    <resource: #image>
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   985
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   986
    ^Icon
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   987
	constantNamed:'GenericToolbarIconLibrary class javaPublicInterfaceBrowserIcon'
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
   988
	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
   989
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
   990
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
   991
HSPHB@ 4HQMCP4MCP4MCP38OK2X/DC9CP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP4MCP0@@@@@@@@@@@@@@@@@@
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   992
@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   993
! !
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   994
!GenericToolbarIconLibrary class methodsFor:'image specs-tools-SystemBrowser-java'!
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   995
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   996
javaRuntimeExceptionBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   997
    "This resource specification was automatically generated
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   998
     by the ImageEditor of ST/X."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
   999
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
  1000
    "Do not manually edit this!! If it is corrupted,
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
  1001
     the ImageEditor may not be able to read the specification."
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
  1002
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
  1003
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
  1004
     self javaRuntimeExceptionBrowserIcon inspect
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
  1005
     ImageEditor openOnClass:self andSelector:#javaRuntimeExceptionBrowserIcon
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
  1006
     Icon flushCachedIcons
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
  1007
    "
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
  1008
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
  1009
    <resource: #image>
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
  1010
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
  1011
    ^Icon
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
  1012
	constantNamed:'GenericToolbarIconLibrary class javaRuntimeExceptionBrowserIcon'
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
  1013
	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
  1014
D1LSD1LMB ,SD1LSD1LSD1LSD1LSCP(KD1LSD1LSD1LSD1LSD04JB1LSB@8NBALSD1LSD1LMB ,SD08OC08SD1LSD1LSCP(KD1LND!!DND1LSD1LSD04JB1LS
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
  1015
D@@@DALSD1LSCP0LB 0SD0DB@0DSD1LSD04KB 0SD1LGAPPGD1LSD1LSD1LSD1LSA 8NA!!LSD1LSD1LSD1LSD1LGA1LSD1LSD1LSD1LSD1LSD1LSD1LSD1LS
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
  1016
D1LSD1LSBP8NBQLSD1LSD1LSD1LSD08QDP8SD1LSD1LSD1LSD1LGDQDGD1LSD1LSD1LSD1LSB@\GBALSD1LSD1LSD1LSD1LSD1LSD0@@@@@@@@@@@@@@@@@@
bf2ece5a5362 Few fixes
vranyj1
parents: 1036
diff changeset
  1017
@@@@@@@@@@@@@@@@@@@@@@@@@@@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
  1018
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1019
!Integer class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1020
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1021
isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1022
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1023
    ^true
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1024
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1025
    "Created: / 11-02-2011 / 11:12:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1026
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1027
!Integer class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1028
851
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1029
javaArrayClass
873
933263bd2d27 Fixes for primitive array types (uses Signed* variant of an array)
vranyj1
parents: 866
diff changeset
  1030
    ^ SignedIntegerArray
851
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1031
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1032
    "Created: / 11-02-2011 / 10:51:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1033
! !
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1034
!Integer class methodsFor:'autoboxing support'!
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1035
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
  1036
javaBox: anObject
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1037
    | wrapper |
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1038
1033
a31de6a4cfa4 refactoringl, moved registry to JavaVM
hlopkmar
parents: 1032
diff changeset
  1039
    wrapper := (JavaVM classForName: 'java.lang.Integer') new.
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1040
    wrapper perform: #'<init>(I)V' with: anObject.
1033
a31de6a4cfa4 refactoringl, moved registry to JavaVM
hlopkmar
parents: 1032
diff changeset
  1041
    ^ wrapper
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1042
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1043
    "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1044
! !
851
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1045
!Integer class methodsFor:'accessing'!
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1046
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1047
javaName
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1048
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1049
    ^'int'.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1050
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1051
    "Modified: / 25-02-2011 / 18:59:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1052
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1053
!LargeInteger class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1054
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1055
isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1056
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1057
    ^true
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1058
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1059
    "Created: / 04-02-2011 / 11:55:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1060
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1061
!LargeInteger class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1062
851
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1063
javaArrayClass
873
933263bd2d27 Fixes for primitive array types (uses Signed* variant of an array)
vranyj1
parents: 866
diff changeset
  1064
    ^ SignedLongIntegerArray
851
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1065
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1066
    "Created: / 11-02-2011 / 10:51:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1067
! !
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1068
!LargeInteger class methodsFor:'autoboxing support'!
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1069
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
  1070
javaBox: anObject
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1071
    | wrapper |
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1072
1033
a31de6a4cfa4 refactoringl, moved registry to JavaVM
hlopkmar
parents: 1032
diff changeset
  1073
    wrapper := (JavaVM classForName: 'java.lang.Long') new.
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1074
    wrapper perform: #'<init>(J)V' with: anObject.
1033
a31de6a4cfa4 refactoringl, moved registry to JavaVM
hlopkmar
parents: 1032
diff changeset
  1075
    ^ wrapper
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1076
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1077
    "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1078
! !
851
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1079
!LargeInteger class methodsFor:'accessing'!
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1080
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1081
javaName
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1082
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1083
    ^'long'.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1084
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1085
    "Modified: / 25-02-2011 / 18:59:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1086
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1087
!Object class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1088
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1089
isJavaArrayClass
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1090
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1091
    ^false
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1092
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1093
    "Created: / 19-12-2010 / 17:05:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1094
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1095
!Object class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1096
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1097
isJavaClassType
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1098
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1099
    ^false
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1100
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1101
    "Created: / 11-02-2011 / 08:08:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1102
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1103
!Object class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1104
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1105
isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1106
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1107
    ^false
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1108
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1109
    "Created: / 20-12-2010 / 21:52:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1110
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1111
!Object class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1112
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1113
isJavaReferenceType
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1114
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1115
    ^false
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1116
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1117
    "Created: / 20-12-2010 / 21:52:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1118
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1119
!Object class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1120
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1121
isJavaType
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1122
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1123
    ^false
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1124
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1125
    "Created: / 20-12-2010 / 21:52:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1126
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1127
!ShortFloat class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1128
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1129
isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1130
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1131
    ^true
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1132
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1133
    "Created: / 06-02-2011 / 17:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1134
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1135
!ShortFloat class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1136
851
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1137
javaArrayClass
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1138
    ^ FloatArray
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1139
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1140
    "Created: / 11-02-2011 / 10:50:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1141
! !
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1142
!ShortFloat class methodsFor:'autoboxing support'!
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1143
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
  1144
javaBox: anObject
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1145
    | wrapper |
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1146
1033
a31de6a4cfa4 refactoringl, moved registry to JavaVM
hlopkmar
parents: 1032
diff changeset
  1147
    wrapper := (JavaVM classForName: 'java.lang.Float') new.
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1148
    wrapper perform: #'<init>(F)V' with: anObject.
1033
a31de6a4cfa4 refactoringl, moved registry to JavaVM
hlopkmar
parents: 1032
diff changeset
  1149
    ^ wrapper
917
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1150
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1151
    "Created: / 16-08-2011 / 09:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ecd1a00132f1 - added JavaEvaluator
vranyj1
parents: 916
diff changeset
  1152
! !
851
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1153
!ShortFloat class methodsFor:'accessing'!
fc38cc6ed478 Small refactoring
vranyj1
parents: 826
diff changeset
  1154
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1155
javaName
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1156
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1157
    ^'float'.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1158
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1159
    "Modified: / 25-02-2011 / 18:59:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1160
! !
866
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1161
!SignedIntegerArray class methodsFor:'testing'!
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1162
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1163
isInterface
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1164
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1165
    ^false
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1166
! !
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1167
!SignedIntegerArray class methodsFor:'queries'!
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1168
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1169
isJavaArrayClass
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1170
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1171
    ^true
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1172
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1173
    "Created: / 06-02-2011 / 15:16:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1174
! !
905
d03d9e05c581 Temporary commit. method resolving fixed
vranyj1
parents: 901
diff changeset
  1175
!SignedIntegerArray class methodsFor:'accessing-java'!
d03d9e05c581 Temporary commit. method resolving fixed
vranyj1
parents: 901
diff changeset
  1176
d03d9e05c581 Temporary commit. method resolving fixed
vranyj1
parents: 901
diff changeset
  1177
javaArrayClass
d03d9e05c581 Temporary commit. method resolving fixed
vranyj1
parents: 901
diff changeset
  1178
d03d9e05c581 Temporary commit. method resolving fixed
vranyj1
parents: 901
diff changeset
  1179
    ^JavaArray javaArrayClassFor: SignedIntegerArray
d03d9e05c581 Temporary commit. method resolving fixed
vranyj1
parents: 901
diff changeset
  1180
d03d9e05c581 Temporary commit. method resolving fixed
vranyj1
parents: 901
diff changeset
  1181
    "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
  1182
    "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
  1183
! !
866
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1184
!SignedIntegerArray class methodsFor:'accessing'!
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1185
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1186
javaComponentClass
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1187
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1188
    ^ Integer
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1189
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1190
    "Created: / 25-06-2011 / 08:38:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1191
! !
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1192
!SignedIntegerArray class methodsFor:'accessing'!
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1193
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1194
javaName
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1195
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1196
    ^'[I'.
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1197
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1198
    "Modified: / 25-02-2011 / 19:03:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1199
! !
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1200
!SignedLongIntegerArray class methodsFor:'testing'!
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1201
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1202
isInterface
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1203
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1204
    ^false
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1205
! !
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1206
!SignedLongIntegerArray class methodsFor:'queries'!
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1207
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1208
isJavaArrayClass
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1209
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1210
    ^true
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1211
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1212
    "Created: / 20-12-2010 / 22:47:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1213
! !
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1214
!SignedLongIntegerArray class methodsFor:'queries'!
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1215
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1216
isJavaReferenceType
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1217
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1218
    "Java arrays are reference types"
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1219
    ^true
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1220
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1221
    "Created: / 20-12-2010 / 22:30:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1222
! !
927
vranyj1
parents: 925
diff changeset
  1223
!SignedLongIntegerArray class methodsFor:'accessing-java'!
vranyj1
parents: 925
diff changeset
  1224
vranyj1
parents: 925
diff changeset
  1225
javaArrayClass
vranyj1
parents: 925
diff changeset
  1226
vranyj1
parents: 925
diff changeset
  1227
    ^JavaArray javaArrayClassFor: SignedLongIntegerArray
vranyj1
parents: 925
diff changeset
  1228
vranyj1
parents: 925
diff changeset
  1229
    "Modified: / 10-08-2011 / 22:47:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
vranyj1
parents: 925
diff changeset
  1230
    "Created: / 26-08-2011 / 18:29:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
vranyj1
parents: 925
diff changeset
  1231
! !
866
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1232
!SignedLongIntegerArray class methodsFor:'accessing'!
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1233
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1234
javaComponentClass
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1235
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1236
    ^LargeInteger
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1237
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1238
    "Modified: / 25-06-2011 / 08:38:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1239
! !
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1240
!SignedLongIntegerArray class methodsFor:'accessing'!
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1241
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1242
javaName
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1243
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1244
    ^'[J'.
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1245
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1246
    "Modified: / 25-02-2011 / 19:03:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10d1f47af6d9 Few fixes for Mauve...
vranyj1
parents: 865
diff changeset
  1247
! !
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1248
!UndefinedObject class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1249
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1250
isJavaPrimitiveType
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1251
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1252
    "void"
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: / 21-12-2010 / 22:52:48 / 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
!UndefinedObject class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1259
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1260
javaName
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1261
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1262
    ^'void'.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1263
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1264
    "Modified: / 25-02-2011 / 18:59:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1265
! !
826
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
  1266
!WordArray class methodsFor:'testing'!
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
  1267
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
  1268
isInterface
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
  1269
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
  1270
    ^false
db53b9c842d7 - TestletTestCaseProxy: debugging support improved.
vranyj1
parents: 774
diff changeset
  1271
! !
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1272
!WordArray class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1273
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1274
isJavaArrayClass
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1275
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1276
    ^true
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1277
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1278
    "Created: / 20-12-2010 / 22:47:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1279
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1280
!WordArray class methodsFor:'queries'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1281
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1282
isJavaReferenceType
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1283
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1284
    "Java arrays are reference types"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1285
    ^true
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1286
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1287
    "Created: / 20-12-2010 / 22:30:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1288
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1289
!WordArray class methodsFor:'accessing-java'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1290
905
d03d9e05c581 Temporary commit. method resolving fixed
vranyj1
parents: 901
diff changeset
  1291
javaArrayClass
d03d9e05c581 Temporary commit. method resolving fixed
vranyj1
parents: 901
diff changeset
  1292
d03d9e05c581 Temporary commit. method resolving fixed
vranyj1
parents: 901
diff changeset
  1293
    ^JavaArray javaArrayClassFor: WordArray
d03d9e05c581 Temporary commit. method resolving fixed
vranyj1
parents: 901
diff changeset
  1294
d03d9e05c581 Temporary commit. method resolving fixed
vranyj1
parents: 901
diff changeset
  1295
    "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
  1296
    "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
  1297
! !
d03d9e05c581 Temporary commit. method resolving fixed
vranyj1
parents: 901
diff changeset
  1298
!WordArray class methodsFor:'accessing-java'!
d03d9e05c581 Temporary commit. method resolving fixed
vranyj1
parents: 901
diff changeset
  1299
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1300
javaComponentClass
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1301
1159
afe8ab363ca3 Mainly fixes:
vranyj1
parents: 1151
diff changeset
  1302
    ^JavaShort
752
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1303
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1304
    "Created: / 20-12-2010 / 22:13:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1305
! !
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1306
!WordArray class methodsFor:'accessing'!
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1307
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1308
javaName
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1309
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1310
    ^'['.
ff7bc6428c9c branch jk_new_structure resurrected
vranyj1
parents:
diff changeset
  1311
! !
1020
16b7733beeaf tiny little fix in test resource
hlopkmar
parents: 1009
diff changeset
  1312
!stx_libjava class methodsFor:'documentation'!
16b7733beeaf tiny little fix in test resource
hlopkmar
parents: 1009
diff changeset
  1313
16b7733beeaf tiny little fix in test resource
hlopkmar
parents: 1009
diff changeset
  1314
extensionsVersion_SVN
16b7733beeaf tiny little fix in test resource
hlopkmar
parents: 1009
diff changeset
  1315
    ^ '$Id$'
16b7733beeaf tiny little fix in test resource
hlopkmar
parents: 1009
diff changeset
  1316
! !