--- 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|