JavaUnresolvedClassConstant.st
changeset 50 458467ce0e15
parent 41 eb7974d88088
child 52 1dc41619b6f8
--- a/JavaUnresolvedClassConstant.st	Mon May 06 10:06:41 1996 +0000
+++ b/JavaUnresolvedClassConstant.st	Mon May 06 10:07:23 1996 +0000
@@ -35,7 +35,15 @@
 !JavaUnresolvedClassConstant methodsFor:'resolving'!
 
 resolve
-    ^ Java classNamed:fullName.
+    |cls|
+
+    cls := Java classNamed:fullName.
+    cls isNil ifTrue:[^ self].
+
+    pool notNil ifTrue:[
+        pool at:poolIndex put:cls
+    ].
+    ^ cls
 
     "Created: 15.4.1996 / 15:51:42 / cg"
     "Modified: 15.4.1996 / 16:26:05 / cg"
@@ -61,5 +69,5 @@
 !JavaUnresolvedClassConstant class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaUnresolvedClassConstant.st,v 1.7 1996/05/03 11:28:46 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaUnresolvedClassConstant.st,v 1.8 1996/05/06 10:07:09 cg Exp $'
 ! !