src/JavaAnnotationClassValue.st
branchjk_new_structure
changeset 752 ff7bc6428c9c
child 877 f5a5b93e1c78
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/JavaAnnotationClassValue.st	Fri Apr 08 12:02:36 2011 +0000
@@ -0,0 +1,33 @@
+"{ Package: 'stx:libjava' }"
+
+JavaAnnotationValue subclass:#JavaAnnotationClassValue
+	instanceVariableNames:'classIndex'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Languages-Java-Reader-Support'
+!
+
+
+!JavaAnnotationClassValue methodsFor:'accessing'!
+
+classIndex
+    ^ classIndex
+!
+
+classIndex:something
+    classIndex := something.
+!
+
+value
+    "superclass JavaAnnotationValue says that I am responsible to implement this method"
+
+    ^ self constantPool at:classIndex.
+
+    "Modified: / 17-12-2010 / 14:42:17 / Marcel Hlopko <hlopik@gmail.com>"
+! !
+
+!JavaAnnotationClassValue class methodsFor:'documentation'!
+
+version_SVN
+    ^ '$Id$'
+! !