#UI_ENHANCEMENT by cg draft
authorClaus Gittinger <cg@exept.de>
Tue, 30 Apr 2019 15:13:35 +0200
changeset 3657 bb1dd1360035
parent 3656 84177d270097
child 3658 18137fdc0f76
#UI_ENHANCEMENT by cg class: ColorEditDialog comment/format in: #colorNameOrColor changed: #colorChanged
ColorEditDialog.st
--- a/ColorEditDialog.st	Thu Apr 11 18:30:42 2019 +0200
+++ b/ColorEditDialog.st	Tue Apr 30 15:13:35 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by eXept Software AG
               All Rights Reserved
@@ -947,7 +949,12 @@
         "/ ^ Color name:(colorName asSymbol)
         ^ colorName asSymbol
     ].
-    ^ Color redByte:(red value) greenByte:(green value) blueByte:(blue value)
+    ^ Color 
+        redByte:(red value) 
+        greenByte:(green value) 
+        blueByte:(blue value)
+
+    "Modified (format): / 30-04-2019 / 15:12:35 / Claus Gittinger"
 !
 
 htmlColorName
@@ -965,7 +972,11 @@
         self setPreview:clr.
         self htmlColorNameHolder value:(clr htmlPrintString) withoutNotifying:self.
 
-        nm := #(white red green blue black) detect:[:nm | clr = (Color perform:nm)] ifNone:nil.
+        nm := #(white black
+                gray lightGray darkGray
+                red green blue 
+                yellow magenta cyan
+                orange brown) detect:[:nm | clr = (Color perform:nm)] ifNone:nil.
         nm notNil ifTrue:[
             self colorDefinitionStringHolder value:('Color ',nm).
         ] ifFalse:[
@@ -975,6 +986,7 @@
     ].
 
     "Modified: / 27-01-2011 / 12:54:04 / cg"
+    "Modified: / 30-04-2019 / 15:09:48 / Claus Gittinger"
 !
 
 colorChangedTo:clr