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