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