equal
deleted
inserted
replaced
4152 |cls code aspectList displayedList selectorsToGenerateCode |
4152 |cls code aspectList displayedList selectorsToGenerateCode |
4153 doBrowse methods| |
4153 doBrowse methods| |
4154 |
4154 |
4155 self askForSectionModification. |
4155 self askForSectionModification. |
4156 |
4156 |
4157 cls := self targetClass. |
4157 cls := self painter targetClass. |
4158 |
4158 |
4159 aspectList := OrderedCollection new. |
4159 aspectList := OrderedCollection new. |
4160 |
4160 |
4161 self aspectSelectorsAndTypesDo: |
4161 self painter aspectSelectorsAndTypesDo: |
4162 [:selector :type | |
4162 [:selector :type | |
4163 |newEntry| |
4163 |newEntry| |
4164 |
4164 |
4165 ( #(#modelAspect channelAspect actionSelector valueSelector) includes:type) ifTrue:[ |
4165 ( #(#modelAspect channelAspect actionSelector valueSelector) includes:type) ifTrue:[ |
4166 (cls includesSelector:selector) ifFalse:[ |
4166 (cls includesSelector:selector) ifFalse:[ |
4204 |
4204 |
4205 code := self painter generateAspectMethodCodeFiltering:selectorsToGenerateCode. |
4205 code := self painter generateAspectMethodCodeFiltering:selectorsToGenerateCode. |
4206 code readStream fileIn. |
4206 code readStream fileIn. |
4207 |
4207 |
4208 "/ refetch - cls is now obsolete |
4208 "/ refetch - cls is now obsolete |
4209 cls := self targetClass. |
4209 cls := self painter targetClass. |
4210 |
4210 |
4211 doBrowse ifTrue:[ |
4211 doBrowse ifTrue:[ |
4212 methods := selectorsToGenerateCode |
4212 methods := selectorsToGenerateCode |
4213 collect:[:sel | cls compiledMethodAt:sel] |
4213 collect:[:sel | cls compiledMethodAt:sel] |
4214 thenSelect:[:m | m notNil]. |
4214 thenSelect:[:m | m notNil]. |