# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1349191221 -7200
# Node ID aa9b2d741a7b5bdf92d10bd20942b78ab9df1b7b
# Parent  8cd2dcaa3b7c26580f2824db80b194597ad850d4
changed:
        #methodDefinitionTemplateForSelector:
        #methodDefinitionTemplateForSelector:andArgumentNames:

template query movet to programminglanguage

diff -r 8cd2dcaa3b7c -r aa9b2d741a7b Method.st
--- 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