2036 createMultiSetterInstanceCreationMethodFor:aCollectionOfVarNames in:aClass

  2037     "create a multi-setter instance creator method for instvars."

  2038 

  2039     |argPart source|

  2040     

  2041     self createMultiSetterMethodFor:aCollectionOfVarNames in:aClass.

  2042     

  2043     source := ''.

  2044     aCollectionOfVarNames do:[:eachVar |

  2045         source := source , (eachVar , ':' , eachVar , 'Arg ').

  2046     ].

  2047     argPart := source.

  2048     

  2049     source := source , Character cr.

  2050     (userPreferences generateCommentsForSetters) ifTrue:[

  2051         source := source , ('    "return a new instance with multiple instance variables initialized"' , Character cr , Character cr).

  2052     ].

  2053     source := source , ('    ^ self new ' , argPart).

  2054     self compile:source forClass:aClass theMetaclass inCategory:#'instance creation'.

  2055 !

  2056