# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1257449275 -3600
# Node ID abaae556bec80037688d24b0c28079490bfa2348
# Parent  f766f0c6e7d7339310fc96113876671fabe0116d
commentCode flags now in userPrefs

diff -r f766f0c6e7d7 -r abaae556bec8 UIPainterView.st
--- a/UIPainterView.st	Thu Nov 05 18:58:33 2009 +0100
+++ b/UIPainterView.st	Thu Nov 05 20:27:55 2009 +0100
@@ -15,8 +15,7 @@
 	instanceVariableNames:'treeView listHolder superclassName className methodName
 		categoryName handleColorBlack handleColorWhite handleMasterColor
 		sketchPainter listOfAspectsHolder'
-	classVariableNames:'HandCursor RedefineAspectMethods AspectsAsInstances
-		GenerateCommentedCode'
+	classVariableNames:'HandCursor RedefineAspectMethods AspectsAsInstances'
 	poolDictionaries:''
 	category:'Interface-UIPainter'
 !
@@ -94,15 +93,16 @@
 generateCommentedCode
     "comments in generated aspect methods; yes or no."
 
-    ^ GenerateCommentedCode ? true
-
-    "Modified: / 12-01-2008 / 10:21:06 / cg"
+    ^ UserPreferences current generateComments
+    and:[ UserPreferences current generateCommentsForAspectMethods ]
 !
 
 generateCommentedCode:aBoolean
     "comments in generated aspect methods; yes or no."
 
-    GenerateCommentedCode := aBoolean
+    UserPreferences current 
+        generateComments:true;
+        generateCommentsForAspectMethods:true.
 !
 
 redefineAspectMethods
@@ -1020,7 +1020,8 @@
 generateAspectMethodCode
     "generate aspect, action & menu methods
      - but do not overwrite existing ones.
-     Return a string ready to compile into the application class."
+     Return a string ready to compile into the application class.
+     TODO: refactor and move to CodeGenerator"
 
     ^ self generateAspectMethodCodeFiltering:nil
 !
@@ -1028,7 +1029,8 @@
 generateAspectMethodCodeFiltering:aFilterOrEmpty
     "generate aspect, action & menu methods
      - but do not overwrite existing ones.
-     Return a string ready to compile into the application class."
+     Return a string ready to compile into the application class.
+     TODO: refactor and move to CodeGenerator"
 
     |cls codePieces skip protoSpec thisCode
      definedMethodSelectors iVars t exportSels|