equal
deleted
inserted
replaced
1112 do:[:aSel| |
1112 do:[:aSel| |
1113 |aspect| |
1113 |aspect| |
1114 |
1114 |
1115 (aFilterOrEmpty isNil or:[aFilterOrEmpty includes:aSel]) ifTrue:[ |
1115 (aFilterOrEmpty isNil or:[aFilterOrEmpty includes:aSel]) ifTrue:[ |
1116 (definedMethodSelectors includes:aSel) ifFalse:[ |
1116 (definedMethodSelectors includes:aSel) ifFalse:[ |
1117 aspect := (aSel copyWithoutLast:1) asSymbol. |
1117 aspect := (aSel copyButLast:1) asSymbol. |
1118 thisCode := (self generateAspectSetMethodFor:aspect spec:protoSpec inClass:cls). |
1118 thisCode := (self generateAspectSetMethodFor:aspect spec:protoSpec inClass:cls). |
1119 codePieces add:thisCode. |
1119 codePieces add:thisCode. |
1120 definedMethodSelectors add:aSel. |
1120 definedMethodSelectors add:aSel. |
1121 Transcript showCR:'export code generated for aspect: ' , aSel |
1121 Transcript showCR:'export code generated for aspect: ' , aSel |
1122 ] |
1122 ] |