change #isMemberOf: to #isKindOf:ActionButtonSpec
when generating actions or aspects
--- a/UIPainterView.st Wed Jan 28 15:05:27 1998 +0100
+++ b/UIPainterView.st Wed Jan 28 15:15:03 1998 +0100
@@ -611,7 +611,7 @@
].
skip ifFalse:[
"/ kludge ..
- (protoSpec isMemberOf:ActionButtonSpec) ifTrue:[
+ (protoSpec isKindOf:ActionButtonSpec) ifTrue:[
thisCode := (self generateActionMethodFor:modelSelector spec:protoSpec inClass:cls).
] ifFalse:[
thisCode := (self generateAspectMethodFor:modelSelector spec:protoSpec inClass:cls).