--- a/CustomSimpleGetterMethodsCodeGenerator.st Tue Jun 24 22:46:09 2014 +0200
+++ b/CustomSimpleGetterMethodsCodeGenerator.st Sun Jun 29 21:47:45 2014 +0200
@@ -43,17 +43,17 @@
methodBuilder := builder methodBuilder.
methodBuilder
- source: ('`@methodName
-
- %1
+ source: '`@methodName
+ `"comment
- ^ `variableName' bindWith: comment);
+ ^ `variableName';
replace: '`@methodName' with: methodName asSymbol;
- replace: '`variableName' with: aName asString.
+ replace: '`variableName' with: aName asString;
+ replace: '`"comment' with: comment.
^ methodBuilder buildedSource
"Created: / 19-05-2014 / 20:32:34 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
- "Modified: / 14-06-2014 / 11:24:11 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+ "Modified: / 29-06-2014 / 21:36:03 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
! !
--- a/CustomValueHolderGetterMethodsCodeGenerator.st Tue Jun 24 22:46:09 2014 +0200
+++ b/CustomValueHolderGetterMethodsCodeGenerator.st Sun Jun 29 21:47:45 2014 +0200
@@ -50,19 +50,20 @@
methodBuilder := builder methodBuilder.
methodBuilder
- source: ('`@methodName
- %1
+ source: '`@methodName
+ `"comment
`variableName isNil ifTrue:[
`variableName := ValueHolder new.
].
- ^ `variableName' bindWith: comment);
+ ^ `variableName';
replace: '`@methodName' with: methodName asSymbol;
- replace: '`variableName' with: aName asString.
+ replace: '`variableName' with: aName asString;
+ replace: '`"comment' with: comment.
^ methodBuilder buildedSource
"Created: / 19-05-2014 / 20:52:07 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
- "Modified: / 24-06-2014 / 22:41:21 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+ "Modified: / 29-06-2014 / 21:39:48 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
! !