--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/JavaAnnotationPrimitiveValue.st	Thu Nov 15 22:10:02 2012 +0000
@@ -0,0 +1,82 @@
+"
+ COPYRIGHT (c) 1996-2011 by Claus Gittinger
+
+ New code and modifications done at SWING Research Group [1]:
+
+ COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
+                            SWING Research Group, Czech Technical University in Prague
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+
+ [1] Code written at SWING Research Group contains a signature
+     of one of the above copright owners. For exact set of such code,
+     see the differences between this version and version stx:libjava
+     as of 1.9.2010
+"
+"{ Package: 'stx:libjava' }"
+
+JavaAnnotationValue subclass:#JavaAnnotationPrimitiveValue
+	instanceVariableNames:'valueIndex value'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Languages-Java-Reader-Support'
+!
+
+!JavaAnnotationPrimitiveValue class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1996-2011 by Claus Gittinger
+
+ New code and modifications done at SWING Research Group [1]:
+
+ COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
+                            SWING Research Group, Czech Technical University in Prague
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+
+ [1] Code written at SWING Research Group contains a signature
+     of one of the above copright owners. For exact set of such code,
+     see the differences between this version and version stx:libjava
+     as of 1.9.2010
+
+"
+! !
+
+!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>"
+    "Modified: / 27-07-2011 / 09:35:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!JavaAnnotationPrimitiveValue class methodsFor:'documentation'!
+
+version_SVN
+    ^ '$Id$'
+! !