--- a/UIPainterView.st	Tue Jun 17 13:12:20 1997 +0200
+++ b/UIPainterView.st	Tue Jun 17 14:08:32 1997 +0200
@@ -562,7 +562,7 @@
 !
 
 generateAspectMethods
-    |cls code|
+    |cls code skip|
 
     code := ''.
 
@@ -582,13 +582,19 @@
         ].
         (modelSelector := aProp model) notNil ifTrue:[
             (cls implements:modelSelector asSymbol) ifFalse:[
-                "/ kludge ..
-                (protoSpec isMemberOf:ActionButtonSpec) ifTrue:[
-                    thisCode := (self generateActionMethodFor:modelSelector spec:protoSpec inClass:cls).
-                ] ifFalse:[
-                    thisCode := (self generateAspectMethodFor:modelSelector spec:protoSpec inClass:cls).
+                skip := false.
+                (cls isSubclassOf:SimpleDialog) ifTrue:[
+                    skip := SimpleDialog implements:modelSelector asSymbol
                 ].
-                code := code , thisCode
+                skip ifFalse:[
+                    "/ kludge ..
+                    (protoSpec isMemberOf:ActionButtonSpec) ifTrue:[
+                        thisCode := (self generateActionMethodFor:modelSelector spec:protoSpec inClass:cls).
+                    ] ifFalse:[
+                        thisCode := (self generateAspectMethodFor:modelSelector spec:protoSpec inClass:cls).
+                    ].
+                    code := code , thisCode
+                ].
             ].
         ].
 
@@ -618,6 +624,7 @@
     ].
     ^ code
 
+    "Modified: 17.6.1997 / 14:07:36 / cg"
 !
 
 generateClassDefinition