Mercurial Mercurial > hg > stx-libtool2 / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
UIPainterView.st
changeset 796 05b2883a23b0
parent 784 9ae2b94658e5
child 858 6b2e9e31cf06 
--- 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
hg/stx-libtool2