# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1203968341 -3600
# Node ID 0a4591e6bb20111d83d2d6b0eb840d75c0efd30e
# Parent  b8149118f0af2c8466ac04c26d50e57e76e37e4e
changed #doGenerateAspectMethodFor
    -- do not generate aspect methods already defined in superclasses or in class

-- allow to change some settings even if not class/selector is defined (yet)

diff -r b8149118f0af -r 0a4591e6bb20 UIPainter.st
--- a/UIPainter.st	Mon Feb 25 20:29:47 2008 +0100
+++ b/UIPainter.st	Mon Feb 25 20:39:01 2008 +0100
@@ -317,6 +317,9 @@
 #settingsGallery
 'Shows or hides the gallery window.'
 
+#settingsGenerateCommentedCode
+''
+
 #settingsGridManager
 'Opens a dialog to toggle grid display or to change the grids spacing.'
 
@@ -1359,7 +1362,6 @@
                 )
                (MenuItem
                   activeHelpKey: settingsAspectsAsInstances
-                  enabled: hasSpecClass
                   label: 'Aspects as InstanceVariables'
                   translateLabel: true
                   isVisible: isNotEditingSpecOnly
@@ -1367,7 +1369,6 @@
                 )
                (MenuItem
                   activeHelpKey: settingsRedefineAspectMethods
-                  enabled: hasSpecClass
                   label: 'Redefine Aspect Methods'
                   translateLabel: true
                   isVisible: isNotEditingSpecOnly
@@ -1375,7 +1376,6 @@
                 )
                (MenuItem
                   activeHelpKey: settingsGenerateCommentedCode
-                  enabled: hasSpecClass
                   label: 'Generate Commented Code'
                   translateLabel: true
                   isVisible: isNotEditingSpecOnly
@@ -4467,7 +4467,7 @@
             |newEntry|
 
             ( #(#modelAspect channelAspect actionSelector valueSelector) includes:type) ifTrue:[
-                (cls includesSelector:selector) ifFalse:[
+                ((cls canUnderstand:selector) or:[cls class canUnderstand:selector]) ifFalse:[
                     newEntry := Array with:selector with:type.    
                     (aspectList contains:[:entry | entry = newEntry]) ifFalse:[    
                         aspectList add:newEntry.