UIPainterView.st
changeset 1031 7ce4b97f2c43
parent 1030 0b9fbaecbe88
child 1039 99a4be876840
equal deleted inserted replaced
1030:0b9fbaecbe88 1031:7ce4b97f2c43
   156 methodName:aName
   156 methodName:aName
   157     methodName := aName
   157     methodName := aName
   158 !
   158 !
   159 
   159 
   160 selectNames:aStringOrCollection
   160 selectNames:aStringOrCollection
   161     |prop coll s|
   161     |prop coll s n newSel|
   162 
   162 
   163     (aStringOrCollection isNil or:[aStringOrCollection isEmpty]) ifTrue:[
   163     (aStringOrCollection size == 0) ifTrue:[
   164         ^ self select:nil
   164         newSel := nil.
   165     ].
   165     ] ifFalse:[
   166 
   166         (s := aStringOrCollection) isString ifFalse:[
   167     (s := aStringOrCollection) isString ifFalse:[
   167             s size == 1 ifTrue:[
   168         s size == 1 ifTrue:[
   168                 s := s first
   169             s := s first
   169             ] ifFalse:[
       
   170                 coll := OrderedCollection new.
       
   171 
       
   172                 s do:[:aName|
       
   173                     (prop := self propertyOfName:aName) notNil ifTrue:[
       
   174                         coll add:(prop view)
       
   175                     ]
       
   176                 ].
       
   177                 (n := coll size) == 1 ifTrue:[ 
       
   178                     newSel := coll at:1 
       
   179                 ] ifFalse:[
       
   180                     n == 0 ifTrue:[ 
       
   181                         newSel := nil
       
   182                     ] ifFalse:[
       
   183                         newSel := coll
       
   184                     ]
       
   185                 ].
       
   186                 ^ self select:newSel.
       
   187             ]
       
   188         ].
       
   189 
       
   190         prop := self propertyOfName:s.
       
   191         prop isNil ifTrue:[
       
   192             newSel := nil
   170         ] ifFalse:[
   193         ] ifFalse:[
   171             coll := OrderedCollection new.
   194             newSel := prop view
   172 
   195         ].
   173             s do:[:aName|
   196     ].
   174                 (prop := self propertyOfName:aName) notNil ifTrue:[
   197 
   175                     coll add:(prop view)
   198     ^ self select:newSel
   176                 ]
       
   177             ].
       
   178             coll size == 1 ifTrue:[ ^ self select:(coll at:1) ].
       
   179             coll size == 0 ifTrue:[ ^ self select:nil ].
       
   180 
       
   181           ^ self select:coll.
       
   182         ]
       
   183     ].
       
   184 
       
   185     prop := self propertyOfName:s.
       
   186     prop isNil ifTrue:[^ self select:nil]
       
   187               ifFalse:[^ self select:(prop view)]
       
   188 
       
   189 ! !
   199 ! !
   190 
   200 
   191 !UIPainterView methodsFor:'change & update'!
   201 !UIPainterView methodsFor:'change & update'!
   192 
   202 
   193 layoutChanged
   203 layoutChanged