--- a/UserPreferences.st	Thu Nov 05 18:40:23 2009 +0100
+++ b/UserPreferences.st	Thu Nov 05 20:27:09 2009 +0100
@@ -1343,40 +1343,6 @@
     "Modified: / 27-03-2007 / 21:51:42 / cg"
 !
 
-generateComments
-    "return true; comments shall be generated (by the codeGenerator tool)"
-
-    ^ self at:#generateComments ifAbsent:true.
-
-    "
-     UserPreferences current generateComments
-    "
-!
-
-generateCommentsForGetters
-    "return true if comments for simple getters are to be generated (by the codeGenerator tool).
-     The default is now false, as these look stupid in the browser and were only generated
-     for the HTMLDocumentGenerator, which is not able  to generate these comments on the fly."
-
-    ^ self generateComments and:[self at:#generateCommentsForGetters ifAbsent:false].
-
-    "
-     UserPreferences current generateCommentsForGetters
-    "
-!
-
-generateCommentsForSetters
-    "return true if comments for simple setters are to be generated (by the codeGenerator tool).
-     The default is now false, as these look stupid in the browser and were only generated
-     for the HTMLDocumentGenerator, which is not able  to generate these comments on the fly."
-
-    ^ self generateComments and:[self at:#generateCommentsForSetters ifAbsent:false].
-
-    "
-     UserPreferences current generateCommentsForSetters
-    "
-!
-
 showAcceptCancelBarInBrowser
     "experimental."
 
@@ -2229,6 +2195,99 @@
     "
 ! !
 
+!UserPreferences methodsFor:'accessing-prefs-code generator'!
+
+generateComments
+    "return true; comments shall be generated (by the codeGenerator tool)"
+
+    ^ self at:#generateComments ifAbsent:true.
+
+    "
+     UserPreferences current generateComments  
+     UserPreferences current generateComments:false
+     UserPreferences current generateComments:true
+    "
+!
+
+generateComments:aBoolean
+    "true if comments shall be generated (by the codeGenerator tool)"
+
+    self at:#generateComments put:aBoolean.
+
+    "
+     UserPreferences current generateComments
+     UserPreferences current generateComments:false
+    "
+!
+
+generateCommentsForAspectMethods
+    "return true; comments shall be generated (by the codeGenerator tool)"
+
+    ^ self at:#generateCommentsForAspectMethods ifAbsent:true.
+
+    "
+     UserPreferences current generateCommentsForAspectMethods
+    "
+!
+
+generateCommentsForAspectMethods:aBoolean
+    "true if comments shall be generated (by the codeGenerator tool)"
+
+    self at:#generateCommentsForAspectMethods put:aBoolean.
+
+    "
+     UserPreferences current generateCommentsForAspectMethods:false
+    "
+!
+
+generateCommentsForGetters
+    "return true if comments for simple getters are to be generated (by the codeGenerator tool).
+     The default is now false, as these look stupid in the browser and were only generated
+     for the HTMLDocumentGenerator, which is not able  to generate these comments on the fly."
+
+    ^ self generateComments and:[self at:#generateCommentsForGetters ifAbsent:false].
+
+    "
+     UserPreferences current generateCommentsForGetters
+    "
+!
+
+generateCommentsForGetters:aBoolean
+    "true if comments for simple getters are to be generated (by the codeGenerator tool).
+     The default is now false, as these look stupid in the browser and were only generated
+     for the HTMLDocumentGenerator, which is not able  to generate these comments on the fly."
+
+    self at:#generateCommentsForGetters put:aBoolean.
+
+    "
+     UserPreferences current generateCommentsForGetters
+    "
+!
+
+generateCommentsForSetters
+    "return true if comments for simple setters are to be generated (by the codeGenerator tool).
+     The default is now false, as these look stupid in the browser and were only generated
+     for the HTMLDocumentGenerator, which is not able  to generate these comments on the fly."
+
+    ^ self generateComments and:[self at:#generateCommentsForSetters ifAbsent:false].
+
+    "
+     UserPreferences current generateCommentsForSetters
+    "
+!
+
+generateCommentsForSetters:aBoolean
+    "true if comments for simple setters are to be generated (by the codeGenerator tool).
+     The default is now false, as these look stupid in the browser and were only generated
+     for the HTMLDocumentGenerator, which is not able  to generate these comments on the fly."
+
+    self at:#generateCommentsForSetters put:aBoolean.
+
+    "
+     UserPreferences current generateSommentsForGetters
+    "
+! !
+
 !UserPreferences methodsFor:'accessing-prefs-editor'!
 
 deleteSetsClipboardText
@@ -2953,9 +3012,9 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.236 2009-10-28 15:01:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.237 2009-11-05 19:27:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.236 2009-10-28 15:01:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.237 2009-11-05 19:27:09 cg Exp $'
 ! !