--- a/CodeGeneratorTool.st	Thu Aug 29 19:27:07 2013 +0200
+++ b/CodeGeneratorTool.st	Thu Aug 29 20:22:15 2013 +0200
@@ -1341,6 +1341,24 @@
     self subclassResponsibility
 !
 
+createGetterFor:aVarName in:aClass 
+    self 
+        createAccessMethodsFor:{ aVarName} in:aClass 
+        withChange:false asValueHolder:false readersOnly:true writersOnly:false 
+        lazyInitialization:false
+!
+
+createSetterFor:aVarName in:aClass 
+    self 
+        createAccessMethodsFor:{ aVarName} in:aClass 
+        withChange:false asValueHolder:false readersOnly:false writersOnly:true 
+        lazyInitialization:false
+
+    "
+    
+    "
+!
+
 createValueHoldersFor:aCollectionOfVarNames in:aClass lazyInitialization:lazyInitialization
     "workhorse for creating access methods for instvars."
 
@@ -1714,10 +1732,10 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.101 2013-06-07 12:05:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.102 2013-08-29 18:22:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.101 2013-06-07 12:05:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.102 2013-08-29 18:22:15 cg Exp $'
 ! !