# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1556630015 -7200
# Node ID bb1dd1360035a4367d8d6f872344cd5ded21bd9f
# Parent  84177d270097d4da56c38e9dca6f07be087f77f7
#UI_ENHANCEMENT by cg
class: ColorEditDialog
comment/format in: #colorNameOrColor
changed: #colorChanged

diff -r 84177d270097 -r bb1dd1360035 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