equal
deleted
inserted
replaced
609 (cls isSubclassOf:SimpleDialog) ifTrue:[ |
609 (cls isSubclassOf:SimpleDialog) ifTrue:[ |
610 skip := SimpleDialog implements:modelSelector asSymbol |
610 skip := SimpleDialog implements:modelSelector asSymbol |
611 ]. |
611 ]. |
612 skip ifFalse:[ |
612 skip ifFalse:[ |
613 "/ kludge .. |
613 "/ kludge .. |
614 (protoSpec isMemberOf:ActionButtonSpec) ifTrue:[ |
614 (protoSpec isKindOf:ActionButtonSpec) ifTrue:[ |
615 thisCode := (self generateActionMethodFor:modelSelector spec:protoSpec inClass:cls). |
615 thisCode := (self generateActionMethodFor:modelSelector spec:protoSpec inClass:cls). |
616 ] ifFalse:[ |
616 ] ifFalse:[ |
617 thisCode := (self generateAspectMethodFor:modelSelector spec:protoSpec inClass:cls). |
617 thisCode := (self generateAspectMethodFor:modelSelector spec:protoSpec inClass:cls). |
618 ]. |
618 ]. |
619 code := code , thisCode |
619 code := code , thisCode |