--- a/Tools_BrowserList.st	Wed Jul 06 11:44:35 2011 +0200
+++ b/Tools_BrowserList.st	Wed Jul 06 11:45:05 2011 +0200
@@ -1057,6 +1057,10 @@
 !
 
 classesToProcessForClasses:classes withVisibility:visibility
+    "for methodCategory and methodList, depending on the setting
+     of visibility (allButObject, includeAllSupers or class only),
+     return a combined hull set of classes for a given set."
+
     |classesToProcess classesToProcessInOrder|
 
     visibility isNil ifTrue:[^classes].
@@ -1065,26 +1069,28 @@
     classesToProcess := IdentitySet new.
     classesToProcessInOrder := OrderedCollection new.
     classes notNil ifTrue:[
-	classes do:[:eachClass |
-	    |withAllSupers|
+        classes do:[:eachClass |
+            |withAllSupers|
 
-	    withAllSupers := eachClass withAllSuperclasses.
-	    visibility == #allButObject ifTrue:[
-		eachClass isMeta ifTrue:[
-		    withAllSupers removeAllFoundIn:(Object class withAllSuperclasses)
-		] ifFalse:[
-		    withAllSupers remove:Object ifAbsent:nil
-		]
-	    ].
-	    withAllSupers do:[:each |
-		(classesToProcess includes:each) ifFalse:[
-		    classesToProcess add:each. 
-		    classesToProcessInOrder add:each. 
-		]
-	    ]
-	].
+            withAllSupers := eachClass withAllSuperclasses.
+            visibility == #allButObject ifTrue:[
+                eachClass isMeta ifTrue:[
+                    withAllSupers removeAllFoundIn:(Object class withAllSuperclasses)
+                ] ifFalse:[
+                    withAllSupers remove:Object ifAbsent:nil
+                ]
+            ].
+            withAllSupers do:[:each |
+                (classesToProcess includes:each) ifFalse:[
+                    classesToProcess add:each. 
+                    classesToProcessInOrder add:each. 
+                ]
+            ]
+        ].
     ].
     ^ classesToProcessInOrder
+
+    "Modified (comment): / 06-07-2011 / 11:21:16 / cg"
 !
 
 colorize:aString with:emphasis
@@ -1433,5 +1439,5 @@
 !BrowserList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.31 2011-07-04 19:49:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.32 2011-07-06 09:45:05 cg Exp $'
 ! !