--- a/CustomMultiSetterMethodsCodeGenerator.st Tue Oct 07 23:05:10 2014 +0200
+++ b/CustomMultiSetterMethodsCodeGenerator.st Wed Oct 08 19:50:10 2014 +0200
@@ -58,7 +58,7 @@
createMultiSetterMethodForVariables: aVariableNames inClass: aClass
"Creates multi-setter access method for given variable names and class"
- | setterSelector comment assignVariablesCode method |
+ | setterSelector comment assignVariablesCode |
setterSelector := ''.
comment := ''.
@@ -77,8 +77,7 @@
assignVariablesCode := assignVariablesCode, variableName asString, ' := ', argumentName, '. '.
].
- method := codeBuilder createMethod.
- method
+ codeBuilder createMethod
class: aClass;
protocol: 'accessing';
source: '`@setterSelector
@@ -88,9 +87,11 @@
';
replace: '`@setterSelector' with: setterSelector asSymbol;
replace: '`"comment' with: comment;
- replace: '`@assignVariablesCode' with: assignVariablesCode.
+ replace: '`@assignVariablesCode' with: assignVariablesCode;
+ compile.
"Created: / 13-07-2014 / 20:45:41 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+ "Modified: / 08-10-2014 / 19:00:20 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
! !
!CustomMultiSetterMethodsCodeGenerator methodsFor:'executing'!