changed:
#methodDefinitionTemplateForSelector:
#methodDefinitionTemplateForSelector:andArgumentNames:
template query movet to programminglanguage
--- a/Method.st Tue Oct 02 17:16:27 2012 +0200
+++ b/Method.st Tue Oct 02 17:20:21 2012 +0200
@@ -244,16 +244,8 @@
methodDefinitionTemplateForSelector:aSelector
"given a selector, return a prototype definition string"
- |nA argNames|
-
- (nA := aSelector numArgs) == 1 ifTrue:[
- argNames := #('arg')
- ] ifFalse:[
- argNames := (1 to:nA) collect:[:i | 'arg' , i printString].
- ].
- ^ self
+ ^ self programmingLanguage
methodDefinitionTemplateForSelector:aSelector
- andArgumentNames:argNames.
"
Method methodDefinitionTemplateForSelector:#foo
@@ -265,21 +257,11 @@
methodDefinitionTemplateForSelector:aSelector andArgumentNames:argNames
"given a selector, return a prototype definition string"
- aSelector numArgs > 0 ifTrue:[
- aSelector isKeyword ifTrue:[
- ^ String streamContents:[:stream |
- aSelector keywords with:argNames do:[:eachKeyword :eachArgName|
- stream nextPutAll:eachKeyword; nextPutAll:eachArgName; space.
- ].
- stream backStep. "remove the last space"
- ].
- ].
- ^ aSelector , ' ' , (argNames at:1)
- ].
- ^ aSelector
+ ^ self programmingLanguage
+ methodDefinitionTemplateForSelector:aSelector andArgumentNames:argNames
"
- Method methodDefinitionTemplateForSelector:#foo andArgumentNames:#()
+ Method methodDefinitionTemplateForSelector:#foo andArgumentNames:#()
Method methodDefinitionTemplateForSelector:#+ andArgumentNames:#('aNumber')
Method methodDefinitionTemplateForSelector:#foo:bar:baz: andArgumentNames:#('fooArg' 'barArg' 'bazArg')
"
@@ -3739,11 +3721,11 @@
!Method class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.395 2012-09-25 10:12:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.396 2012-10-02 15:20:21 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.395 2012-09-25 10:12:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.396 2012-10-02 15:20:21 cg Exp $'
!
version_SVN