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