equal
deleted
inserted
replaced
269 Here, true is returned for myself, false for subclasses." |
269 Here, true is returned for myself, false for subclasses." |
270 |
270 |
271 ^ self == Method |
271 ^ self == Method |
272 |
272 |
273 "Modified: 23.4.1996 / 15:59:50 / cg" |
273 "Modified: 23.4.1996 / 15:59:50 / cg" |
|
274 ! |
|
275 |
|
276 methodDefinitionTemplateForSelector:aSelector |
|
277 "given a selector, return a prototype definition string" |
|
278 |
|
279 aSelector numArgs > 0 ifTrue:[ |
|
280 aSelector isKeyword ifTrue:[ |
|
281 ^ String streamContents:[:stream | |
|
282 aSelector keywords |
|
283 keysAndValuesDo:[:idx :part | stream nextPutAll:(part , 'arg' , idx printString , ' ')]. |
|
284 ]. |
|
285 ]. |
|
286 ^ aSelector , ' arg' |
|
287 ]. |
|
288 ^ aSelector |
|
289 |
|
290 " |
|
291 Method methodDefinitionTemplateForSelector:#foo |
|
292 Method methodDefinitionTemplateForSelector:#+ |
|
293 Method methodDefinitionTemplateForSelector:#foo:bar:baz: |
|
294 " |
274 ! |
295 ! |
275 |
296 |
276 methodPrivacySupported |
297 methodPrivacySupported |
277 "return true, if the system was compiled to support methodPrivacy. |
298 "return true, if the system was compiled to support methodPrivacy. |
278 You should not depend on that feature being available." |
299 You should not depend on that feature being available." |
2802 ! ! |
2823 ! ! |
2803 |
2824 |
2804 !Method class methodsFor:'documentation'! |
2825 !Method class methodsFor:'documentation'! |
2805 |
2826 |
2806 version |
2827 version |
2807 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.230 2001-10-04 09:23:55 cg Exp $' |
2828 ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.231 2001-10-10 15:24:34 cg Exp $' |
2808 ! ! |
2829 ! ! |
2809 Method initialize! |
2830 Method initialize! |