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