--- 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
].
! !