--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/JavaUnresolvedStringConstant.st	Fri Apr 08 12:02:36 2011 +0000
@@ -0,0 +1,91 @@
+"
+ COPYRIGHT (c) 1997 by eXept Software AG
+              All Rights Reserved
+
+ 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.
+"
+"{ Package: 'stx:libjava' }"
+
+JavaUnresolvedConstant subclass:#JavaUnresolvedStringConstant
+	instanceVariableNames:'stringIndex'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Languages-Java-Reader-Support'
+!
+
+!JavaUnresolvedStringConstant class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1997 by eXept Software AG
+              All Rights Reserved
+
+ 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.
+"
+
+
+! !
+
+!JavaUnresolvedStringConstant class methodsFor:'instance creation'!
+
+pool:aPool poolIndex:index stringIndex:stringIndex
+    ^ self new 
+        pool:aPool poolIndex:index stringIndex:stringIndex
+
+
+! !
+
+!JavaUnresolvedStringConstant methodsFor:'accessing'!
+
+pool:aPool poolIndex:i stringIndex:string_index
+    constantPool := aPool.
+    constantPoolIndex := i.
+    stringIndex := string_index.
+
+! !
+
+!JavaUnresolvedStringConstant methodsFor:'resolving'!
+
+preResolve
+    |jString chars|
+
+    Java java_lang_String notNil ifTrue:[
+        chars := (constantPool at:stringIndex).
+        chars isString ifFalse:[
+            self halt:'should not happen'
+        ].
+        jString := Java as_String:chars.
+
+"/constantPool owner == (Java at:'java/awt/Container') ifTrue:[
+"/self halt
+"/].
+
+        constantPool at:constantPoolIndex put:jString.
+        ^ jString.
+    ].
+
+    self rememberForResolveWith:'java/lang/String'.
+    ^ self
+
+    "Modified: 7.8.1997 / 21:17:23 / cg"
+! !
+
+!JavaUnresolvedStringConstant class methodsFor:'documentation'!
+
+version
+    ^ '$Id$'
+!
+
+version_SVN
+    ^ '$Id$'
+! !