src/JavaAnnotationPrimitiveValue.st
branchjk_new_structure
changeset 752 ff7bc6428c9c
child 877 f5a5b93e1c78
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/JavaAnnotationPrimitiveValue.st	Fri Apr 08 12:02:36 2011 +0000
@@ -0,0 +1,36 @@
+"{ Package: 'stx:libjava' }"
+
+JavaAnnotationValue subclass:#JavaAnnotationPrimitiveValue
+	instanceVariableNames:'valueIndex value'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Languages-Java-Reader-Support'
+!
+
+
+!JavaAnnotationPrimitiveValue methodsFor:'accessing'!
+
+value
+    value isNil ifTrue: [^self constantPool at: valueIndex].
+    ^value.
+
+    "Created: / 17-12-2010 / 14:31:10 / Marcel Hlopko <hlopik@gmail.com>"
+    "Modified: / 17-12-2010 / 19:10:19 / Marcel Hlopko <hlopik@gmail.com>"
+!
+
+valueIndex
+    ^ valueIndex
+!
+
+valueIndex:something
+    valueIndex := something.
+    value := self constantPool at: something.
+
+    "Modified: / 17-12-2010 / 19:10:46 / Marcel Hlopko <hlopik@gmail.com>"
+! !
+
+!JavaAnnotationPrimitiveValue class methodsFor:'documentation'!
+
+version_SVN
+    ^ '$Id$'
+! !