equal
deleted
inserted
replaced
5948 |
5948 |
5949 cls := self painter targetClass. |
5949 cls := self painter targetClass. |
5950 |
5950 |
5951 aspectList := OrderedCollection new. |
5951 aspectList := OrderedCollection new. |
5952 |
5952 |
5953 self painter aspectSelectorsAndTypesDo: |
5953 self painter aspectSelectorsAndTypesDo:[:selector :type | |
5954 [:selector :type | |
|
5955 |newEntry| |
5954 |newEntry| |
5956 |
5955 |
5957 ( #(#modelAspect channelAspect actionSelector valueSelector) includes:type) ifTrue:[ |
5956 ( #(#modelAspect channelAspect actionSelector valueSelector) includes:type) ifTrue:[ |
5958 ((cls canUnderstand:selector) or:[cls class canUnderstand:selector]) ifFalse:[ |
5957 ((cls canUnderstand:selector) or:[cls class canUnderstand:selector]) ifFalse:[ |
5959 newEntry := Array with:selector with:type. |
5958 newEntry := Array with:selector with:type. |
5960 (aspectList contains:[:entry | entry = newEntry]) ifFalse:[ |
5959 (aspectList includes:newEntry) ifFalse:[ |
5961 aspectList add:newEntry. |
5960 aspectList add:newEntry. |
5962 ] |
5961 ] |
5963 ] |
5962 ] |
5964 ] |
5963 ] |
5965 ]. |
5964 ]. |