equal
deleted
inserted
replaced
522 box backgroundColor:clr. |
522 box backgroundColor:clr. |
523 box foregroundColor:(clr brightness < 0.5 |
523 box foregroundColor:(clr brightness < 0.5 |
524 ifTrue:[Color white] |
524 ifTrue:[Color white] |
525 ifFalse:[Color black]). |
525 ifFalse:[Color black]). |
526 |
526 |
527 self htmlColorNameHolder value:('#',clr hex). |
527 self htmlColorNameHolder value:(clr htmlPrintString). |
528 ! |
528 ! |
529 |
529 |
530 colorNameChanged |
530 colorNameChanged |
531 "compute rgb and hls (if possible)" |
531 "compute rgb and hls (if possible)" |
532 |
532 |