--- a/Tools_MethodCategoryList.st	Thu Oct 25 14:16:05 2012 +0200
+++ b/Tools_MethodCategoryList.st	Thu Oct 25 14:16:16 2012 +0200
@@ -861,7 +861,7 @@
              partiallyCoveredProtocols uncoveredProtocols
              noCat static notStatic classSelectorPairsAlreadyDone
              packages remainingClasses remainingCategories classesAlreadyDone noPackage
-             catListed|
+             catListed showChanged|
 
             noPackage := PackageId noProjectID.
             noCat := (self class nameListEntryForNILCategory).
@@ -897,6 +897,7 @@
                 (packages notNil and:[packages includes:(self class nameListEntryForALL)]) ifTrue:[
                     packages := nil.
                 ].
+                showChanged := packages notNil and:[packages includes:(self class nameListEntryForChanged)].
 
                 remainingClasses := leafClasses copy asIdentitySet.
                 remainingCategories := protocols copy asSet.
@@ -935,7 +936,8 @@
                                     or:[ mPkg = noPackage 
                                     or:[ (packages includes:mPkg)
                                     or:[ allProtocols "(extensionProtocols and:[ mthd isExtension ])"
-                                    ]]]
+                                    or:[ showChanged    
+                                    ]]]]
                                 ) ifTrue:[
                                     "/ used to be a more readable or, but to reuse info, I've splitted it.
                                     "/ because we should use the parser only once, we reuse the same methodInfo.
@@ -1164,7 +1166,7 @@
      itemsInChangeSet itemsInRemoteChangeSet
      itemsWithInstrumentedMethods itemsWithCalledMethods itemsWithUncalledMethods
      itemsWithPartiallyCoveredMethods itemsWithFullyCoveredMethods
-     packageFilterOnInput packageFilter nameListEntryForALL changeSet 
+     packageFilterOnInput packageFilter showChanges nameListEntryForALL changeSet 
      emphasizedPlus emphasisForRef emphasisForMod
      numAll numObsolete numSuper numUncommented numDocumentation numLong numOverride
      numRedefine numRedefined numExtension numMissingRequired numSubclassResponsibility
@@ -1195,6 +1197,10 @@
     (packageFilter notNil and:[packageFilter includes:nameListEntryForALL]) ifTrue:[
         packageFilter := nil
     ].
+    showChanges := false.
+    (packageFilter notNil and:[packageFilter includes:self class nameListEntryForChanged]) ifTrue:[
+        showChanges := true
+    ].
 
     categoryList := Set new.
     categoryBag := Bag new.
@@ -1288,7 +1294,9 @@
                                 |info cat suppress|
 
                                 (includedCats includes:(cat := mthd category)) ifTrue:[
-                                    suppress := packageFilter notNil and:[ (packageFilter includes:mthd package) not ].
+                                    suppress := packageFilter notNil 
+                                                and:[ (packageFilter includes:mthd package) not 
+                                                and:[ showChanges not ]].
                                     suppress ifFalse:[
                                         categoryBag add:cat.
                                         lazyPseudoProtocols ifFalse:[
@@ -2065,11 +2073,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.85 2012-10-23 18:20:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.86 2012-10-25 12:16:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.85 2012-10-23 18:20:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.86 2012-10-25 12:16:16 cg Exp $'
 ! !
 
 MethodCategoryList initialize!