equal
deleted
inserted
replaced
1106 ] |
1106 ] |
1107 ] |
1107 ] |
1108 ]. |
1108 ]. |
1109 |
1109 |
1110 "/ exported aspects - need setter methods |
1110 "/ exported aspects - need setter methods |
1111 exportSels := (treeView exportedAspects ? #()) collect:[:entry | (entry subAspect , ':') asSymbol]. |
1111 exportSels := (treeView exportedAspects ? #()) collect:[:entry | (entry subAspect) asMutator]. |
1112 self generateCodeFrom:exportSels in:cls |
1112 self generateCodeFrom:exportSels in:cls |
1113 do:[:aSel| |
1113 do:[:aSel| |
1114 |aspect| |
1114 |aspect| |
1115 |
1115 |
1116 (aFilterOrEmpty isNil or:[aFilterOrEmpty includes:aSel]) ifTrue:[ |
1116 (aFilterOrEmpty isNil or:[aFilterOrEmpty includes:aSel]) ifTrue:[ |