JavaUnresolvedClassConstant.st
branchcvs_MAIN
changeset 3360 1a8899091305
parent 3324 a58245c0e83a
child 3412 df11bb428463
--- a/JavaUnresolvedClassConstant.st	Fri Feb 14 14:27:26 2014 +0100
+++ b/JavaUnresolvedClassConstant.st	Wed Jan 28 03:12:08 2015 +0100
@@ -1,9 +1,9 @@
 "
- COPYRIGHT (c) 1996-2011 by Claus Gittinger
+ COPYRIGHT (c) 1996-2015 by Claus Gittinger
 
  New code and modifications done at SWING Research Group [1]:
 
- COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
+ COPYRIGHT (c) 2010-2015 by Jan Vrany, Jan Kurs and Marcel Hlopko
                             SWING Research Group, Czech Technical University in Prague
 
  This software is furnished under a license and may be used
@@ -31,11 +31,11 @@
 
 copyright
 "
- COPYRIGHT (c) 1996-2011 by Claus Gittinger
+ COPYRIGHT (c) 1996-2015 by Claus Gittinger
 
  New code and modifications done at SWING Research Group [1]:
 
- COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
+ COPYRIGHT (c) 2010-2015 by Jan Vrany, Jan Kurs and Marcel Hlopko
                             SWING Research Group, Czech Technical University in Prague
 
  This software is furnished under a license and may be used
@@ -61,7 +61,7 @@
     ref := Java unresolvedClassRefFor:nm.
     ref notNil ifTrue:[^ ref].
 
-    ref := self new setFullName:nm.
+    ref := self new setBinaryName: nm.
     Java rememberUnresolved:ref.
     ^ ref
 
@@ -128,7 +128,7 @@
         cls notNil ifTrue:[
             ^ cls
         ].
-        ^ JavaUnresolvedClassConstant basicNew setFullName:refClassName
+        ^ JavaUnresolvedClassConstant basicNew setBinaryName: refClassName
     ].
     (fullName startsWith:'[[C') ifTrue:[
         ^ JavaBuiltInClassPointerRef new nameandType:'[C'.
@@ -176,12 +176,13 @@
 !
 
 lastName
+    | idx |
 
-    | idx |
-    idx := fullName lastIndexOf: $/.
-    ^idx ifNil:[fullName] ifNotNil:[fullName copyFrom: idx + 1].
+    idx := fullName lastIndexOf:$/.
+    ^ idx isNil ifTrue:[ fullName ] ifFalse:[ fullName copyFrom:idx + 1 ].
 
     "Created: / 18-10-2010 / 22:20:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-08-2014 / 15:50:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 name
@@ -206,7 +207,7 @@
 
 !
 
-setFullName:aNameString
+setBinaryName: aNameString 
     fullName := aNameString
 
     "Created: 7.4.1997 / 13:37:45 / cg"
@@ -353,14 +354,14 @@
 !JavaUnresolvedClassConstant class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libjava/JavaUnresolvedClassConstant.st,v 1.49 2013-09-06 00:41:27 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libjava/JavaUnresolvedClassConstant.st,v 1.50 2015-01-28 02:10:50 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libjava/JavaUnresolvedClassConstant.st,v 1.49 2013-09-06 00:41:27 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libjava/JavaUnresolvedClassConstant.st,v 1.50 2015-01-28 02:10:50 vrany Exp $'
 !
 
 version_SVN
-    ^ '§Id§'
+    ^ 'Id'
 ! !