equal
deleted
inserted
replaced
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 ! |