equal
deleted
inserted
replaced
733 ] ifFalse:[ |
733 ] ifFalse:[ |
734 thisCode := (self generateAspectMethodFor:aSel spec:protoSpec inClass:cls). |
734 thisCode := (self generateAspectMethodFor:aSel spec:protoSpec inClass:cls). |
735 ]. |
735 ]. |
736 code := code, thisCode. |
736 code := code, thisCode. |
737 definedMethodSelectors add:sym. |
737 definedMethodSelectors add:sym. |
|
738 ] ifTrue:[ |
|
739 Transcript showCR:'no code generated for aspect: ' , sym , ' (method already exists)' |
738 ] |
740 ] |
739 ] |
741 ] |
740 ]. |
742 ]. |
741 |
743 |
742 self generateCodeFrom:(aProp spec aspectSelectors) in:cls |
744 self generateCodeFrom:(aProp spec aspectSelectors) in:cls |
800 |
802 |
801 self class redefineAspectMethods ifTrue:[ |
803 self class redefineAspectMethods ifTrue:[ |
802 aListOfSelectors do:[:aSelector| |
804 aListOfSelectors do:[:aSelector| |
803 (aSelector isArray or:[aClass implements:aSelector]) ifFalse:[ |
805 (aSelector isArray or:[aClass implements:aSelector]) ifFalse:[ |
804 aBlock value:aSelector |
806 aBlock value:aSelector |
|
807 ] ifTrue:[ |
|
808 Transcript showCR:'#' , aSelector , ' skipped - already implemented in the class' |
805 ] |
809 ] |
806 ] |
810 ] |
807 ] ifFalse:[ |
811 ] ifFalse:[ |
808 aListOfSelectors do:[:aSelector| |
812 aListOfSelectors do:[:aSelector| |
809 (aSelector isArray or:[aClass canUnderstand:aSelector]) ifFalse:[ |
813 (aSelector isArray or:[aClass canUnderstand:aSelector]) ifFalse:[ |
810 aBlock value:aSelector |
814 aBlock value:aSelector |
|
815 ] ifTrue:[ |
|
816 Transcript showCR:'#' , aSelector , ' skipped - already implemented in the class (or superclass)' |
811 ] |
817 ] |
812 ] |
818 ] |
813 ] |
819 ] |
814 |
820 |
815 |
821 |