ImageEditor.st
changeset 2791 7d01ac3a20e7
parent 2790 2c90a15a0011
child 2792 f056aa5d29a7
equal deleted inserted replaced
2790:2c90a15a0011 2791:7d01ac3a20e7
  5282     |idx img cMap|
  5282     |idx img cMap|
  5283 
  5283 
  5284     aColor isNil ifTrue:[
  5284     aColor isNil ifTrue:[
  5285         idx := nil.
  5285         idx := nil.
  5286     ] ifFalse:[
  5286     ] ifFalse:[
  5287         aColor == Color noColor ifTrue:[
  5287         img := self image.
  5288             ((img := self image) notNil and:[img mask notNil]) ifTrue:[
  5288         img notNil ifTrue: [
  5289                 idx := 1.
  5289             aColor == Color noColor ifTrue:[
  5290             ]
  5290                 (img mask notNil) ifTrue:[
  5291         ] ifFalse:[
  5291                     idx := 1.
  5292             (img := self image) notNil ifTrue:[
  5292                 ]
       
  5293             ] ifFalse:[
  5293                 (cMap := self listOfColors) notNil ifTrue:[
  5294                 (cMap := self listOfColors) notNil ifTrue:[
  5294                     idx := cMap indexOf:aColor ifAbsent:nil.
  5295                     idx := cMap indexOf:aColor ifAbsent:nil.
  5295                 ].
  5296                 ].
  5296                 idx isNil ifTrue:[
  5297                 idx isNil ifTrue:[
  5297                     "/ should not happen...
  5298                     "/ should not happen...
  5307             ].
  5308             ].
  5308         ].
  5309         ].
  5309     ].
  5310     ].
  5310     self selectionOfColor value:idx.
  5311     self selectionOfColor value:idx.
  5311 
  5312 
  5312     "Modified: / 02-07-2010 / 11:46:25 / cg"
  5313     "Modified: / 02-07-2010 / 12:06:07 / cg"
  5313 !
  5314 !
  5314 
  5315 
  5315 selectedColorIndexOrNil
  5316 selectedColorIndexOrNil
  5316     |img clrIndex|
  5317     |img clrIndex|
  5317 
  5318