equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1993 by Claus Gittinger |
2 COPYRIGHT (c) 1993 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
91 |
89 |
92 changeMethod |
90 changeMethod |
93 |cls| |
91 |cls| |
94 |
92 |
95 cls := self changeClass. |
93 cls := self changeClass. |
96 cls isNil ifTrue:[^ nil]. |
94 (cls isNil or:[selector isNil]) ifTrue:[^ nil]. |
97 ^ cls compiledMethodAt:selector asSymbol |
95 ^ cls compiledMethodAt:selector asSymbol |
98 |
96 |
99 "Created: / 7.2.1998 / 19:47:53 / cg" |
97 "Created: / 7.2.1998 / 19:47:53 / cg" |
100 ! |
98 ! |
101 |
99 |
543 ! ! |
541 ! ! |
544 |
542 |
545 !MethodChange class methodsFor:'documentation'! |
543 !MethodChange class methodsFor:'documentation'! |
546 |
544 |
547 version |
545 version |
548 ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.80 2015-03-24 15:30:35 cg Exp $' |
546 ^ '$Header$' |
549 ! |
547 ! |
550 |
548 |
551 version_CVS |
549 version_CVS |
552 ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.80 2015-03-24 15:30:35 cg Exp $' |
550 ^ '$Header$' |
553 ! |
551 ! |
554 |
552 |
555 version_SVN |
553 version_SVN |
556 ^ '$Id: MethodChange.st,v 1.80 2015-03-24 15:30:35 cg Exp $' |
554 ^ '$Id$' |
557 ! ! |
555 ! ! |
558 |
556 |