equal
deleted
inserted
replaced
837 ^ self. |
837 ^ self. |
838 ]. |
838 ]. |
839 |
839 |
840 (something == #methodInClass |
840 (something == #methodInClass |
841 or:[ something == #methodInClassRemoved ]) ifTrue:[ |
841 or:[ something == #methodInClassRemoved ]) ifTrue:[ |
842 |sel cls| |
|
843 |
|
844 sel := aParameter second. |
842 sel := aParameter second. |
845 cls := aParameter first. |
843 cls := aParameter first. |
846 (classes contains:[:aClass | aClass name == cls name]) ifFalse:[ |
844 (classes contains:[:aClass | aClass name == cls name]) ifFalse:[ |
847 ^ self "/ I dont care for that class |
845 ^ self "/ I dont care for that class |
848 ]. |
846 ]. |
1816 ! ! |
1814 ! ! |
1817 |
1815 |
1818 !MethodList class methodsFor:'documentation'! |
1816 !MethodList class methodsFor:'documentation'! |
1819 |
1817 |
1820 version |
1818 version |
1821 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.77 2013-03-26 14:21:47 cg Exp $' |
1819 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.78 2013-03-26 17:15:45 stefan Exp $' |
1822 ! |
1820 ! |
1823 |
1821 |
1824 version_CVS |
1822 version_CVS |
1825 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.77 2013-03-26 14:21:47 cg Exp $' |
1823 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.78 2013-03-26 17:15:45 stefan Exp $' |
1826 ! ! |
1824 ! ! |
1827 |
1825 |