category and comment flags now in Userprefs rel5_2_1
authorClaus Gittinger <cg@exept.de>
Fri, 19 Mar 2004 13:16:48 +0100
changeset 1805cf1a9d636bf7
parent 1804 0c4b026a7add
child 1806 2d642633ff7b
category and comment flags now in Userprefs
MenuEditor.st
UIPainterView.st
     1.1 --- a/MenuEditor.st	Mon Mar 15 10:40:55 2004 +0100
     1.2 +++ b/MenuEditor.st	Fri Mar 19 13:16:48 2004 +0100
     1.3 @@ -2343,34 +2343,36 @@
     1.4  !
     1.5  
     1.6  doGenerateAspectMethods
     1.7 -    "genearte aspect messages
     1.8 -    "
     1.9 -    |cls redefineAspectMethods|
    1.10 +    "compile aspect and action methods"
    1.11 +
    1.12 +    |cls redefineAspectMethods category|
    1.13  
    1.14      specClass ifNil:[
    1.15          self warn:'Define the class first !!'.
    1.16 -      ^ self
    1.17 +        ^ self
    1.18      ].
    1.19      redefineAspectMethods := self redefineAspectMethodsChannel value.
    1.20  
    1.21      cls := self resolveName:specClass.
    1.22      cls ifNil:[
    1.23          self warn:'Class ', specClass asString, ' does not exist!!'.
    1.24 -      ^ self  
    1.25 +        ^ self  
    1.26      ].
    1.27  
    1.28 +    category := UserPreferences current categoryForMenuActionsMethods.
    1.29 +
    1.30      self collectActionSelectors do:[:aSelector|
    1.31 -        self createActionMethodFor:aSelector
    1.32 -                                in:cls
    1.33 -                          category:CodeGeneratorTool categoryForMenuActionsMethods
    1.34 -                          redefine:redefineAspectMethods.
    1.35 +        self 
    1.36 +            createActionMethodFor:aSelector in:cls
    1.37 +            category:category
    1.38 +            redefine:redefineAspectMethods.
    1.39      ].
    1.40  
    1.41      self collectAspectSelectors do:[:anAspect|
    1.42 -        self createAspectMethodFor:anAspect
    1.43 -                                in:cls
    1.44 -                          category:CodeGeneratorTool categoryForMenuActionsMethods
    1.45 -                          redefine:redefineAspectMethods
    1.46 +        self 
    1.47 +            createAspectMethodFor:anAspect in:cls
    1.48 +            category:category
    1.49 +            redefine:redefineAspectMethods
    1.50      ].
    1.51  ! !
    1.52  
     2.1 --- a/UIPainterView.st	Mon Mar 15 10:40:55 2004 +0100
     2.2 +++ b/UIPainterView.st	Fri Mar 19 13:16:48 2004 +0100
     2.3 @@ -1133,13 +1133,14 @@
     2.4  !
     2.5  
     2.6  generateMenuMethodFor:menuSel inClass:targetClass
     2.7 -    |selector args showIt code alreadyInSuperclass numArgs method|
     2.8 +    |selector args showIt code alreadyInSuperclass numArgs method category|
     2.9  
    2.10      selector := menuSel asSymbol.
    2.11 +    category := UserPreferences current categoryForMenuActionsMethods.
    2.12  
    2.13      alreadyInSuperclass := targetClass superclass canUnderstand:selector.
    2.14  
    2.15 -    code := '!!' , targetClass name , ' methodsFor:''' , CodeGeneratorTool categoryForMenuActionsMethods , '''!!\\'.
    2.16 +    code := '!!' , targetClass name , ' methodsFor:''' , category , '''!!\\'.
    2.17  
    2.18      selector = 'openAboutThisApplication' ifTrue:[
    2.19          code := code ,