--- 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'
! !