equal
deleted
inserted
replaced
1809 the wrappedmethod is in the class, so its mclass is correct. |
1809 the wrappedmethod is in the class, so its mclass is correct. |
1810 however, the originalmethod is invoked via performMethod, and its mclass |
1810 however, the originalmethod is invoked via performMethod, and its mclass |
1811 is nil. Care for this here. Think about keeping the mclass in the original method. |
1811 is nil. Care for this here. Think about keeping the mclass in the original method. |
1812 " |
1812 " |
1813 (method notNil and:[method isWrapped not]) ifTrue:[ |
1813 (method notNil and:[method isWrapped not]) ifTrue:[ |
1814 WrappedMethod allInstancesDo:[:wrapped | |
1814 WrappedMethod notNil ifTrue:[ |
1815 wrapped originalMethodIfWrapped == method ifTrue:[ |
1815 WrappedMethod allInstancesDo:[:wrapped | |
1816 implementorClass := wrapped mclass. |
1816 wrapped originalMethodIfWrapped == method ifTrue:[ |
|
1817 implementorClass := wrapped mclass. |
|
1818 ]. |
1817 ]. |
1819 ]. |
1818 ]. |
1820 ]. |
1819 ] |
1821 ] |
1820 ]. |
1822 ]. |
1821 ]. |
1823 ]. |
2599 ! ! |
2601 ! ! |
2600 |
2602 |
2601 !Context class methodsFor:'documentation'! |
2603 !Context class methodsFor:'documentation'! |
2602 |
2604 |
2603 version |
2605 version |
2604 ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.201 2014-05-14 10:09:45 stefan Exp $' |
2606 ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.202 2014-05-22 16:19:23 cg Exp $' |
2605 ! |
2607 ! |
2606 |
2608 |
2607 version_CVS |
2609 version_CVS |
2608 ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.201 2014-05-14 10:09:45 stefan Exp $' |
2610 ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.202 2014-05-22 16:19:23 cg Exp $' |
2609 ! |
2611 ! |
2610 |
2612 |
2611 version_HG |
2613 version_HG |
2612 |
2614 |
2613 ^ '$Changeset: <not expanded> $' |
2615 ^ '$Changeset: <not expanded> $' |