equal
deleted
inserted
replaced
680 skip := SimpleDialog implements:aSel asSymbol |
680 skip := SimpleDialog implements:aSel asSymbol |
681 ]. |
681 ]. |
682 |
682 |
683 skip ifFalse:[ |
683 skip ifFalse:[ |
684 "/ kludge .. |
684 "/ kludge .. |
685 (protoSpec isKindOf:ActionButtonSpec) ifTrue:[ |
685 "/ (protoSpec isKindOf:ActionButtonSpec) |
|
686 (protoSpec defaultModelIsCallBackMethodSelector:aSel) |
|
687 ifTrue:[ |
686 thisCode := (self generateActionMethodFor:aSel spec:protoSpec inClass:cls). |
688 thisCode := (self generateActionMethodFor:aSel spec:protoSpec inClass:cls). |
687 ] ifFalse:[ |
689 ] ifFalse:[ |
688 thisCode := (self generateAspectMethodFor:aSel spec:protoSpec inClass:cls). |
690 thisCode := (self generateAspectMethodFor:aSel spec:protoSpec inClass:cls). |
689 ]. |
691 ]. |
690 code := code, thisCode |
692 code := code, thisCode |
714 ]. |
716 ]. |
715 ]. |
717 ]. |
716 |
718 |
717 ^ code |
719 ^ code |
718 |
720 |
|
721 "Modified: / 21.4.1998 / 20:23:48 / cg" |
719 ! |
722 ! |
720 |
723 |
721 generateCodeFrom:aListOfSelectors in:aClass do:aBlock |
724 generateCodeFrom:aListOfSelectors in:aClass do:aBlock |
722 |
725 |
723 self class redefineAspectMethods ifTrue:[ |
726 self class redefineAspectMethods ifTrue:[ |