checkin from browser
authorcg
Tue, 25 Jun 1996 19:55:27 +0000
changeset 70 ffdc3ff494c1
parent 69 7918222f9544
child 71 feb1b4907dd4
checkin from browser
JavaUnresolvedClassConstant.st
--- 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 $'
 ! !