4 	instanceVariableNames:''

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     6 	poolDictionaries:''

     7 	category:'Interface-Refactoring-Custom'

     7 	category:'Interface-Refactoring-Custom'

     8 !

     8 !

     9 

    10 

    10 !CustomMultiSetterMethodsCodeGenerator class methodsFor:'accessing-presentation'!

    11 !CustomMultiSetterMethodsCodeGenerator class methodsFor:'accessing-presentation'!

    11 

    12 

    12 description

    13 description

    13     "Returns more detailed description of the receiver"

    14     "Returns more detailed description of the receiver"

    74 

    75 

    75         setterSelector := setterSelector, variableName asString, ': ', argumentName, ' '.

    76         setterSelector := setterSelector, variableName asString, ': ', argumentName, ' '.

    76         assignVariablesCode := assignVariablesCode, variableName asString, ' := ', argumentName, '. '.

    77         assignVariablesCode := assignVariablesCode, variableName asString, ' := ', argumentName, '. '.

    77     ].

    78     ].

    78 

    79 

    80     method

    81     method

    81         class: aClass;

    82         class: aClass;

    82         protocol: 'accessing';

    83         protocol: 'accessing';

    83         source: '`@setterSelector

    84         source: '`@setterSelector

    84             `"comment

    85             `"comment

   104     ].

   105     ].

   105 

   106 

   106     "Modified: / 13-07-2014 / 20:45:41 / Jakub Nesveda <nesvejak@fit.cvut.cz>"

   107     "Modified: / 13-07-2014 / 20:45:41 / Jakub Nesveda <nesvejak@fit.cvut.cz>"

   107 ! !

   108 ! !

   108 

   109