equal
deleted
inserted
replaced
48 class:cls selector:sel source:src category:cat |
48 class:cls selector:sel source:src category:cat |
49 ^ self basicNew class:cls selector:sel source:src category:cat |
49 ^ self basicNew class:cls selector:sel source:src category:cat |
50 ! ! |
50 ! ! |
51 |
51 |
52 !MethodChange methodsFor:'accessing'! |
52 !MethodChange methodsFor:'accessing'! |
|
53 |
|
54 changeSelector |
|
55 ^ selector |
|
56 |
|
57 "Created: / 6.2.1998 / 13:29:25 / cg" |
|
58 ! |
53 |
59 |
54 class:cls selector:sel source:src category:cat |
60 class:cls selector:sel source:src category:cat |
55 className := cls name. |
61 className := cls name. |
56 selector := sel. |
62 selector := sel. |
57 source := src. |
63 source := src. |
160 ! ! |
166 ! ! |
161 |
167 |
162 !MethodChange class methodsFor:'documentation'! |
168 !MethodChange class methodsFor:'documentation'! |
163 |
169 |
164 version |
170 version |
165 ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.21 1999-12-07 13:29:10 cg Exp $' |
171 ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.22 1999-12-07 14:19:29 cg Exp $' |
166 ! ! |
172 ! ! |