5005 selectedColorOrNil

  5005 selectedColorOrNil

  5006     |cmapIndex img cMap colorList|

  5006     |cmapIndex img cMap colorList|

  5007 

  5007 

  5008     cmapIndex := self selectedColorIndexOrNil.

  5008     cmapIndex := self selectedColorIndexOrNil.

  5009     cmapIndex isNil ifTrue:[^ nil].

  5009     cmapIndex isNil ifTrue:[^ nil].

  5010 

  5011 

  5011     img := self image.

  5012     img := self image.

  5012     cMap := img colorMap.

  5013     cMap := img colorMap.

  5013     cMap isNil ifTrue:[

  5014     cMap isNil ifTrue:[

  5014         "/ self warn:(resources stringWithCRs:'Image has no colormap.\Please change the colorMap mode first.').

  5015         "/ self warn:(resources stringWithCRs:'Image has no colormap.\Please change the colorMap mode first.').