--- a/src/JavaField.st Sat Aug 13 01:26:52 2011 +0000
+++ b/src/JavaField.st Sun Aug 14 18:49:52 2011 +0000
@@ -42,8 +42,8 @@
"{ Package: 'stx:libjava' }"
Object subclass:#JavaField
- instanceVariableNames:'accessFlags class name signature index constantValue annotations
- constantPool'
+ instanceVariableNames:'accessFlags class name descriptor signature index constantValue
+ annotations constantPool'
classVariableNames:'A_FINAL A_PRIVATE A_PROTECTED A_PUBLIC A_STATIC A_TRANSIENT
A_VOLATILE A_SMALLTALK A_SYBTHETIC A_ENUM FieldTypeClasses'
poolDictionaries:''
@@ -262,23 +262,7 @@
"Created: / 13-08-2011 / 00:42:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
-!JavaField methodsFor:'printing & storing'!
-
-printOn: aStream
-
- super printOn: aStream.
- aStream
- nextPutAll:'(name: ';
- nextPutAll: name;
- nextPut:$,; space;
- nextPutAll:'descriptor: ';
- nextPutAll: signature;
- nextPut:$)
-
- "Created: / 22-05-2011 / 16:07:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!JavaField methodsFor:'private accessing'!
+!JavaField methodsFor:'initialization'!
setAccessFlags:flags
accessFlags := flags.
@@ -307,6 +291,14 @@
"Created: 16.4.1996 / 13:04:58 / cg"
!
+setDescriptor:aString
+
+ descriptor := aString.
+
+ "Created: / 16-04-1996 / 13:04:43 / cg"
+ "Created: / 14-08-2011 / 19:40:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
setIndex:anInteger
index := anInteger.
@@ -325,6 +317,22 @@
"Created: 16.4.1996 / 13:04:43 / cg"
! !
+!JavaField methodsFor:'printing & storing'!
+
+printOn: aStream
+
+ super printOn: aStream.
+ aStream
+ nextPutAll:'(name: ';
+ nextPutAll: name;
+ nextPut:$,; space;
+ nextPutAll:'descriptor: ';
+ nextPutAll: signature;
+ nextPut:$)
+
+ "Created: / 22-05-2011 / 16:07:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!JavaField methodsFor:'queries'!
initialValue
@@ -376,9 +384,10 @@
!
type
- ^ JavaMethod typeFromSignature:signature in:nil
+ ^ JavaMethod typeFromSignature:descriptor in:nil
- "Modified: / 8.1.1998 / 19:13:22 / cg"
+ "Modified: / 08-01-1998 / 19:13:22 / cg"
+ "Modified: / 14-08-2011 / 19:43:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
typeClass