ColorEditDialog.st
changeset 3179 174a9f51db76
parent 3175 c205d80403ef
child 3194 86cf12ddc8fd
equal deleted inserted replaced
3178:58100b56595d 3179:174a9f51db76
     8  be provided or otherwise made available to, or used by, any
     8  be provided or otherwise made available to, or used by, any
     9  other person.  No title to or ownership of the software is
     9  other person.  No title to or ownership of the software is
    10  hereby transferred.
    10  hereby transferred.
    11 "
    11 "
    12 "{ Package: 'stx:libtool2' }"
    12 "{ Package: 'stx:libtool2' }"
       
    13 
       
    14 "{ NameSpace: Smalltalk }"
    13 
    15 
    14 SimpleDialog subclass:#ColorEditDialog
    16 SimpleDialog subclass:#ColorEditDialog
    15 	instanceVariableNames:'red green blue hue light saturation colorNameHolder
    17 	instanceVariableNames:'red green blue hue light saturation colorNameHolder
    16 		htmlColorNameHolder colorDefinitionStringHolder previewBox
    18 		htmlColorNameHolder colorDefinitionStringHolder previewBox
    17 		brightnessStringHolder'
    19 		brightnessStringHolder'
   967 colorNameChanged
   969 colorNameChanged
   968     "compute rgb and hls (if possible)"
   970     "compute rgb and hls (if possible)"
   969 
   971 
   970     |clr|
   972     |clr|
   971 
   973 
   972     clr := Color name:colorNameHolder value ifIllegal:nil.
   974     clr := Color name:(self colorName) ifIllegal:nil.
   973     clr isNil ifTrue:[
   975     clr isNil ifTrue:[
   974         ^ self
   976         ^ self
   975     ].
   977     ].
   976     self colorChangedTo:clr.
   978     self colorChangedTo:clr.
   977 !
   979 !