--- a/Tools_ClassList.st	Thu Feb 28 13:18:38 2008 +0100
+++ b/Tools_ClassList.st	Thu Feb 28 13:25:55 2008 +0100
@@ -1024,6 +1024,10 @@
     "Created: / 17-08-2006 / 09:12:32 / cg"
 !
 
+indentPerPrivacyLevel
+    ^ 4
+!
+
 listOfClasses
     |classesAlready classesOrdered generator nameSpaceFilter packageFilter allName hidePrivate
      privateClassesPerClass|
@@ -1131,7 +1135,7 @@
 !
 
 nameListEntryFor:aClass withNameSpace:useFullName
-    |nm indent index owner orgMode indentString javaPackage|
+    |nm indent owner orgMode indentString javaPackage|
 
     aClass == (self class nameListEntryForALL) ifTrue:[ ^ aClass ].
 
@@ -1177,23 +1181,26 @@
 
     "/ namespace
     indent := 0.
-    index := 1.
-    [(index := nm indexOf:$: startingAt:index) ~~ 0] whileTrue:[
-        indent := indent + 1.
-        index := index + 2.
-    ].
-    indent == 0 ifFalse:[
-        indent <= 5 ifTrue:[
+    indent := (nm count:[:char | char == $:]) // 2.
+    indent > 0 ifTrue:[
+        indent := indent * self indentPerPrivacyLevel.
+        indent <= 12 ifTrue:[
             indentString := #(
-                         ''
+                         ' '
                          '  '
+                         '   '
                          '    '
+                         '     '
                          '      '
+                         '       '
                          '        '
+                         '         '
                          '          '
-                       ) at:indent+1.
+                         '           '
+                         '            '
+                       ) at:indent.
         ] ifFalse:[
-            indentString := String new:indent*2 withAll:Character space.
+            indentString := String new:indent withAll:Character space.
         ].
         nm := indentString , '::' , aClass nameWithoutPrefix
     ].
@@ -1643,5 +1650,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.30 2008-02-27 12:25:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.31 2008-02-28 12:25:55 cg Exp $'
 ! !