JavaUnresolvedConstant subclass:#JavaUnresolvedStringConstant
instanceVariableNames:'stringIndex'
classVariableNames:''
poolDictionaries:''
category:'Java-Reader-Support'
!
!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
^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaUnresolvedStringConstant.st,v 1.6 1997/08/08 11:33:17 cg Exp $'
! !