#UI_ENHANCEMENT by cg
class: ColorEditDialog
comment/format in: #colorNameOrColor
changed: #colorChanged
--- 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