1751 [:change | |
1751 [:change | |
1752 |packageOfMethodInChange packageOfMethodInImage changeMethod ignored| |
1752 |packageOfMethodInChange packageOfMethodInImage changeMethod ignored| |
1753 |
1753 |
1754 ignored := false. |
1754 ignored := false. |
1755 change isMethodCodeChange ifTrue:[ |
1755 change isMethodCodeChange ifTrue:[ |
1756 packageOfMethodInChange := change package. |
1756 self ignoreExtensions ifTrue:[ |
1757 (packageOfMethodInChange notNil |
1757 packageOfMethodInChange := change package. |
1758 and:[ packageOfMethodInChange ~= PackageId noProjectID |
1758 (packageOfMethodInChange notNil |
1759 and:[ packageOfMethodInChange ~= change changeClass package ]]) ifTrue:[ |
1759 and:[ packageOfMethodInChange ~= PackageId noProjectID |
1760 ignored := true |
1760 and:[ packageOfMethodInChange ~= change changeClass package ]]) ifTrue:[ |
1761 ]. |
1761 ignored := true |
1762 |
1762 ]. |
1763 changeMethod := change changeMethod. |
1763 |
1764 changeMethod notNil ifTrue:[ |
1764 changeMethod := change changeMethod. |
1765 self ignoreExtensions ifTrue:[ |
1765 changeMethod notNil ifTrue:[ |
1766 packageOfMethodInImage := changeMethod package. |
1766 packageOfMethodInImage := changeMethod package. |
1767 (packageOfMethodInImage notNil |
1767 (packageOfMethodInImage notNil |
1768 and:[ packageOfMethodInImage ~= PackageId noProjectID |
1768 and:[ packageOfMethodInImage ~= PackageId noProjectID |
1769 and:[ packageOfMethodInImage ~= changeMethod mclass package ]]) ifTrue:[ |
1769 and:[ packageOfMethodInImage ~= changeMethod mclass package ]]) ifTrue:[ |
1770 ignored := true |
1770 ignored := true |
1771 ]. |
1771 ]. |
1772 ] |
1772 ]. |
1773 ]. |
1773 ]. |
1774 numIgnoredExtensions := numIgnoredExtensions + (ignored ifTrue:[1] ifFalse:[0]). |
1774 numIgnoredExtensions := numIgnoredExtensions + (ignored ifTrue:[1] ifFalse:[0]). |
1775 ]. |
1775 ]. |
1776 ignored. |
1776 ignored. |
1777 ]. |
1777 ]. |
1820 infoHolder value:('%1 extension methods ignored.' bindWith:numIgnoredExtensions) |
1820 infoHolder value:('%1 extension methods ignored.' bindWith:numIgnoredExtensions) |
1821 ] ifFalse:[ |
1821 ] ifFalse:[ |
1822 infoHolder value:nil |
1822 infoHolder value:nil |
1823 ]. |
1823 ]. |
1824 |
1824 |
1825 "Modified: / 12-09-2011 / 11:54:03 / cg" |
1825 "Modified: / 12-09-2011 / 13:21:44 / cg" |
1826 ! ! |
1826 ! ! |
1827 |
1827 |
1828 !VersionDiffBrowser methodsFor:'setup'! |
1828 !VersionDiffBrowser methodsFor:'setup'! |
1829 |
1829 |
1830 setupForClass:aClass againstVersion:aVersionA |
1830 setupForClass:aClass againstVersion:aVersionA |