--- a/Tools_NamespaceList.st	Mon Mar 13 12:31:15 2006 +0100
+++ b/Tools_NamespaceList.st	Mon Mar 13 12:31:29 2006 +0100
@@ -407,33 +407,33 @@
     allNamespaces := IdentitySet new.
 
     inGeneratorHolder isNil ifTrue:[
-	(self hideUnloadedClasses value) ifTrue:[
-	    Smalltalk allClassesDo:[:eachClass |
-		eachClass isLoaded ifTrue:[
-		    allNamespaces add:(eachClass theNonMetaclass topNameSpace)
-		].
-	    ]
-	] ifFalse:[
-	    allNamespaces := NameSpace allNamespaces.
-	].
+        (self hideUnloadedClasses value) ifTrue:[
+            Smalltalk allClassesDo:[:eachClass |
+                eachClass isLoaded ifTrue:[
+                    allNamespaces add:(eachClass theNonMetaclass topNameSpace)
+                ].
+            ]
+        ] ifFalse:[
+            allNamespaces := NameSpace allNameSpaces.
+        ].
 
-	showAllNamespaces ifFalse:[
-	    "/ only topLevel namespaces are shown
-	    "/ i.e. ignore subspaces 
+        showAllNamespaces ifFalse:[
+            "/ only topLevel namespaces are shown
+            "/ i.e. ignore subspaces 
 
-	    allNamespaces := allNamespaces select:[:ns | ns isTopLevelNameSpace].
-	].
-	allNamespaces := allNamespaces collect:[:ns | ns name].
+            allNamespaces := allNamespaces select:[:ns | ns isTopLevelNameSpace].
+        ].
+        allNamespaces := allNamespaces collect:[:ns | ns name].
     ] ifFalse:[
-	generator := inGeneratorHolder value.
-	generator isNil ifTrue:[^ #() ].
-	generator do:[:ns | allNamespaces add:ns].
+        generator := inGeneratorHolder value.
+        generator isNil ifTrue:[^ #() ].
+        generator do:[:ns | allNamespaces add:ns].
     ].
 
     allNamespaces := allNamespaces asOrderedCollection.
     allNamespaces sort.
     allNamespaces size == 1 ifTrue:[
-	self nameSpaceLabelHolder value:(LabelAndIcon icon:(self class nameSpaceIcon) string:allNamespaces first).
+        self nameSpaceLabelHolder value:(LabelAndIcon icon:(self class nameSpaceIcon) string:allNamespaces first).
     ].
     allNamespaces addFirst:(self class nameListEntryForALL).
     ^ allNamespaces
@@ -484,5 +484,5 @@
 !NamespaceList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NamespaceList.st,v 1.2 2004-02-26 19:03:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NamespaceList.st,v 1.3 2006-03-13 11:31:29 cg Exp $'
 ! !