Fixed class name for Java classes in default package
authorJan Vrany <jan.vrany@fit.cvut.cz>
Fri, 27 Mar 2015 17:19:41 +0100
changeset 15563 12ac77d55455
parent 15562 97647e9841b7
child 15564 463ce88788ca
Fixed class name for Java classes in default package
Tools__ClassList.st
--- a/Tools__ClassList.st	Fri Mar 27 16:53:13 2015 +0100
+++ b/Tools__ClassList.st	Fri Mar 27 17:19:41 2015 +0100
@@ -1964,7 +1964,7 @@
 !
 
 nameListEntryFor:aClass withNameSpace:useFullName
-    |sortByNameAndInheritanceValue nm indent owner orgMode indentString javaPackage|
+    |sortByNameAndInheritanceValue nm indent owner orgMode indentString |
 
     aClass == (self class nameListEntryForALL) ifTrue:[ ^ aClass ].
 
@@ -2008,16 +2008,20 @@
     ].
 
     aClass isJavaClass ifTrue:[
+        | package javaPackage |
         "/ only show the last name, unless multiple packages are shown in the list
-        javaPackage := aClass package.
-        (self classList value contains:[:cls | cls package ~= javaPackage]) ifFalse:[
-            | i |
+        package := aClass package.
+        javaPackage := aClass javaPackage.
+        javaPackage notEmptyOrNil ifTrue:[
+            (self classList value contains:[:cls | cls package ~= package]) ifFalse:[ 
+                | i |
 
-            i := nm string indexOfNonSeparator.
-            nm := nm copyFrom: i + (aClass javaPackage size + 1).     
-            i > 0 ifTrue:[ 
-                nm := (String new: i - 1) , nm
-            ].
+                i := nm string indexOfNonSeparator.
+                nm := nm copyFrom: i + (javaPackage size + 1).     
+                i > 0 ifTrue:[ 
+                    nm := (String new: i - 1) , nm
+                ].
+            ]
         ].
         ^ nm
     ].
@@ -2053,7 +2057,7 @@
     ^ nm
 
     "Modified: / 04-07-2011 / 19:00:45 / cg"
-    "Modified: / 25-02-2015 / 16:18:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 27-03-2015 / 16:23:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 nameListIndentStringFor:aClass withNameSpace:useFullName
@@ -2138,10 +2142,10 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.92 2015-02-25 15:25:07 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.93 2015-03-27 16:19:41 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.92 2015-02-25 15:25:07 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.93 2015-03-27 16:19:41 vrany Exp $'
 ! !