# HG changeset patch
# User ca
# Date 885996903 -3600
# Node ID 16d87a6511d4b924fad2b7132b45a80d8af8d521
# Parent  c18c7621f8e95e44a98963d373029c0340bdfdf8
change #isMemberOf: to #isKindOf:ActionButtonSpec
when generating actions or aspects

diff -r c18c7621f8e9 -r 16d87a6511d4 UIPainterView.st
--- 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).