JavaStringRef2.st
branchcvs_MAIN
changeset 3360 1a8899091305
parent 3330 b14c58b2876c
child 3412 df11bb428463
--- a/JavaStringRef2.st	Fri Feb 14 14:27:26 2014 +0100
+++ b/JavaStringRef2.st	Wed Jan 28 03:12:08 2015 +0100
@@ -1,9 +1,9 @@
 "
- COPYRIGHT (c) 1996-2011 by Claus Gittinger
+ COPYRIGHT (c) 1996-2015 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
+ COPYRIGHT (c) 2010-2015 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
@@ -20,6 +20,8 @@
 "
 "{ Package: 'stx:libjava' }"
 
+"{ NameSpace: Smalltalk }"
+
 JavaRef2 subclass:#JavaStringRef2
 	instanceVariableNames:'valueIndex'
 	classVariableNames:''
@@ -31,11 +33,11 @@
 
 copyright
 "
- COPYRIGHT (c) 1996-2011 by Claus Gittinger
+ COPYRIGHT (c) 1996-2015 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
+ COPYRIGHT (c) 2010-2015 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
@@ -51,6 +53,22 @@
      as of 1.9.2010
 
 "
+!
+
+documentation
+"
+    A java.lang.String literal value.
+
+    [author:]
+        Jan Vrany <jan.vrany@fit.cvut.cz>
+
+    [instance variables:]
+
+    [class variables:]
+
+    [see also:]
+
+"
 ! !
 
 !JavaStringRef2 class methodsFor:'instance creation'!
@@ -76,7 +94,7 @@
 findResolvedValue: doClassInit
     | myIndex |
 
-    valueCache := 
+    resolvedValue := 
             JavaVM 
                 javaStringObjectForString: (constantPool at: valueIndex)
                 interned: true.
@@ -89,7 +107,7 @@
 "/    myIndex := constantPool identityIndexOf: self.
 "/    myIndex == 0 ifTrue:[self error:'Constant pool messed up. Should not happen'].
 "/    constantPool at: myIndex put: valueCache.
-    ^ valueCache.
+    ^ resolvedValue.
 
     "Created: / 13-05-2011 / 17:21:49 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
     "Created: / 23-02-2012 / 17:18:21 / Marcel Hlopko <hlopik@gmail.com>"
@@ -102,13 +120,13 @@
     "Created: / 13-05-2011 / 17:20:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
 !
 
-invalidateForClass: internalJavaClassName
-   "Invalidates receiver iff it refers (even indirectly)
-    to a class ref that has been resolved to given class.
-    Returns true, if the receiver has been invalidated,
-    false otherwise"
-
-    ^false
+invalidateForClass: internalJavaClassName 
+    "Invalidates receiver iff it refers (even indirectly)
+     to a class ref that has been resolved to given class.
+     Returns true, if the receiver has been invalidated,
+     false otherwise"
+    
+    ^ false
 
     "Created: / 13-05-2011 / 17:22:34 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
     "Modified: / 22-02-2012 / 20:52:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -157,7 +175,7 @@
 !JavaStringRef2 class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libjava/JavaStringRef2.st,v 1.5 2013-09-06 00:41:26 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libjava/JavaStringRef2.st,v 1.6 2015-01-28 02:10:50 vrany Exp $'
 !
 
 version_HG
@@ -166,6 +184,6 @@
 !
 
 version_SVN
-    ^ '§Id§'
+    ^ 'Id'
 ! !