equal
deleted
inserted
replaced
841 "/changedObject removeDependent:self. "/ ????? |
841 "/changedObject removeDependent:self. "/ ????? |
842 self invalidateList. |
842 self invalidateList. |
843 ^ self |
843 ^ self |
844 ]. |
844 ]. |
845 cls := aParameter at:1. |
845 cls := aParameter at:1. |
|
846 (classes includesIdentical:cls) ifFalse:[ ^ self]. |
|
847 |
846 sel := aParameter at:2. |
848 sel := aParameter at:2. |
847 mthd := cls compiledMethodAt:sel. |
849 mthd := cls compiledMethodAt:sel. |
848 (mthd notNil and:[mthd isWrapped or:[mthd isMethodWithBreakpoints]]) ifTrue:[ |
850 (mthd notNil and:[mthd isWrapped or:[mthd isMethodWithBreakpoints]]) ifTrue:[ |
849 (methodList includes:mthd originalMethod) ifTrue:[ |
851 (methodList includes:mthd originalMethod) ifTrue:[ |
850 methodList replaceAll:mthd originalMethod with:mthd. |
852 methodList replaceAll:mthd originalMethod with:mthd. |
1893 ! ! |
1895 ! ! |
1894 |
1896 |
1895 !MethodList class methodsFor:'documentation'! |
1897 !MethodList class methodsFor:'documentation'! |
1896 |
1898 |
1897 version |
1899 version |
1898 ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.106 2014-07-29 15:15:39 cg Exp $' |
1900 ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.107 2014-11-19 17:54:00 cg Exp $' |
1899 ! |
1901 ! |
1900 |
1902 |
1901 version_CVS |
1903 version_CVS |
1902 ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.106 2014-07-29 15:15:39 cg Exp $' |
1904 ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.107 2014-11-19 17:54:00 cg Exp $' |
1903 ! ! |
1905 ! ! |
1904 |
1906 |