# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1079698608 -3600
# Node ID cf1a9d636bf7dd3fc6fc95eaec1b4f93abe91f20
# Parent  0c4b026a7add11bb0534d9a1a567f99895bf1707
category and comment flags now in Userprefs

diff -r 0c4b026a7add -r cf1a9d636bf7 MenuEditor.st
--- a/MenuEditor.st	Mon Mar 15 10:40:55 2004 +0100
+++ b/MenuEditor.st	Fri Mar 19 13:16:48 2004 +0100
@@ -2343,34 +2343,36 @@
 !
 
 doGenerateAspectMethods
-    "genearte aspect messages
-    "
-    |cls redefineAspectMethods|
+    "compile aspect and action methods"
+
+    |cls redefineAspectMethods category|
 
     specClass ifNil:[
         self warn:'Define the class first !!'.
-      ^ self
+        ^ self
     ].
     redefineAspectMethods := self redefineAspectMethodsChannel value.
 
     cls := self resolveName:specClass.
     cls ifNil:[
         self warn:'Class ', specClass asString, ' does not exist!!'.
-      ^ self  
+        ^ self  
     ].
 
+    category := UserPreferences current categoryForMenuActionsMethods.
+
     self collectActionSelectors do:[:aSelector|
-        self createActionMethodFor:aSelector
-                                in:cls
-                          category:CodeGeneratorTool categoryForMenuActionsMethods
-                          redefine:redefineAspectMethods.
+        self 
+            createActionMethodFor:aSelector in:cls
+            category:category
+            redefine:redefineAspectMethods.
     ].
 
     self collectAspectSelectors do:[:anAspect|
-        self createAspectMethodFor:anAspect
-                                in:cls
-                          category:CodeGeneratorTool categoryForMenuActionsMethods
-                          redefine:redefineAspectMethods
+        self 
+            createAspectMethodFor:anAspect in:cls
+            category:category
+            redefine:redefineAspectMethods
     ].
 ! !
 
diff -r 0c4b026a7add -r cf1a9d636bf7 UIPainterView.st
--- a/UIPainterView.st	Mon Mar 15 10:40:55 2004 +0100
+++ b/UIPainterView.st	Fri Mar 19 13:16:48 2004 +0100
@@ -1133,13 +1133,14 @@
 !
 
 generateMenuMethodFor:menuSel inClass:targetClass
-    |selector args showIt code alreadyInSuperclass numArgs method|
+    |selector args showIt code alreadyInSuperclass numArgs method category|
 
     selector := menuSel asSymbol.
+    category := UserPreferences current categoryForMenuActionsMethods.
 
     alreadyInSuperclass := targetClass superclass canUnderstand:selector.
 
-    code := '!!' , targetClass name , ' methodsFor:''' , CodeGeneratorTool categoryForMenuActionsMethods , '''!!\\'.
+    code := '!!' , targetClass name , ' methodsFor:''' , category , '''!!\\'.
 
     selector = 'openAboutThisApplication' ifTrue:[
         code := code ,