1 "{ Package: 'stx:libbasic' }"

     3 "{ Package: 'stx:libbasic' }"

     2 

     4 

     3 "{ NameSpace: Smalltalk }"

     5 "{ NameSpace: Smalltalk }"

     4 

     6 

     5 ProgrammingLanguage subclass:#SmalltalkLanguage

     7 ProgrammingLanguage subclass:#SmalltalkLanguage

   161 !

   163 !

   162 

   164 

   163 methodDefinitionTemplateForSelector:aSelector andArgumentNames:argNames

   165 methodDefinitionTemplateForSelector:aSelector andArgumentNames:argNames

   164     "given a selector, return a prototype definition string"

   166     "given a selector, return a prototype definition string"

   165 

   167 

   167         aSelector isKeywordSelector ifTrue:[

   169         aSelector isKeywordSelector ifTrue:[

   168             ^ Text streamContents:[:stream |

   170             ^ Text streamContents:[:stream |

   169                 aSelector keywords with:argNames do:[:eachKeyword :eachArgName|

   171                 aSelector keywords with:argNames do:[:eachKeyword :eachArgName|

   170                     stream bold; nextPutAll:eachKeyword; normal; nextPutAll:eachArgName; space.

   172                     stream bold; nextPutAll:eachKeyword; normal; nextPutAll:eachArgName; space.

   171                 ].

   173                 ].