--- a/UIPainterView.st	Tue Apr 21 18:46:12 1998 +0200
+++ b/UIPainterView.st	Tue Apr 21 20:29:51 1998 +0200
@@ -682,7 +682,9 @@
 
                     skip ifFalse:[
                         "/ kludge ..
-                        (protoSpec isKindOf:ActionButtonSpec) ifTrue:[
+                        "/ (protoSpec isKindOf:ActionButtonSpec) 
+                        (protoSpec defaultModelIsCallBackMethodSelector:aSel)
+                        ifTrue:[
                             thisCode := (self generateActionMethodFor:aSel spec:protoSpec inClass:cls).
                         ] ifFalse:[
                             thisCode := (self generateAspectMethodFor:aSel spec:protoSpec inClass:cls).
@@ -716,6 +718,7 @@
 
     ^ code
 
+    "Modified: / 21.4.1998 / 20:23:48 / cg"
 !
 
 generateCodeFrom:aListOfSelectors in:aClass do:aBlock