--- a/Tools_FullMethodCategoryList.st	Tue Sep 22 13:25:43 2009 +0200
+++ b/Tools_FullMethodCategoryList.st	Tue Sep 22 13:25:53 2009 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libtool' }"
 
 "{ NameSpace: Tools }"
@@ -61,50 +60,50 @@
       without a need for another classHolder/protocolHolder in the methodList)."
 
     ^ Iterator on:[:whatToDo |
-			|protocols all packages theProtocol|
+                        |protocols all packages theProtocol|
 
-			protocols := self selectedProtocols value ? #().
+                        protocols := self selectedProtocols value ? #().
 
-			all := protocols includes:(self class nameListEntryForALL).
-			packages := packageFilter value value.
+                        all := protocols includes:(self class nameListEntryForALL).
+                        packages := packageFilter value value.
 
-			protocols size > 0 ifTrue:[
-			    protocols size == 1 ifTrue:[
-				theProtocol := protocols first.
-				Smalltalk allClassesDo:[:eachClass |
-				    eachClass instAndClassSelectorsAndMethodsDo:[:sel :eachMethod |
-					|cat|
+                        protocols size > 0 ifTrue:[
+                            protocols size == 1 ifTrue:[
+                                theProtocol := protocols first.
+                                Smalltalk allClassesDo:[:eachClass |
+                                    eachClass instAndClassSelectorsAndMethodsDo:[:sel :eachMethod |
+                                        |cat|
 
-					cat := eachMethod category.
-					(all 
-					or:[theProtocol = cat]) ifTrue:[
-					    (packages isNil
-					    or:[packages includes:eachMethod package])
-					    ifTrue:[
-						whatToDo value:eachMethod mclass value:cat value:sel value:eachMethod.
-					    ].
-					].
-				    ].
-				]
-			    ] ifFalse:[
-				Smalltalk allClassesDo:[:eachClass |
-				    eachClass instAndClassSelectorsAndMethodsDo:[:sel :eachMethod |
-					|cat|
+                                        cat := eachMethod category.
+                                        (all 
+                                        or:[theProtocol = cat]) ifTrue:[
+                                            (packages isNil
+                                            or:[packages includes:eachMethod package])
+                                            ifTrue:[
+                                                whatToDo value:eachClass value:cat value:sel value:eachMethod.
+                                            ].
+                                        ].
+                                    ].
+                                ]
+                            ] ifFalse:[
+                                Smalltalk allClassesDo:[:eachClass |
+                                    eachClass instAndClassSelectorsAndMethodsDo:[:sel :eachMethod |
+                                        |cat|
 
-					cat := eachMethod category.
-					(all 
-					or:[protocols includes:cat]) ifTrue:[
-					    (packages isNil
-					    or:[packages includes:eachMethod package])
-					    ifTrue:[
-						whatToDo value:eachMethod mclass value:cat value:sel value:eachMethod.
-					    ].
-					].
-				    ].
-				]
-			    ]
-			]
-		  ]
+                                        cat := eachMethod category.
+                                        (all 
+                                        or:[protocols includes:cat]) ifTrue:[
+                                            (packages isNil
+                                            or:[packages includes:eachMethod package])
+                                            ifTrue:[
+                                                whatToDo value:eachClass value:cat value:sel value:eachMethod.
+                                            ].
+                                        ].
+                                    ].
+                                ]
+                            ]
+                        ]
+                  ]
 ! !
 
 !FullMethodCategoryList methodsFor:'private'!
@@ -124,5 +123,5 @@
 !FullMethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_FullMethodCategoryList.st,v 1.4 2006-03-10 10:13:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_FullMethodCategoryList.st,v 1.5 2009-09-22 11:25:53 cg Exp $'
 ! !