equal
deleted
inserted
replaced
34 hereby transferred. |
34 hereby transferred. |
35 " |
35 " |
36 ! |
36 ! |
37 |
37 |
38 version |
38 version |
39 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.56 1995-11-13 09:08:10 stefan Exp $' |
39 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.57 1995-11-17 15:28:39 cg Exp $' |
40 ! |
40 ! |
41 |
41 |
42 documentation |
42 documentation |
43 " |
43 " |
44 this class defines protocol for executable methods; |
44 this class defines protocol for executable methods; |
167 |
167 |
168 maxNumberOfArguments |
168 maxNumberOfArguments |
169 "this limit will be removed in one of the next versions ..." |
169 "this limit will be removed in one of the next versions ..." |
170 |
170 |
171 ^ 15 "cannot be easily changed; should ask the VM about this number" |
171 ^ 15 "cannot be easily changed; should ask the VM about this number" |
|
172 ! ! |
|
173 |
|
174 !Method methodsFor:'copying'! |
|
175 |
|
176 copy |
|
177 |aCopy| |
|
178 |
|
179 aCopy := super copy. |
|
180 sourcePosition notNil ifTrue:[ |
|
181 aCopy source:(self source) |
|
182 ]. |
|
183 ^ aCopy |
172 ! ! |
184 ! ! |
173 |
185 |
174 !Method methodsFor:'queries'! |
186 !Method methodsFor:'queries'! |
175 |
187 |
176 isMethod |
188 isMethod |