968     |clr nm|

   970     |clr nm def|

   969 

   971 

   970     clr := self colorNameOrColor.

   972     "/ clr := self color.

   971     clr isColor ifTrue:[

   973     clr := Color redByte:(red value) greenByte:(green value) blueByte:(blue value).

   974 

   975     self setPreview:clr.

   976     self htmlColorNameHolder value:(clr htmlPrintString) withoutNotifying:self.

   977 

   978     "/ clr := self colorNameOrColor.

   979     "/ clr isColor ifTrue:[

   973         self setPreview:clr.

   981 

   974         self htmlColorNameHolder value:(clr htmlPrintString) withoutNotifying:self.

   982         nm := Color constantNames detect:[:nm | clr = (Color perform:nm)] ifNone:nil.

   975 

   976         nm := #(white black

   977                 gray lightGray darkGray

   978                 red green blue 

   979                 yellow magenta cyan

   980                 orange brown) detect:[:nm | clr = (Color perform:nm)] ifNone:nil.

   982             self colorDefinitionStringHolder value:('Color ',nm).

   984             self colorNameHolder value:nm withoutNotifying:self.

   985             def := 'Color ',nm.

   984             self colorDefinitionStringHolder value:('Color rgbValue:16r',(clr rgbValue hexPrintString leftPaddedTo:6 with:$0)).

   987             def := 'Color rgbValue:16r%06x' printfWith:clr rgbValue.

   986         self brightnessStringHolder value:((clr brightness asFixedPoint:3) printString).

   989         self colorDefinitionStringHolder value:def withoutNotifying:self.

   987     ].

   990         self brightnessStringHolder value:((clr brightness asFixedPoint:3) printString) withoutNotifying:self.

   991     "/ ].