--- a/JavaUnresolvedClassConstant.st Tue Jun 25 10:31:30 1996 +0000
+++ b/JavaUnresolvedClassConstant.st Tue Jun 25 19:55:27 1996 +0000
@@ -78,11 +78,24 @@
"Modified: 15.4.1996 / 16:26:05 / cg"
!
+resolveClass
+ |cls|
+
+ cls := Java classNamed:self className.
+ cls isNil ifTrue:[
+ Java rememberUnresolved:self.
+ ].
+ ^ cls
+
+ "Created: 15.4.1996 / 15:51:42 / cg"
+ "Modified: 15.4.1996 / 16:26:05 / cg"
+!
+
resolveFrom:aConstantTable
|cls nm s ref|
fullName := self class resolve:(aConstantTable at:index) from:aConstantTable.
-'resolve: ' print. fullName printCR.
+"/ 'resolve: ' print. fullName printCR.
cls := Java classNamed:fullName.
cls notNil ifTrue:[
@@ -113,5 +126,5 @@
!JavaUnresolvedClassConstant class methodsFor:'documentation'!
version
- ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaUnresolvedClassConstant.st,v 1.11 1996/06/25 08:19:35 cg Exp $'
+ ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaUnresolvedClassConstant.st,v 1.12 1996/06/25 19:55:27 cg Exp $'
! !