equal
deleted
inserted
replaced
560 ' ^ holder\' , |
560 ' ^ holder\' , |
561 '!! !!\\') withCRs |
561 '!! !!\\') withCRs |
562 ! |
562 ! |
563 |
563 |
564 generateAspectMethods |
564 generateAspectMethods |
565 |cls code| |
565 |cls code skip| |
566 |
566 |
567 code := ''. |
567 code := ''. |
568 |
568 |
569 className isNil ifTrue:[ |
569 className isNil ifTrue:[ |
570 self warn:'set the class first'. |
570 self warn:'set the class first'. |
580 self halt. |
580 self halt. |
581 protoSpec := aProp view specClass basicNew. |
581 protoSpec := aProp view specClass basicNew. |
582 ]. |
582 ]. |
583 (modelSelector := aProp model) notNil ifTrue:[ |
583 (modelSelector := aProp model) notNil ifTrue:[ |
584 (cls implements:modelSelector asSymbol) ifFalse:[ |
584 (cls implements:modelSelector asSymbol) ifFalse:[ |
585 "/ kludge .. |
585 skip := false. |
586 (protoSpec isMemberOf:ActionButtonSpec) ifTrue:[ |
586 (cls isSubclassOf:SimpleDialog) ifTrue:[ |
587 thisCode := (self generateActionMethodFor:modelSelector spec:protoSpec inClass:cls). |
587 skip := SimpleDialog implements:modelSelector asSymbol |
588 ] ifFalse:[ |
|
589 thisCode := (self generateAspectMethodFor:modelSelector spec:protoSpec inClass:cls). |
|
590 ]. |
588 ]. |
591 code := code , thisCode |
589 skip ifFalse:[ |
|
590 "/ kludge .. |
|
591 (protoSpec isMemberOf:ActionButtonSpec) ifTrue:[ |
|
592 thisCode := (self generateActionMethodFor:modelSelector spec:protoSpec inClass:cls). |
|
593 ] ifFalse:[ |
|
594 thisCode := (self generateAspectMethodFor:modelSelector spec:protoSpec inClass:cls). |
|
595 ]. |
|
596 code := code , thisCode |
|
597 ]. |
592 ]. |
598 ]. |
593 ]. |
599 ]. |
594 |
600 |
595 (menuSelector := aProp menu) notNil ifTrue:[ |
601 (menuSelector := aProp menu) notNil ifTrue:[ |
596 (cls implements:menuSelector asSymbol) ifFalse:[ |
602 (cls implements:menuSelector asSymbol) ifFalse:[ |
616 ]. |
622 ]. |
617 |
623 |
618 ]. |
624 ]. |
619 ^ code |
625 ^ code |
620 |
626 |
|
627 "Modified: 17.6.1997 / 14:07:36 / cg" |
621 ! |
628 ! |
622 |
629 |
623 generateClassDefinition |
630 generateClassDefinition |
624 |defCode| |
631 |defCode| |
625 |
632 |