--- a/Tools_HierarchicalClassList.st Wed Mar 14 13:14:33 2007 +0100
+++ b/Tools_HierarchicalClassList.st Wed Mar 14 15:51:26 2007 +0100
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libtool' }"
"{ NameSpace: Tools }"
@@ -247,29 +246,31 @@
aClass == InheritedEntry ifTrue:[ ^ aClass ].
nm := aClass name.
+ nm isNil ifTrue:[^ '???'].
+
indent := 0.
superClass := aClass superclass.
[superClass notNil] whileTrue:[
- indent := indent + 1.
- superClass := superClass superclass.
+ indent := indent + 1.
+ superClass := superClass superclass.
].
indent == 0 ifTrue:[
- ^ nm
+ ^ nm
].
indent <= 5 ifTrue:[
- indent := #(
- ''
- ' '
- ' '
- ' '
- ' '
- ' '
- ) at:indent+1.
+ indent := #(
+ ''
+ ' '
+ ' '
+ ' '
+ ' '
+ ' '
+ ) at:indent+1.
] ifFalse:[
- indent := String new:indent*4 withAll:Character space.
+ indent := String new:indent*4 withAll:Character space.
].
^ indent , nm
@@ -285,7 +286,7 @@
!HierarchicalClassList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassList.st,v 1.6 2006-03-28 17:45:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_HierarchicalClassList.st,v 1.7 2007-03-14 14:51:26 cg Exp $'
! !
HierarchicalClassList initialize!