equal
deleted
inserted
replaced
614 (cls implements:aSel asSymbol) ifFalse:[ |
614 (cls implements:aSel asSymbol) ifFalse:[ |
615 thisCode := (self generateActionMethodFor:aSel spec:protoSpec inClass:cls). |
615 thisCode := (self generateActionMethodFor:aSel spec:protoSpec inClass:cls). |
616 code := code , thisCode |
616 code := code , thisCode |
617 ] |
617 ] |
618 ]. |
618 ]. |
|
619 aProp spec valueSelectors do:[:aSel| |
|
620 (cls implements:aSel asSymbol) ifFalse:[ |
|
621 thisCode := (self generateValueMethodFor:aSel spec:protoSpec inClass:cls). |
|
622 code := code , thisCode |
|
623 ] |
|
624 ]. |
619 |
625 |
620 ]. |
626 ]. |
621 ^ code |
627 ^ code |
|
628 ! |
|
629 |
|
630 generateValueMethodFor:aspect spec:protoSpec inClass:targetClass |
|
631 ^ ('!!' , targetClass name , ' methodsFor:''values''!!\\' , |
|
632 aspect , '\' , |
|
633 ' "automatically generated by UIPainter ..."\' , |
|
634 '\' , |
|
635 ' "value to be added below ..."\' , |
|
636 ' Transcript showCR:self class name , '': no value yet for ' , aspect , ' ...''.\' , |
|
637 '\' , |
|
638 '^ nil.' , |
|
639 '!! !!\\') withCRs |
|
640 |
|
641 |
|
642 |
|
643 |
622 ! |
644 ! |
623 |
645 |
624 generateWindowSpecMethodSource |
646 generateWindowSpecMethodSource |
625 |t s spec specArray str code category cls mthd| |
647 |t s spec specArray str code category cls mthd| |
626 |
648 |