# HG changeset patch # User cg # Date 967830717 0 # Node ID 8dff2afd1eade388c68e366a6dfac01368e3819e # Parent dcd829fd4094767e8d4b16a78c596c09b0ca4832 checkin from browser diff -r dcd829fd4094 -r 8dff2afd1ead 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!