#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Tue, 30 Apr 2019 15:13:35 +0200
changeset 3657bb1dd1360035
parent 3656 84177d270097
child 3658 18137fdc0f76
#UI_ENHANCEMENT by cg
class: ColorEditDialog
comment/format in: #colorNameOrColor
changed: #colorChanged
ColorEditDialog.st
     1.1 --- a/ColorEditDialog.st	Thu Apr 11 18:30:42 2019 +0200
     1.2 +++ b/ColorEditDialog.st	Tue Apr 30 15:13:35 2019 +0200
     1.3 @@ -1,3 +1,5 @@
     1.4 +"{ Encoding: utf8 }"
     1.5 +
     1.6  "
     1.7   COPYRIGHT (c) 1995 by eXept Software AG
     1.8                All Rights Reserved
     1.9 @@ -947,7 +949,12 @@
    1.10          "/ ^ Color name:(colorName asSymbol)
    1.11          ^ colorName asSymbol
    1.12      ].
    1.13 -    ^ Color redByte:(red value) greenByte:(green value) blueByte:(blue value)
    1.14 +    ^ Color 
    1.15 +        redByte:(red value) 
    1.16 +        greenByte:(green value) 
    1.17 +        blueByte:(blue value)
    1.18 +
    1.19 +    "Modified (format): / 30-04-2019 / 15:12:35 / Claus Gittinger"
    1.20  !
    1.21  
    1.22  htmlColorName
    1.23 @@ -965,7 +972,11 @@
    1.24          self setPreview:clr.
    1.25          self htmlColorNameHolder value:(clr htmlPrintString) withoutNotifying:self.
    1.26  
    1.27 -        nm := #(white red green blue black) detect:[:nm | clr = (Color perform:nm)] ifNone:nil.
    1.28 +        nm := #(white black
    1.29 +                gray lightGray darkGray
    1.30 +                red green blue 
    1.31 +                yellow magenta cyan
    1.32 +                orange brown) detect:[:nm | clr = (Color perform:nm)] ifNone:nil.
    1.33          nm notNil ifTrue:[
    1.34              self colorDefinitionStringHolder value:('Color ',nm).
    1.35          ] ifFalse:[
    1.36 @@ -975,6 +986,7 @@
    1.37      ].
    1.38  
    1.39      "Modified: / 27-01-2011 / 12:54:04 / cg"
    1.40 +    "Modified: / 30-04-2019 / 15:09:48 / Claus Gittinger"
    1.41  !
    1.42  
    1.43  colorChangedTo:clr