checkin from browser
authorcg
Fri, 01 Sep 2000 17:51:57 +0000
changeset 689 8dff2afd1ead
parent 688 dcd829fd4094
child 690 c9faa0d724d6
checkin from browser
JavaClass.st
--- a/JavaClass.st	Fri Sep 01 15:22:34 2000 +0000
+++ b/JavaClass.st	Fri Sep 01 17:51:57 2000 +0000
@@ -761,7 +761,9 @@
 
     i := fullName lastIndexOf:$/.
     p := fullName copyTo:i - 1.
-
+    p size == 0 ifTrue:[
+        ^ 'java'
+    ].
 "/    components := fullName asCollectionOfSubstringsSeparatedBy:$/.
 "/    components size > 1 ifTrue:[
 "/        p := (components copyWithoutLast:1) asStringWith:$/
@@ -1777,6 +1779,6 @@
 !JavaClass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.116 2000/09/01 10:09:50 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.117 2000/09/01 17:51:57 cg Exp $'
 ! !
 JavaClass initialize!