diff -r 53d44b8bdd6b -r c3394838ddbd VersionDiffBrowser.st --- a/VersionDiffBrowser.st Wed Nov 11 17:49:42 2009 +0100 +++ b/VersionDiffBrowser.st Wed Nov 11 17:54:02 2009 +0100 @@ -1682,12 +1682,25 @@ isExtensionChange := [:change | - |packageOfMethod ignored| + |packageOfMethodInChange packageOfMethodInImage changeMethod ignored| + + ignored := false. + packageOfMethodInChange := change package. + (packageOfMethodInChange notNil + and:[ packageOfMethodInChange ~= PackageId noProjectID + and:[ packageOfMethodInChange ~= change changeClass package ]]) ifTrue:[ + ignored := true + ]. - packageOfMethod := change package. - ignored := packageOfMethod notNil - and:[ packageOfMethod ~= PackageId noProjectID - and:[ packageOfMethod ~= change changeClass package ]]. + changeMethod := change changeMethod. + changeMethod notNil ifTrue:[ + packageOfMethodInImage := changeMethod package. + (packageOfMethodInImage notNil + and:[ packageOfMethodInImage ~= PackageId noProjectID + and:[ packageOfMethodInImage ~= changeMethod mclass package ]]) ifTrue:[ + ignored := true + ]. + ]. numIgnoredExtensions := numIgnoredExtensions + (ignored ifTrue:[1] ifFalse:[0]). ignored. ]. @@ -2180,9 +2193,9 @@ !VersionDiffBrowser class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.87 2009-11-11 16:49:42 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.88 2009-11-11 16:54:02 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.87 2009-11-11 16:49:42 cg Exp $' + ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.88 2009-11-11 16:54:02 cg Exp $' ! !