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