VersionDiffBrowser.st
changeset 9242 c3394838ddbd
parent 9241 53d44b8bdd6b
child 9259 e9010caf7cb2
equal deleted inserted replaced
9241:53d44b8bdd6b 9242:c3394838ddbd
  1680 
  1680 
  1681     numIgnoredExtensions := 0.
  1681     numIgnoredExtensions := 0.
  1682 
  1682 
  1683     isExtensionChange := 
  1683     isExtensionChange := 
  1684         [:change |
  1684         [:change |
  1685             |packageOfMethod ignored|
  1685             |packageOfMethodInChange packageOfMethodInImage changeMethod ignored|
  1686 
  1686 
  1687             packageOfMethod := change package.
  1687             ignored := false.
  1688             ignored := packageOfMethod notNil
  1688             packageOfMethodInChange := change package.
  1689                         and:[ packageOfMethod ~= PackageId noProjectID
  1689             (packageOfMethodInChange notNil
  1690                         and:[ packageOfMethod ~= change changeClass package ]].
  1690               and:[ packageOfMethodInChange ~= PackageId noProjectID
       
  1691               and:[ packageOfMethodInChange ~= change changeClass package ]]) ifTrue:[ 
       
  1692                 ignored := true 
       
  1693             ].
       
  1694 
       
  1695             changeMethod := change changeMethod.
       
  1696             changeMethod notNil ifTrue:[
       
  1697                 packageOfMethodInImage := changeMethod package.
       
  1698                 (packageOfMethodInImage notNil
       
  1699                   and:[ packageOfMethodInImage ~= PackageId noProjectID
       
  1700                   and:[ packageOfMethodInImage ~= changeMethod mclass package ]]) ifTrue:[
       
  1701                     ignored := true
       
  1702                 ].
       
  1703             ].
  1691             numIgnoredExtensions := numIgnoredExtensions + (ignored ifTrue:[1] ifFalse:[0]).
  1704             numIgnoredExtensions := numIgnoredExtensions + (ignored ifTrue:[1] ifFalse:[0]).
  1692             ignored.
  1705             ignored.
  1693         ].
  1706         ].
  1694 
  1707 
  1695     listOnlyInA := self methodsOnlyInA. 
  1708     listOnlyInA := self methodsOnlyInA. 
  2178 ! !
  2191 ! !
  2179 
  2192 
  2180 !VersionDiffBrowser class methodsFor:'documentation'!
  2193 !VersionDiffBrowser class methodsFor:'documentation'!
  2181 
  2194 
  2182 version
  2195 version
  2183     ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.87 2009-11-11 16:49:42 cg Exp $'
  2196     ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.88 2009-11-11 16:54:02 cg Exp $'
  2184 !
  2197 !
  2185 
  2198 
  2186 version_CVS
  2199 version_CVS
  2187     ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.87 2009-11-11 16:49:42 cg Exp $'
  2200     ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.88 2009-11-11 16:54:02 cg Exp $'
  2188 ! !
  2201 ! !