--- a/Tools_MethodCategoryList.st	Mon Sep 21 14:50:29 2009 +0200
+++ b/Tools_MethodCategoryList.st	Mon Sep 21 15:11:31 2009 +0200
@@ -768,7 +768,7 @@
     ^ Iterator 
         on:[:whatToDo |
             |protocols 
-             allProtocols superSendProtocols uncommentedProtocols obsoleteProtocols
+             allProtocols superSendProtocols uncommentedProtocols obsoleteProtocols documentationProtocols
              noCat static notStatic classSelectorPairsAlreadyDone
              packages remainingClasses remainingCategories classesAlreadyDone noPackage|
 
@@ -787,6 +787,7 @@
                 superSendProtocols := protocols includes:(self class nameListEntryForSuperSend).
                 uncommentedProtocols := protocols includes:(self class nameListEntryForUncommented).
                 obsoleteProtocols := protocols includes:(self class nameListEntryForObsolete).
+                documentationProtocols := protocols includes:(self class nameListEntryForDocumentation).
 
 "/                packages := packageFilter value value.
 "/                (packages notNil and:[packages includes:(self class nameListEntryForALL)]) ifTrue:[
@@ -825,8 +826,9 @@
                                 (allProtocols 
                                 or:[ (protocols includes:cat)
                                 or:[ (superSendProtocols and:[ mthd superMessages notEmptyOrNil ]) 
-                                or:[ (uncommentedProtocols and:[ mthd comment isEmptyOrNil ])
-                                or:[ (obsoleteProtocols and:[ mthd isObsolete ]) ]]]]) ifTrue:[
+                                or:[ (uncommentedProtocols and:[ mthd comment isEmptyOrNil and:[ mthd isVersionMethod not]])
+                                or:[ (obsoleteProtocols and:[ mthd isObsolete ])
+                                or:[ (documentationProtocols and:[mthd isDocumentationMethod]) ]]]]]) ifTrue:[
                                     mPkg := mthd package.
                                     (packages isNil or:[mPkg = noPackage or:[packages includes:mPkg]])
                                     ifTrue:[
@@ -945,7 +947,7 @@
      itemsInChangeSet itemsInRemoteChangeSet
      packageFilterOnInput packageFilter nameListEntryForALL changeSet 
      emphasizedPlus emphasisForRef emphasisForMod
-     numObsolete numSuper numUncommented|
+     numObsolete numSuper numUncommented numDocumentation|
 
     generator := inGeneratorHolder value.
     generator isNil ifTrue:[ ^ #() ].
@@ -973,7 +975,7 @@
     leafClassesProcessed := IdentitySet new.
     variablesToHighlight := variableFilter value.
     classVarsToHighLight := filterClassVars value.
-    numObsolete := numSuper := numUncommented := 0.
+    numObsolete := numSuper := numUncommented := numDocumentation := 0.
 
     generator do:[:clsIn :catIn | 
                         |emptyProtocols clsName doHighLight doHighLightRed suppress|
@@ -1015,12 +1017,21 @@
                                                     ].
                                                 ]
                                             ]
-                                        ].
+                                        ].     
                                         cls selectorsAndMethodsDo:[:sel :mthd |
                                             mthd category = cat ifTrue:[
                                                 mthd isObsolete ifTrue:[ numObsolete := numObsolete + 1 ].
                                                 mthd superMessages notEmptyOrNil ifTrue:[ numSuper := numSuper + 1 ].
-                                                mthd comment isEmptyOrNil ifTrue:[ numUncommented := numUncommented + 1 ].
+                                                mthd comment isEmptyOrNil ifTrue:[
+                                                    "/ version method does not count !!
+                                                    mthd isVersionMethod ifFalse:[
+                                                        numUncommented := numUncommented + 1 
+                                                    ].
+                                                ] ifFalse:[
+                                                    mthd isDocumentationMethod ifTrue:[
+                                                        numDocumentation := numDocumentation + 1 
+                                                    ].
+                                                ].
                                             ]
                                         ].
 
@@ -1161,6 +1172,10 @@
                 categoryList add:((self class nameListEntryForSuperSend bindWith:numSuper) asText allItalic).
                 rawProtocolList add:self class nameListEntryForSuperSend.
             ].
+            numDocumentation > 0 ifTrue:[
+                categoryList add:((self class nameListEntryForDocumentation bindWith:numDocumentation) asText allItalic).
+                rawProtocolList add:self class nameListEntryForDocumentation.
+            ].
             numUncommented > 0 ifTrue:[
                 categoryList add:((self class nameListEntryForUncommented bindWith:numUncommented) asText allItalic).
                 rawProtocolList add:self class nameListEntryForUncommented.
@@ -1168,7 +1183,7 @@
             numObsolete > 0 ifTrue:[
                 categoryList add:((self class nameListEntryForObsolete bindWith:numObsolete) asText allItalic).
                 rawProtocolList add:self class nameListEntryForObsolete.
-            ]
+            ].
         ].
     ].
     ^ categoryList
@@ -1349,5 +1364,5 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.26 2009-09-18 12:32:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.27 2009-09-21 13:11:31 cg Exp $'
 ! !