equal
deleted
inserted
replaced
748 aTwoArgBlock value:(selector asSymbol) value:#menu |
748 aTwoArgBlock value:(selector asSymbol) value:#menu |
749 ]. |
749 ]. |
750 ]. |
750 ]. |
751 |
751 |
752 (aProp spec aspectSelectors) do:[:aSel | |
752 (aProp spec aspectSelectors) do:[:aSel | |
753 (aSel isArray or:[aSel isBoolean]) ifFalse:[ |
753 (aSel isString or:[aSel isSymbol]) ifTrue:[ |
754 aTwoArgBlock value:(aSel asSymbol) value:#channelAspect |
754 aTwoArgBlock value:(aSel asSymbol) value:#channelAspect |
755 ]. |
755 ]. |
756 ]. |
756 ]. |
757 aProp spec actionSelectors do:[:aSel| |
757 aProp spec actionSelectors do:[:aSel| |
758 (aSel isArray or:[aSel isBoolean]) ifFalse:[ |
758 (aSel isString or:[aSel isSymbol]) ifTrue:[ |
759 aTwoArgBlock value:(aSel asSymbol) value:#actionSelector |
759 aTwoArgBlock value:(aSel asSymbol) value:#actionSelector |
760 ]. |
760 ]. |
761 ]. |
761 ]. |
762 aProp spec valueSelectors do:[:aSel| |
762 aProp spec valueSelectors do:[:aSel| |
763 (aSel isArray or:[aSel isBoolean]) ifFalse:[ |
763 (aSel isString or:[aSel isSymbol]) ifTrue:[ |
764 aTwoArgBlock value:(aSel asSymbol) value:#valueSelector |
764 aTwoArgBlock value:(aSel asSymbol) value:#valueSelector |
765 ]. |
765 ]. |
766 ] |
766 ] |
767 ]. |
767 ]. |
768 |
768 |
1173 ! |
1173 ! |
1174 |
1174 |
1175 generateCodeFrom:aListOfSelectors in:aClass do:aBlock |
1175 generateCodeFrom:aListOfSelectors in:aClass do:aBlock |
1176 |realSelectors redefCondition redefMessage| |
1176 |realSelectors redefCondition redefMessage| |
1177 |
1177 |
1178 realSelectors := aListOfSelectors reject:[:sel | sel isArray or:[sel isBoolean]]. |
1178 realSelectors := aListOfSelectors select:[:sel | sel isString or:[sel isSymbol]]. |
1179 |
1179 |
1180 self class redefineAspectMethods ifTrue:[ |
1180 self class redefineAspectMethods ifTrue:[ |
1181 redefCondition := [:cls :sel | (cls includesSelector:sel) not]. |
1181 redefCondition := [:cls :sel | (cls includesSelector:sel) not]. |
1182 redefMessage := ' skipped - already implemented in the class'. |
1182 redefMessage := ' skipped - already implemented in the class'. |
1183 ] ifFalse:[ |
1183 ] ifFalse:[ |
1564 (modelSelector := aProp model) notNil ifTrue:[ |
1564 (modelSelector := aProp model) notNil ifTrue:[ |
1565 aspects add:modelSelector asSymbol |
1565 aspects add:modelSelector asSymbol |
1566 ]. |
1566 ]. |
1567 |
1567 |
1568 "/ aspects addAll:aProp spec actionSelectors. |
1568 "/ aspects addAll:aProp spec actionSelectors. |
1569 aspects addAll:aProp spec valueSelectors. |
1569 |
1570 aspects addAll:aProp spec aspectSelectors. |
1570 aspects addAll:(aProp spec valueSelectors select:[:a | a isString or:[a isSymbol]]). |
|
1571 aspects addAll:(aProp spec aspectSelectors select:[:a | a isString or:[a isSymbol]]). |
1571 ]. |
1572 ]. |
1572 |
1573 |
1573 ^ aspects asOrderedCollection sort. |
1574 ^ aspects asOrderedCollection sort. |
1574 |
1575 |
1575 "Created: / 12-01-2008 / 19:24:45 / cg" |
1576 "Created: / 12-01-2008 / 19:24:45 / cg" |