ColorEditDialog.st
author Patrik Svestka <patrik.svestka@gmail.com>
Wed, 14 Nov 2018 12:07:51 +0100
branchjv
changeset 3630 5e718e0a754e
parent 3194 86cf12ddc8fd
child 3519 4fbc55af0d28
permissions -rw-r--r--
Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present - All source *.st files are now Unicode UTF8 without BOM Files are in two groups (fileOut works this way in Smalltalk/X): - containing a unicode character have "{ Encoding: utf8 }" at the header - ASCII only are without the header
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
 COPYRIGHT (c) 1995 by eXept Software AG
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
              All Rights Reserved
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
 This software is furnished under a license and may be used
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 hereby transferred.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libtool2' }"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
3179
174a9f51db76 class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 3175
diff changeset
    14
"{ NameSpace: Smalltalk }"
174a9f51db76 class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 3175
diff changeset
    15
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
SimpleDialog subclass:#ColorEditDialog
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
    17
	instanceVariableNames:'red green blue hue light saturation colorNameHolder
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
    18
		htmlColorNameHolder colorDefinitionStringHolder previewBox
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
    19
		brightnessStringHolder'
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
	classVariableNames:''
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
	poolDictionaries:''
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
	category:'Interface-UIPainter'
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
!ColorEditDialog class methodsFor:'documentation'!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
copyright
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
 COPYRIGHT (c) 1995 by eXept Software AG
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
              All Rights Reserved
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
 This software is furnished under a license and may be used
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
 only in accordance with the terms of that license and with the
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
 inclusion of the above copyright notice.   This software may not
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
 be provided or otherwise made available to, or used by, any
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
 other person.  No title to or ownership of the software is
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
 hereby transferred.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
documentation
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
    An edit-dialog for colors.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
examples
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
                                                                                [exBegin]                                      
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
    |editor color|
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
1846
65558eb9f4d3 comments
Claus Gittinger <cg@exept.de>
parents: 1840
diff changeset
    52
    editor := ColorEditDialog new.
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
    editor color:(Color green).
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
    editor open.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
    editor accepted ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
        editor color inspect.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
    ]
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
                                                                                [exEnd]
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
! !
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    62
!ColorEditDialog class methodsFor:'help specs'!
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    63
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    64
flyByHelpSpec
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    65
    "This resource specification was automatically generated
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    66
     by the UIHelpTool of ST/X."
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    67
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    68
    "Do not manually edit this!! If it is corrupted,
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    69
     the UIHelpTool may not be able to read the specification."
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    70
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    71
    "
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    72
     UIHelpTool openOnClass:ColorEditDialog    
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    73
    "
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    74
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    75
    <resource: #help>
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    76
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    77
    ^ super flyByHelpSpec addPairsFrom:#(
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    78
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    79
#pickColor
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    80
'Pick a Color from the Screen'
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    81
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    82
)
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    83
!
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    84
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    85
helpSpec
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    86
    "This resource specification was automatically generated
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    87
     by the UIHelpTool of ST/X."
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    88
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    89
    "Do not manually edit this!! If it is corrupted,
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    90
     the UIHelpTool may not be able to read the specification."
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    91
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    92
    "
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    93
     UIHelpTool openOnClass:ColorEditDialog    
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    94
    "
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    95
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    96
    <resource: #help>
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    97
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    98
    ^ super helpSpec addPairsFrom:#(
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    99
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   100
#brightness
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   101
'The Color''s brightness value (0..1)'
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   102
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   103
#colorDefinitionString
2904
bd6cacbab203 changed: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 2831
diff changeset
   104
'A Smalltalk expression to construct the color'
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   105
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   106
#colorName
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   107
'The standard colorname (as used in the X-Window System), if known'
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   108
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   109
#copyToClipboard
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   110
'Copy the color to the clipboard'
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   111
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   112
#hlsMixer
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   113
'Mix color from hls (hue-light-saturation) components'
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   114
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   115
#htmlColorName
2904
bd6cacbab203 changed: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 2831
diff changeset
   116
'The color as used in an HTML page'
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   117
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   118
#pasteFromClipboard
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   119
'Paste color from the Clipboard'
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   120
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   121
#rgbMixer
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   122
'Mix color from rgb (red-green-blue) components'
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   123
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   124
)
2904
bd6cacbab203 changed: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 2831
diff changeset
   125
bd6cacbab203 changed: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 2831
diff changeset
   126
    "Modified: / 09-08-2012 / 09:35:29 / cg"
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   127
! !
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   128
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   129
!ColorEditDialog class methodsFor:'image specs'!
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   130
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   131
hueGradientImage
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   132
    "This resource specification was automatically generated
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   133
     by the ImageEditor of ST/X."
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   134
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   135
    "Do not manually edit this!! If it is corrupted,
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   136
     the ImageEditor may not be able to read the specification."
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   137
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   138
    "
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   139
     self hueGradientImage inspect
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   140
     ImageEditor openOnClass:self andSelector:#hueGradientImage
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   141
     Icon flushCachedIcons
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   142
    "
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   143
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   144
    <resource: #image>
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   145
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   146
    ^Icon
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   147
        constantNamed:'ColorEditDialog hueGradientImage'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   148
        ifAbsentPut:[(Depth8Image new) width:400; height:50; bits:(ByteArray fromPackedString:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   149
J%YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"N#*Z&#NCA0]6MSV (K1N$C<)ZV%+Z9]GGKT^RT$QH(6MN3,=*DJD!!HR2WKJ2C 8NC%EQ%IRT%IPEKPTE
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   150
''I2\''KZ6]AHRD''=(ZG<ZF!!*GV8][!!3^IC0<OTG1<@@AXKE!!X&9.Y&7U5]X>O#8>OLC@0LC@0LCA:NW):^''):^(UCP8VE!!XT<##0<OH:NK2</K2</K2=9^W%9
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   151
^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LCZ&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   152
+;F/+1 XFA"R$+"8.K!!&''"N^''''@I\@%WVU$TEAPA(:N#"(*J"(X_G1-,[F0UEQUOS6]OR;]K\WM1\R8.K"9>_''9>_''9>''Y46''Y6]M#Z************4-KR4
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   153
-KR4-B,+J2,+J2,+J0-LS@-LSD1APTEAPTEAPTFK"8.K"8.K"5YVU")VU(HFA  HMCR_]7^9.;-ST4A@%&9.,KAHRBD!!X#(:&)(3 0\G]#T5(JB<S)@?JV%)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   154
Z6.WQ125G$%IDRJM#S,;OZ!!B!!HRD,%22, 8NC 9QTYRT%IRTAR4EAY2\''I26-''PRD!!I?ZF!!?F!!(Z!!5.GV8\7"P<OC5A<_@@@VB1XVI.[&Y-5]WVO#8>O#3@0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   155
LC@0LC@0^#%:^''):^''*EP4NE!!XVEOH8<OC2N#"</K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   156
#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HATUJZ&)FM#XVF3,:>1+;DX[V4X*Z&8Y&Y&Y"L#''"M0BP$IVU%Y@PDA@ZN#^3 8"# _G1<[[A,[E1\WY6]''
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   157
Y;^7R7M3\7M/K"9/@ HB@ I>@#Z]M)6]''SX6************-KR4-KR4-KP+J2,+J2,+J2,KSD0KSD1LE$EAPTEAPQYA"8.K"8.K"8-VU"(*U%ZBA XHBCP4
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   158
''7]7.[.;T5M@PIY.[+B0RD !!HVH:N)*ZL8LGA7X5MZB /D:PO2%)ZV-+%4\\-Q9IRQD"#X4;N36(P(RD!!KI\,+HNC 8NTUFT%IRT%@T-APV\''I2\-+Y4D!!HR
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   159
_6!!(_1(ZF(][!!5.GM8$OC0=P_G0@@E ,VE"[&9&[]WU5#8>O#8<0LC@0LC@0LG(9^''):^''):!!TMC!!XVE!!S2NOC0<#(8/K2</K2</K7%9^W%9^W%9+*:.+*:.
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   160
+&U%YVU%YVU%YTUEAIVU$9MRT+*:^G MW55]LSF- XEUUS8>)ZU$#H1JR''I2GQ6X@0M*Z''5=JB &(P0LW%82L%)Z+HB@UER&)*Q#X6E!!,;N/,[F1[V5-[Z&)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   161
Y&Y&Y&X#H2L#BP$IBU%YVPDA@PE;^7,8NC 8G1<_F1,[F1\WE6]''Y6^7-;]3\7M3[6=/[0HB@ HB@ H6M#Z]''Y46M************+R4-KR4-KR4J2,+J2,+
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   162
J2,+B41LB41LSAYAPTEAPTDVPX.K"8.K"8.KU%X*J%YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"N#*Z&#NCA0]6MSV (D9N$I@)ZV%+Z9^WGA8^RT$"
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   163
H(6MN3,=*DJD!!HR2WKJ2C 8NC%EQ%IRT%IPEKPTE''I2\''KZ6]AHRD''=(ZG<ZF!!*GV8][!!3^IC0<OTG1<@@AXKE!!X&9.Y&7U5]X>O#8>OLC@0LC@0LCA:NW):
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   164
^''):^(UCP8VE!!XT<##0<OH:NK2</K2</K2=9^W%9^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LC
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   165
Z&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3+;F/,Q!!-[Q")*[!!&Y&Y&H2N^H7@IBP%YVU$A@PDA(:M;NC"JNA<_G1-,F1,WE1]''Y6]''-;]K\7M3\6<.
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   166
K&<B@ HB@''8BM)46''Y6]M#Z************4-KR4-KR4-B,+J2,+J2,+J0-LS@,KB0,VPQXVPQXVE!!ZKHB@ HB@ HB(*J")VU(HFA  HMCR_]7^9.;-ST4A@
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   167
%&9.,KAHRBD!!X#(:&)(3 0\G]#T5(JB<S)@?JV%)Z6.WQ125G$%IDRJM#S,;OZ!!B!!HRD,%22, 8NC 9QTYRT%IRTAPTEAY2\''I26-+XRD!!I?_7=?F!!(Z!!8^G
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   168
!!8\7M0=PTE@@@@@@VE!!XVI.[&9-5]WVO#8>O#3@0LC@0LC@0^''):^''):^''*E!!XVE!!XVEOH8<OC2N#"</K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   169
QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HATUJZ&)FM#XVF3,:>1+:<XFA X$)J8.K"8Y)8#'')90
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   170
BW@IU5%YEAPT@ZN#(8*J"(*FG1<[[F1,EQTUS4=''S4.7R7E3\WD.K"8._''9>_''9>_)6]M)6]''SX6************-KR4-KR4-KP+J2,+J2,+J2,KSD0KSD1L
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   171
E$EAPTEAPQYA"8.K"8.K"8-VU"(*U%ZBA XHBCP4''7]7.[.;T5M@PIY.[+B0RD !!HVH:N)*ZL8LGA7Z"("\''/K0?O2%)ZTQ+Q4\J-[T$IAD"$YD;N36(P(RD
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   172
!!KI\,+HNC 8NTUFT%IRT%@T-APV\''I2\-+Y4D!!HR_6!!(_1(ZF(][!!5.GM8$OC0=P_G0@@E ,VE"[&9&[]WU5#8>O#8<0LC@0LC@0LG(9^''):^''):!!TMC!!XVE
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   173
!!S2NOC0<#(8/K2</K2</K7%9^W%9^W%9+*:.+*:.+&U%YVU%YVU%YTUEAIVU$9MRT+*:^G MW55]LSF- XEUUS8>)ZU$#H1JR''I2GQ6X@0M*Z''5=JB &(P0L
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   174
W%82L%)Z+HB@UER&)*Q#X6E!!,;N/,Z>1FF5-FJ&).FY&Y&X#H98#\@$IBU%YVPDA@PF#(7,8NH(8G1<_F60[F1\WE6]''Y6^7-4-3\7M3[28.[0HB@ HB_ H6
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   175
''SZ]''Y46M************+R4-KR4-KR4J2,+J2,+J2,+B41LB0,KB1YAE!!YAE!!XVE(, HB@ HB@ J"(*J%YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   176
N#*Z&#NCA0]6MSV (K1N$C<)ZV%+Z9]GGKT^RT$QH(6MN3,=*DJD!!HR2WKJ2C 8NC%EQ%IRT%IPEKPTE''I2\''KZ6]AHRD''=(ZG<ZF!!*GV8][!!3^IC0<OTG1<
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   177
@@AXKE!!X&9.Y&7U5]X>O#8>OLC@0LC@0LCA:NW):^''):^(UCP8VE!!XT<##0<OH:NK2</K2</K2=9^W%9^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   178
.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LCZ&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3+;F/,Q!!-[Q")*[!!&Y&Y&H2N^H7@IBP%YVU$A@PDA
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   179
(:M;NC"JNA<_G1-,F1,WE1]''Y6]''-;]K\7M3\6<.K&<B@ HB@''8BM)46''Y6]M#Z************4-KR4-KR4-B,+J2,+J2,+J0-LS@-LSD0VPTEAPTEAE$FK
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   180
"8.K"8.K"5YVJ")VU(HFA  HMCR_]7^9.;-ST4A@%&9.,KAHRBD!!X#(:&)(3 0\G]*J"I2^</C<?JV%)QF-GQ0*5-RP$DRJQ$S,;OZ!!B!!HRD,%1\, 9 XF@P
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   181
TZ^T%IR''KR4EKTYFQ$Y4]GP%IRU?ZF!!(*1*+!!5-[V5.I"P<OC5A<_@A<KB0,KI&Y&Y.H"H"OST6OSS@YFQ$0FQ$YNS$9NS%:^'')CP4MCP8VE#(8<OC2N#"</
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   182
K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HAT
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   183
UJZ&)FM#XVF3,:>1+;DX[V4X*Z&8Y&Y&Y"L#''"M0BP$IVU%Y@PDA@ZN#^3 8"# _G1<[[A,[E1\WY6]''Y;^7R7M3\7M/K"9/@ HB@ I>@#Z]M)6]''SX6****
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   184
********-KR4-KR4-KP+J2,+J2,+J2,KSD0KB0,KE$DVE$DVE!!XV"2@ HB@ HB@*J"(*U%ZBA XHBCP4''7]7.[.;T5M@PIY.[+B0RD !!HVH:N)*ZL8LGA7X5
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   185
MZB S$:P$B%)ZV-+%9\\G!!9IRRH"#X4;N36(P(RD!!KI\,+HNC 8NTUFT%IRT%@T-APV\''I2\-+Y4D!!HR_6!!(_1(ZF(][!!5.GM8$OC0=P_G0@@E ,VE"[&9&[
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   186
]WU5#8>O#8<0LC@0LC@0LG(9^''):^''):!!TMC!!XVE!!S2NOC0<#(8/K2</K2</K7%9^W%9^W%9+*:.+*:.+&U%YVU%YVU%YTUEAIVU$9MRT+*:^G MW55]LSF-
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   187
 XEUUS8>)ZU$#H1JR''I2GQ6X@0M*Z''5=JB &(P0LW%82L%)Z+HB@UER&)*Q#X6E!!,;N/,Z>1FF5-FJ&).FY&Y&X#H98#\@$IBU%YVPDA@PF#(7,8NH(8G1<_
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   188
F60[F1\WE6]''Y6^7-4-3\7M3[28.[0HB@ HB_ H6''SZ]''Y46M************+R4-KR4-KR4J2,+J2,+J2,+B41LB0,KB1YAE!!YAE!!XVE(, HB@ HB@ J"(*
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   189
J%YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"N#*Z&#NCA0]6MSV (K1N$C<)ZV%+Z9]GGKT^RT$QH(6MN3,=*DJD!!HR2WE22C&A XAAQ)9RT%J\-KPT-
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   190
Q$YFQ''Q4]BT%IW=(ZF"+F*.GV5-[V8&IC0<OTG1<@G0,KB0,&Y&Y&8"H"H=MSX=MLA$YFS@YFQ$9NS$9NW):^$MCP4MC!!XVN##0<OH:NK2</K2</K2=9^W%9
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   191
^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LCZ&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   192
+;F/,Q!!-[Q")*[!!&Y&Y&H2N^H7@IBP%YVU$A@PDA(:M;NC"JNA<_G1-,F1,WE1]''Y6]''-;]K\7M3\6<.K&<B@ HB@''8BM)46''Y6]M#Z************4-KR4
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   193
-KR4-B,+J2,+J2,+J0-LS@-LSD0VPTEAPTEAE$FK"8.K"8.K"5YVJ")VU(HFA  HMCR_]7^9.;-ST4A@%&9.,KAHRBD!!X#(:&)(3 0\G]#T5(JB<S)@?JV%)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   194
Z6.WQ125G$%IDRJM#S,;OZ!!B!!HRD,%22, 8NC 9QTYRT%IRTAR4EAY2\''I26-''PRD!!I?ZF!!?F!!(Z!!5.GV8\7"P<OC5A<_@@@VB1XVI.[&Y-5]WVO#8>O#3@0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   195
LC@0LC@0^#%:^''):^''*EP4NE!!XVEOH8<OC2N#"</K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   196
#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HATUJZ&)FM#XVF3,:>1+;DX[V4X*Z&8Y&Y&Y"L#''"M0BP$IVU%Y@PDA@ZN#^3 8"# _G1<[[A,[E1\WY6]''
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   197
Y;^7R7M3\7M/K"9/@ HB@ I>@#Z]M)6]''SX6************-KR4-KR4-KP+J2,+J2,+J2,KSD0KB0,KE$DVE$DVE!!XV"2@ HB@ HB@*J"(*U%ZBA XHBCP4
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   198
''7]7.[.;T5M@PIY.[+B0RD !!HVH:N)*ZL8LGA7X5MZB S$:P$B%)ZV-+%9\\G!!9IRRH"#X4;N36(P(RD!!KI\WKHNXFA DEF''%IRT)24-AR5FQ$YF]GQ4IRT%
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   199
_6!!(ZJ,Z*8][V5-["X$OC0=P_G0@_B0,KB2Y&Y&["H"H#45M#440FQ$YLA$YFS$9NS$9^''):P4MCP4NE!!X:NOC0<#(8/K2</K2</K7%9^W%9^W%9+*:.+*:.
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   200
+&U%YVU%YVU%YTUEAIVU$9MRT+*:^G MW55]LSF- XEUUS8>)ZU$#H1JR''I2GQ6X@0M*Z''5=JB &(P0LW%82L%)Z+HB@UER&)*Q#X6E!!,;N/,Z>1FF5-FJ&)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   201
.FY&Y&X#H98#\@$IBU%YVPDA@PF#(7,8NH(8G1<_F60[F1\WE6]''Y6^7-4-3\7M3[28.[0HB@ HB_ H6''SZ]''Y46M************+R4-KR4-KR4J2,+J2,+
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   202
J2,+B41LB41LSDEAPTEAPTEAPX.K"8.K"8.KU%YVJ%YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"N#*Z&#NCA0]6MSV (D9N$I@)ZV%+Z9^WGA8^RT$"
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   203
H(6MN3,=*DJD!!HR2WKJ2C 8NC%EQ%IRT%IPEKPTE''I2\''KZ6]AHRD''=(ZG<ZF!!*GV8][!!3^IC0<OTG1<@@AXKE!!X&9.Y&7U5]X>O#8>OLC@0LC@0LCA:NW):
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   204
^''):^(UCP8VE!!XT<##0<OH:NK2</K2</K2=9^W%9^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LC
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   205
Z&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3+;F1,V5-[V6)*VY&Y&Y&H2L#H0$IBP%YVU$A@PDA^7-;NC 8NA<_G1,[F1,WE1]''Y6]''-;^7\7M3\6=/
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   206
[6<B@ HB@ HBM#X6''Y6]M#Z************4-KR4-KR4-B,+J2,+J2,+J0-LS@-LSD1APTEAPTEAPTFK"8.K"8.K"5YVU")VU(HFA  HMCR_]7^9.;-ST4A@
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   207
%&9.,KAHRBD!!X#(:&)(3 0\G]#T5(JANS)BPJV%)Z6.W%10^G$%IH"JM#S,;OZ!!B!!HRD,%22, 8NC 9QTYRT%IRTAR4EAY2\''I26-''PRD!!I?ZF!!?F!!(Z!!5.G
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   208
V8\7"P<OC5A<_@@@VB1XVI.[&Y-5]WVO#8>O#3@0LC@0LC@0^#%:^''):^''*EP4NE!!XVEOH8<OC2N#"</K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   209
QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HATUJZ&)FM#XVF3,:>1+;DX[V4X*Z&8Y&Y&Y"L#''"M0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   210
BP$IVU%Y@PDA@ZN#^3 8"# _G1<[[A,[E1\WY6]''Y;^7R7M3\7M/K"9/@ HB@ I>@#Z]M)6]''SX6************-KR4-KR4-KP+J2,+J2,+J2,KSD0KSD1L
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   211
E$EAPTEAPQYA"8.K"8.K"8-VU"(*U%ZBA XHBCP4''7]7.[.;T5M@PIY.[+B0RD !!HVH:N)*ZL8LGA7X5MZB /D:PO2%)ZV-+%4\\-Q9IRQD"#X4;N36(P(RD
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   212
!!KI\,+HNC 8NTUFT%IRT%@T-APV\''I2\-+Y4D!!HR_6!!(_1(ZF(][!!5.GM8$OC0=P_G0@@E ,VE"[&9&[]WU5#8>O#8<0LC@0LC@0LG(9^''):^''):!!TMC!!XVE
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   213
!!S2NOC0<#(8/K2</K2</K7%9^W%9^W%9+*:.+*:.+&U%YVU%YVU%YTUEAIVU$9MRT+*:^G MW55]LSF- XEUUS8>)ZU$#H1JR''I2GQ6X@0M*Z''5=JB &(P0L
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   214
W%82L%)Z+HB@UER&)*Q#X6E!!,;N/,Z>1FF5-FJ&).FY&Y&X#H98#\@$IBU%YVPDA@PF#(7,8NH(8G1<_F60[F1\WE6]''Y6^7-4-3\7M3[28.[0HB@ HB_ H6
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   215
''SZ]''Y46M************+R4-KR4-KR4J2,+J2,+J2,+B41LB0,KB1YAE!!YAE!!XVE(, HB@ HB@ J"(*J%YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   216
N#*Z&#NCA0]6MSV (K1N$C<)ZV%+Z9]GGKT^RT$QH(6MN3,=*DJD!!HR2WKJ2C 8NC%EQ%IRT%IPEKPTE''I2\''KZ6]AHRD''=(ZG<ZF!!*GV8][!!3^IC0<OTG1<
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   217
@@AXKE!!X&9.Y&7U5]X>O#8>OLC@0LC@0LCA:NW):^''):^(UCP8VE!!XT<##0<OH:NK2</K2</K2=9^W%9^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   218
.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LCZ&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3+;F/,Q!!-[Q")*[!!&Y&Y&H2N^H7@IBP%YVU$A@PDA
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   219
(:M;NC"JNA<_G1-,F1,WE1]''Y6]''-;]K\7M3\6<.K&<B@ HB@''8BM)46''Y6]M#Z************4-KR4-KR4-B,+J2,+J2,+J0-LS@,KB0,VPQXVPQXVE!!ZK
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   220
HB@ HB@ HB(*J")VU(HFA  HMCR_]7^9.;-ST4A@%&9.,KAHRBD!!X#(:&)(3 0\G]*J"I2^</C<?JV%)QF-GQ0*5-RP$DRJQ$S,;OZ!!B!!HRD,%22, 8NC 9Q
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   221
TYRT%IRTAR4EAY2\''I26-''PRD!!I?ZF!!?F!!(Z!!5.GV8\7"P<OC5A<_@@@VB1XVI.[&Y-5]WVO#8>O#3@0LC@0LC@0^#%:^''):^''*EP4NE!!XVEOH8<OC2N#"</
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   222
K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HAT
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   223
UJZ&)FM#XVF3,:>1,[E-[V5-*Z%&Y&Y&Y"L#H2LIBP$IVU%Y@PDA@W-;^3 8NC _G1<[F1,[E1\WY6]''Y;^7-7M3\7M/[6=/@ HB@ HB@#X6M)6]''SX6****
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   224
********-KR4-KR4-KP+J2,+J2,+J2,KSD0KB0,KE$DVE$DVE!!XV"2@ HB@ HB@*J"(*U%ZBA XHBCP4''7]7.[.;T5M@PIY.[+B0RD !!HVH:N)*ZL8LGA7X5
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   225
MZB /D:PO2%)ZV-+%4\\-Q9IRQD"#X4;N36(P(RD!!KI\,+HNC 8NTUFT%IRT%@TEAPV\''I2\-+Z6D!!HR_7=?_1(ZF(^G!!8^GM3\OTEAP@@@@@E!!XVE"[&9.[
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   226
]WU5#8>O#8<0LC@0LC@0LG):^''):^''):!!XVE!!XVE!!S2NOC0<#(8/K2</K2</K7%9^W%9^W%9+*:.+*:.+&U%YVU%YVU%YTUEAIVU$9MRT+*:^G MW55]LSF-
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   227
 XEUUS8>)ZU$#H1JR''I2GQ6X@0M*Z''5=JB &(P0LW%82L%)Z+HB@UER&)*Q#X6E!!,;N/,[F1[V5-[Z&)Y&Y&Y&X#H2L#BP$IBU%YVPDA@PE;^7,8NC 8G1<_
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   228
F1,[F1\WE6]''Y6^7-;]3\7M3[6=/[0HB@ HB@ H6M#Z]''Y46M************+R4-KR4-KR4J2,+J2,+J2,+B41LB41LSAYAPTEAPTDVPX.K"8.K"8.KU%X*
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   229
J%YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"N#*Z&#NCA0]6MSV (K1N$C<)ZV%+Z9]GGKT^RT$QH(6MN3,=*DJD!!HR2WE22C&A XAAQ)9RT%J\-APT-
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   230
Q$YFQ''Q4-"T%IW=?_6"+F*.G!!5.GV8$7C5APT@@@@G0,VB0,&Y&[&8"H"H=MSX=MLA$YFS@YFQ$9^#$9NW):^$NE!!TMC!!XVN##0<OH:NK2</K2</K2=9^W%9
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   231
^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LCZ&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   232
+;F1,V5-[V6)*VY&Y&Y&H2L#H0$IBP%YVU$A@PDA^7-;NC 8NA<_G1,[F1,WE1]''Y6]''-;^7\7M3\6=/[6<B@ HB@ HBM#X6''Y6]M#Z************4-KR4
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   233
-KR4-B,+J2,+J2,+J0-LS@-LSD0VPTEAPTEAE$FK"8.K"8.K"5YVJ")VU(HFA  HMCR_]7^9.;-ST4A@%&9.,KAHRBD!!X#(:&)(3 0\G]#T5(JB<S)@?JV%)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   234
Z6.WQ125G$%IDRJM#S,;OZ!!B!!HRD,%22, 8NC 9QTYRT%IRTAPTEAY2\''I26-+XRD!!I?_7=?F!!(Z!!8^G!!8\7M0=PTE@@@@@@VE!!XVI.[&9-5]WVO#8>O#3@0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   235
LC@0LC@0^''):^''):^''*E!!XVE!!XVEOH8<OC2N#"</K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   236
#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HATUJZ&)FM#XVF3,:>1,[E-[V5-*Z%&Y&Y&Y"L#H2LIBP$IVU%Y@PDA@W-;^3 8NC _G1<[F1,[E1\WY6]''
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   237
Y;^7-7M3\7M/[6=/@ HB@ HB@#X6M)6]''SX6************-KR4-KR4-KP+J2,+J2,+J2,KSD0KSD1LE$EAPTEAPQYA"8.K"8.K"8-VU"(*U%ZBA XHBCP4
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   238
''7]7.[.;T5M@PIY.[+B0RD !!HVH:N)*ZL8LGA7X5MZB S$:P$B%)ZV-+%9\\G!!9IRRH"#X4;N36(P(RD!!KI\,+HNC 8NTUFT%IRT%@TEAPV\''I2\-+Z6D!!HR
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   239
_7=?_1(ZF(^G!!8^GM3\OTEAP@@@@@E!!XVE"[&9.[]WU5#8>O#8<0LC@0LC@0LG):^''):^''):!!XVE!!XVE!!S2NOC0<#(8/K2</K2</K7%9^W%9^W%9+*:.+*:.
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   240
+&U%YVU%YVU%YTUEAIVU$9MRT+*:^G MW55]LSF- XEUUS8>)ZU$#H1JR''I2GQ6X@0M*Z''5=JB &(P0LW%82L%)Z+HB@UER&)*Q#X6E!!,;N/,Z>1FF5-FJ&)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   241
.FY&Y&X#H98#\@$IBU%YVPDA@PF#(7,8NH(8G1<_F60[F1\WE6]''Y6^7-4-3\7M3[28.[0HB@ HB_ H6''SZ]''Y46M************+R4-KR4-KR4J2,+J2,+
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   242
J2,+B41LB41LSAYAPTEAPTDVPX.K"8.K"8.KU%X*J%YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"N#*Z&#NCA0]6MSV (K1N$C<)ZV%+Z9]GGKT^RT$Q
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   243
H(6MN3,=*DJD!!HR2WKJ2C 8NC%EQ%IRT%IPEKPTE''I2\''KZ6]AHRD''=(ZG<ZF!!*GV8][!!3^IC0<OTG1<@@AXKE!!X&9.Y&7U5]X>O#8>OLC@0LC@0LCA:NW):
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   244
^''):^(UCP8VE!!XT<##0<OH:NK2</K2</K2=9^W%9^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LC
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   245
Z&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3+;F1,V5-[V6)*VY&Y&Y&H2L#H0$IBP%YVU$A@PDA^7-;NC 8NA<_G1,[F1,WE1]''Y6]''-;^7\7M3\6=/
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   246
[6<B@ HB@ HBM#X6''Y6]M#Z************4-KR4-KR4-B,+J2,+J2,+J0-LS@,KB0,VPQXVPQXVE!!ZKHB@ HB@ HB(*J")VU(HFA  HMCR_]7^9.;-ST4A@
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   247
%&9.,KAHRBD!!X#(:&)(3 0\G]#T5(JANS)BPJV%)Z6.W%10^G$%IH"JM#S,;OZ!!B!!HRD,%22, 8NC 9QTYRT%IRTAR4EAY2\''I26-''PRD!!I?ZF!!?F!!(Z!!5.G
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   248
V8\7"P<OC5A<_@@@VB1XVI.[&Y-5]WVO#8>O#3@0LC@0LC@0^#%:^''):^''*EP4NE!!XVEOH8<OC2N#"</K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   249
QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HATUJZ&)FM#XVF3,:>1+:<XFA X$)J8.K"8Y)8#'')90
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   250
BW@IU5%YEAPT@ZN#(8*J"(*FG1<[[F1,EQTUS4=''S4.7R7E3\WD.K"8._''9>_''9>_)6]M)6]''SX6************-KR4-KR4-KP+J2,+J2,+J2,KSD0KB0,K
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   251
E$DVE$DVE!!XV"2@ HB@ HB@*J"(*U%ZBA XHBCP4''7]7.[.;T5M@PIY.[+B0RD !!HVH:N)*ZL8LGA7X5MZB /D:PO2%)ZV-+%4\\-Q9IRQD"#X4;N36(P(RD
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   252
!!KI\,+HNC 8NTUFT%IRT%@T-APV\''I2\-+Y4D!!HR_6!!(_1(ZF(][!!5.GM8$OC0=P_G0@@E ,VE"[&9&[]WU5#8>O#8<0LC@0LC@0LG(9^''):^''):!!TMC!!XVE
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   253
!!S2NOC0<#(8/K2</K2</K7%9^W%9^W%9+*:.+*:.+&U%YVU%YVU%YTUEAIVU$9MRT+*:^G MW55]LSF- XEUUS8>)ZU$#H1JR''I2GQ6X@0M*Z''5=JB &(P0L
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   254
W%82L%)Z+HB@UER&)*Q#X6E!!,;N/,Z>1FF5-FJ&).FY&Y&X#H98#\@$IBU%YVPDA@PF#(7,8NH(8G1<_F60[F1\WE6]''Y6^7-4-3\7M3[28.[0HB@ HB_ H6
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   255
''SZ]''Y46M************+R4-KR4-KR4J2,+J2,+J2,+B41LB0,KB1YAE!!YAE!!XVE(, HB@ HB@ J"(*J%YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   256
N#*Z&#NCA0]6MSV (K1N$C<)ZV%+Z9]GGKT^RT$QH(6MN3,=*DJD!!HR2WKJ2C 8NC%EQ%IRT%IPEAPTE''I2\''KZ6-!!HRD''=?_7<ZF!!*G!!8^G!!3\7C5APT@@@
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   257
@@AXVE!!X&9.[&7U5]X>O#8>OLC@0LC@0LCA:^''):^''):^(VE!!XVE!!XT<##0<OH:NK2</K2</K2=9^W%9^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   258
.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LCZ&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3+;F1,V5-[V6)*VY&Y&Y&H2L#H0$IBP%YVU$A@PDA
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   259
^7-;NC 8NA<_G1,[F1,WE1]''Y6]''-;^7\7M3\6=/[6<B@ HB@ HBM#X6''Y6]M#Z************4-KR4-KR4-B,+J2,+J2,+J0-LS@-LSD0VPTEAPTEAE$FK
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   260
"8.K"8.K"5YVJ")VU(HFA  HMCR_]7^9.;-ST4A@%&9.,KAHRBD!!X#(:&)(3 0\G]#T5(JANS)BPJV%)Z6.W%10^G$%IH"JM#S,;OZ!!B!!HRD,%22, 8NC 9Q
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   261
TYRT%IRTAR4EAY2\''I26-''PRD!!I?ZF!!?F!!(Z!!5.GV8\7"P<OC5A<_@@@VB1XVI.[&Y-5]WVO#8>O#3@0LC@0LC@0^#%:^''):^''*EP4NE!!XVEOH8<OC2N#"</
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   262
K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HAT
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   263
UJZ&)FM#XVF3,:>1+:<XFA X$)J8.K"8Y)8#'')90BW@IU5%YEAPT@ZN#(8*J"(*FG1<[[F1,EQTUS4=''S4.7R7E3\WD.K"8._''9>_''9>_)6]M)6]''SX6****
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   264
********-KR4-KR4-KP+J2,+J2,+J2,KSD0KSD1LE$EAPTEAPQYA"8.K"8.K"8-VU"(*U%ZBA XHBCP4''7]7.[.;T5M@PIY.[+B0RD !!HVH:N)*ZL8LGA7X5
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   265
MZB /D:PO2%)ZV-+%4\\-Q9IRQD"#X4;N36(P(RD!!KI\,+HNC 8NTUFT%IRT%@T-APV\''I2\-+Y4D!!HR_6!!(_1(ZF(][!!5.GM8$OC0=P_G0@@E ,VE"[&9&[
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   266
]WU5#8>O#8<0LC@0LC@0LG(9^''):^''):!!TMC!!XVE!!S2NOC0<#(8/K2</K2</K7%9^W%9^W%9+*:.+*:.+&U%YVU%YVU%YTUEAIVU$9MRT+*:^G MW55]LSF-
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   267
 XEUUS8>)ZU$#H1JR''I2GQ6X@0M*Z''5=JB &(P0LW%82L%)Z+HB@UER&)*Q#X6E!!,;N/,Z>/FA XFIJR.K"8.FZ^H9:^\@%0BU]YVQPTE@F#(:NJ"(*J!!!!<_
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   268
F61,[ATUET=OY4=K-4-1\7E1K"8.K''9>_''9>_'':]''SZ]''Y46M************+R4-KR4-KR4J2,+J2,+J2,+B41LB41LSAYAPTEAPTDVPX.K"8.K"8.KU%X*
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   269
J%YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"N#*Z&#NCA0]6MSV (K1N$C<)ZV%+Z9]GGKT^RT$QH(6MN3,=*DJD!!HR2WE22C&A XAAQ)9RT%J\-KPT-
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   270
Q$YFQ''Q4]BT%IW=(ZF"+F*.GV5-[V8&IC0<OTG1<@G0,KB0,&Y&Y&8"H"H=MSX=MLA$YFS@YFQ$9NS$9NW):^$MCP4MC!!XVN##0<OH:NK2</K2</K2=9^W%9
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   271
^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LCZ&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   272
+;F/,Q!!-[Q")*[!!&Y&Y&H2N^H7@IBP%YVU$A@PDA(:M;NC"JNA<_G1-,F1,WE1]''Y6]''-;]K\7M3\6<.K&<B@ HB@''8BM)46''Y6]M#Z************4-KR4
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   273
-KR4-B,+J2,+J2,+J0-LS@-LSD0VPTEAPTEAE$FK"8.K"8.K"5YVJ")VU(HFA  HMCR_]7^9.;-ST4A@%&9.,KAHRBD!!X#(:&)(3 0\G]#T5(JANS)BPJV%)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   274
Z6.W%10^G$%IH"JM#S,;OZ!!B!!HRD,%22, 8NC 9QTYRT%IRTAR4EAY2\''I26-''PRD!!I?ZF!!?F!!(Z!!5.GV8\7"P<OC5A<_@@@VB1XVI.[&Y-5]WVO#8>O#3@0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   275
LC@0LC@0^#%:^''):^''*EP4NE!!XVEOH8<OC2N#"</K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   276
#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HATUJZ&)FM#XVF3,:>1+;DX[V4X*Z&8Y&Y&Y"L#''"M0BP$IVU%Y@PDA@ZN#^3 8"# _G1<[[A,[E1\WY6]''
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   277
Y;^7R7M3\7M/K"9/@ HB@ I>@#Z]M)6]''SX6************-KR4-KR4-KP+J2,+J2,+J2,KSD0KSD1LE$EAPTEAPQYA"8.K"8.K"8-VU"(*U%ZBA XHBCP4
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   278
''7]7.[.;T5M@PIY.[+B0RD !!HVH:N)*ZL8LGA7X5MZB S$:P$B%)ZV-+%9\\G!!9IRRH"#X4;N36(P(RD!!KI\,+HNC 8NTUFT%IRT%@T-APV\''I2\-+Y4D!!HR
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   279
_6!!(_1(ZF(][!!5.GM8$OC0=P_G0@@E ,VE"[&9&[]WU5#8>O#8<0LC@0LC@0LG(9^''):^''):!!TMC!!XVE!!S2NOC0<#(8/K2</K2</K7%9^W%9^W%9+*:.+*:.
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   280
+&U%YVU%YVU%YTUEAIVU$9MRT+*:^G MW55]LSF- XEUUS8>)ZU$#H1JR''I2GQ6X@0M*Z''5=JB &(P0LW%82L%)Z+HB@UER&)*Q#X6E!!,;N/,Z>1FF5-FJ&)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   281
.FY&Y&X#H98#\@$IBU%YVPDA@PF#(7,8NH(8G1<_F60[F1\WE6]''Y6^7-4-3\7M3[28.[0HB@ HB_ H6''SZ]''Y46M************+R4-KR4-KR4J2,+J2,+
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   282
J2,+B41LB41LSDEAPTEAPTEAPX.K"8.K"8.KU%YVJ%YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"N#*Z&#NCA0]6MSV (D9N$I@)ZV%+Z9^WGA8^RT$"
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   283
H(6MN3,=*DJD!!HR2WKJ2C 8NC%EQ%IRT%IPEAPTE''I2\''KZ6-!!HRD''=?_7<ZF!!*G!!8^G!!3\7C5APT@@@@@AXVE!!X&9.[&7U5]X>O#8>OLC@0LC@0LCA:^''):
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   284
^''):^(VE!!XVE!!XT<##0<OH:NK2</K2</K2=9^W%9^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LC
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   285
Z&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3+;F/,Q!!-[Q")*[!!&Y&Y&H2N^H7@IBP%YVU$A@PDA(:M;NC"JNA<_G1-,F1,WE1]''Y6]''-;]K\7M3\6<.
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   286
K&<B@ HB@''8BM)46''Y6]M#Z************4-KR4-KR4-B,+J2,+J2,+J0-LS@-LSD0VPTEAPTEAE$FK"8.K"8.K"5YVJ")VU(HFA  HMCR_]7^9.;-ST4A@
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   287
%&9.,KAHRBD!!X#(:&)(3 0\G]#T5(JB<S)@?JV%)Z6.WQ125G$%IDRJM#S,;OZ!!B!!HRD,%22, 8NC 9QTYRT%IRTAR4EAY2\''I26-''PRD!!I?ZF!!?F!!(Z!!5.G
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   288
V8\7"P<OC5A<_@@@VB1XVI.[&Y-5]WVO#8>O#3@0LC@0LC@0^#%:^''):^''*EP4NE!!XVEOH8<OC2N#"</K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   289
QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HATUJZ&)FM#XVF3,:>1+;DX[V4X*Z&8Y&Y&Y"L#''"M0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   290
BP$IVU%Y@PDA@ZN#^3 8"# _G1<[[A,[E1\WY6]''Y;^7R7M3\7M/K"9/@ HB@ I>@#Z]M)6]''SX6************-KR4-KR4-KP+J2,+J2,+J2,KSD0KSD1L
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   291
E$EAPTEAPQYA"8.K"8.K"8-VU"(*U%ZBA XHBCP4''7]7.[.;T5M@PIY.[+B0RD !!HVH:N)*ZL8LGA7X5MZB S$:P$B%)ZV-+%9\\G!!9IRRH"#X4;N36(P(RD
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   292
!!KI\,+HNC 8NTUFT%IRT%@T-APV\''I2\-+Y4D!!HR_6!!(_1(ZF(][!!5.GM8$OC0=P_G0@@E ,VE"[&9&[]WU5#8>O#8<0LC@0LC@0LG(9^''):^''):!!TMC!!XVE
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   293
!!S2NOC0<#(8/K2</K2</K7%9^W%9^W%9+*:.+*:.+&U%YVU%YVU%YTUEAIVU$9MRT+*:^G MW55]LSF- XEUUS8>)ZU$#H1JR''I2GQ6X@0M*Z''5=JB &(P0L
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   294
W%82L%)Z+HB@UER&)*Q#X6E!!,;N/,[F1[V5-[Z&)Y&Y&Y&X#H2L#BP$IBU%YVPDA@PE;^7,8NC 8G1<_F1,[F1\WE6]''Y6^7-;]3\7M3[6=/[0HB@ HB@ H6
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   295
M#Z]''Y46M************+R4-KR4-KR4J2,+J2,+J2,+B41LB41LSDEAPTEAPTEAPX.K"8.K"8.KU%YVJ%YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   296
N#*Z&#NCA0]6MSV (K1N$C<)ZV%+Z9]GGKT^RT$QH(6MN3,=*DJD!!HR2WKJ2C 8NC%EQ%IRT%IPEKPTE''I2\''KZ6]AHRD''=(ZG<ZF!!*GV8][!!3^IC0<OTG1<
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   297
@@AXKE!!X&9.Y&7U5]X>O#8>OLC@0LC@0LCA:NW):^''):^(UCP8VE!!XT<##0<OH:NK2</K2</K2=9^W%9^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   298
.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LCZ&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3+;F/+1 XFA"R$+"8.K!!&''"N^''''@I\@%WVU$TEAPA
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   299
(:N#"(*J"(X_G1-,[F0UEQUOS6]OR;]K\WM1\R8.K"9>_''9>_''9>''Y46''Y6]M#Z************4-KR4-KR4-B,+J2,+J2,+J0-LS@-LSD0VPTEAPTEAE$FK
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   300
"8.K"8.K"5YVJ")VU(HFA  HMCR_]7^9.;-ST4A@%&9.,KAHRBD!!X#(:&)(3 0\G]#T5(JANS)BPJV%)Z6.W%10^G$%IH"JM#S,;OZ!!B!!HRD,%22, 8NC 9Q
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   301
TYRT%IRTAPTEAY2\''I26-+XRD!!I?_7=?F!!(Z!!8^G!!8\7M0=PTE@@@@@@VE!!XVI.[&9-5]WVO#8>O#3@0LC@0LC@0^''):^''):^''*E!!XVE!!XVEOH8<OC2N#"</
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   302
K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HAT
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   303
UJZ&)FM#XVF3,:>1+;DX[V4X*Z&8Y&Y&Y"L#''"M0BP$IVU%Y@PDA@ZN#^3 8"# _G1<[[A,[E1\WY6]''Y;^7R7M3\7M/K"9/@ HB@ I>@#Z]M)6]''SX6****
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   304
********-KR4-KR4-KP+J2,+J2,+J2,KSD0KSD1LPTEAPTEAPTEA"8.K"8.K"8-VU%X*U%ZBA XHBCP4''7]7.[.;T5M@PIY.[+B0RD !!HVH:N)*ZL8LGA7X5
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   305
MZB /D:PO2%)ZV-+%4\\-Q9IRQD"#X4;N36(P(RD!!KI\,+HNC 8NTUFT%IRT%@T-APV\''I2\-+Y4D!!HR_6!!(_1(ZF(][!!5.GM8$OC0=P_G0@@E ,VE"[&9&[
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   306
]WU5#8>O#8<0LC@0LC@0LG(9^''):^''):!!TMC!!XVE!!S2NOC0<#(8/K2</K2</K7%9^W%9^W%9+*:.+*:.+&U%YVU%YVU%YTUEAIVU$9MRT+*:^G MW55]LSF-
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   307
 XEUUS8>)ZU$#H1JR''I2GQ6X@0M*Z''5=JB &(P0LW%82L%)Z+HB@UER&)*Q#X6E!!,;N/,Z>/FA XFIJR.K"8.FZ^H9:^\@%0BU]YVQPTE@F#(:NJ"(*J!!!!<_
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   308
F61,[ATUET=OY4=K-4-1\7E1K"8.K''9>_''9>_'':]''SZ]''Y46M************+R4-KR4-KR4J2,+J2,+J2,+B41LB41LSAYAPTEAPTDVPX.K"8.K"8.KU%X*
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   309
J%YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"N#*Z&#NCA0]6MSV (K1N$C<)ZV%+Z9]GGKT^RT$QH(6MN3,=*DJD!!HR2WKJ2C 8NC%EQ%IRT%IPEAPTE
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   310
''I2\''KZ6-!!HRD''=?_7<ZF!!*G!!8^G!!3\7C5APT@@@@@AXVE!!X&9.[&7U5]X>O#8>OLC@0LC@0LCA:^''):^''):^(VE!!XVE!!XT<##0<OH:NK2</K2</K2=9^W%9
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   311
^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LCZ&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   312
+;F/,Q!!-[Q")*[!!&Y&Y&H2N^H7@IBP%YVU$A@PDA(:M;NC"JNA<_G1-,F1,WE1]''Y6]''-;]K\7M3\6<.K&<B@ HB@''8BM)46''Y6]M#Z************4-KR4
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   313
-KR4-B,+J2,+J2,+J0-LS@-LSD0VPTEAPTEAE$FK"8.K"8.K"5YVJ%YVU(HFA  HMCR_]7^9.;-ST4A@%&9.,KAHRBD!!X#(:&)(3 0\G]#T5(JB<S)@?JV%)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   314
Z6.WQ125G$%IDRJM#S,;OZ!!B!!HRD,%22, 8NC 9QTYRT%IRTAR4EAY2\''I26-''PRD!!I?ZF!!?F!!(Z!!5.GV8\7"P<OC5A<_@@@VB1XVI.[&Y-5]WVO#8>O#3@0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   315
LC@0LC@0^#%:^''):^''*EP4NE!!XVEOH8<OC2N#"</K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   316
#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HATUJZ&)FM#XVF3,:>1,[E-[V5-*Z%&Y&Y&Y"L#H2LIBP$IVU%Y@PDA@W-;^3 8NC _G1<[F1,[E1\WY6]''
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   317
Y;^7-7M3\7M/[6=/@ HB@ HB@#X6M)6]''SX6************-KR4-KR4-KP+J2,+J2,+J2,KSD0KSD1LE$EAPTEAPQYA"8.K"8.K"8-VU"(*U%ZBA XHBCP4
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   318
''7]7.[.;T5M@PIY.[+B0RD !!HVH:N)*ZL8LGA7X5MZB /D:PO2%)ZV-+%4\\-Q9IRQD"#X4;N36(P(RD!!KI\WKHNXFA DEF''%IRT)24-AR5FQ$YF]GQ4IRT%
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   319
_6!!(ZJ,Z*8][V5-["X$OC0=P_G0@_B0,KB2Y&Y&["H"H#45M#440FQ$YLA$YFS$9NS$9^''):P4MCP4NE!!X:NOC0<#(8/K2</K2</K7%9^W%9^W%9+*:.+*:.
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   320
+&U%YVU%YVU%YTUEAIVU$9MRT+*:^G MW55]LSF- XEUUS8>)ZU$#H1JR''I2GQ6X@0M*Z''5=JB &(P0LW%82L%)Z+HB@UER&)*Q#X6E!!,;N/,Z>1FF5-FJ&)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   321
.FY&Y&X#H98#\@$IBU%YVPDA@PF#(7,8NH(8G1<_F60[F1\WE6]''Y6^7-4-3\7M3[28.[0HB@ HB_ H6''SZ]''Y46M************+R4-KR4-KR4J2,+J2,+
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   322
J2,+B41LB0,KB1YAE!!YAE!!XVE(, HB@ HB@ J"(*J%YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"N#*Z&#NCA0]6MSV (K1N$C<)ZV%+Z9]GGKT^RT$Q
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   323
H(6MN3,=*DJD!!HR2WKJ2C 8NC%EQ%IRT%IPEKPTE''I2\''KZ6]AHRD''=(ZG<ZF!!*GV8][!!3^IC0<OTG1<@@AXKE!!X&9.Y&7U5]X>O#8>OLC@0LC@0LCA:NW):
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   324
^''):^(UCP8VE!!XT<##0<OH:NK2</K2</K2=9^W%9^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LC
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   325
Z&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3+;F/,Q!!-[Q")*[!!&Y&Y&H2N^H7@IBP%YVU$A@PDA(:M;NC"JNA<_G1-,F1,WE1]''Y6]''-;]K\7M3\6<.
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   326
K&<B@ HB@''8BM)46''Y6]M#Z************4-KR4-KR4-B,+J2,+J2,+J0-LS@-LSD0VPTEAPTEAE$FK"8.K"8.K"5YVJ")VU(HFA  HMCR_]7^9.;-ST4A@
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   327
%&9.,KAHRBD!!X#(:&)(3 0\G]#T5(JB<S)@?JV%)Z6.WQ125G$%IDRJM#S,;OZ!!B!!HRD,%22, 8NC 9QTYRT%IRTAR4EAY2\''I26-''PRD!!I?ZF!!?F!!(Z!!5.G
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   328
V8\7"P<OC5A<_@@@VB1XVI.[&Y-5]WVO#8>O#3@0LC@0LC@0^#%:^''):^''*EP4NE!!XVEOH8<OC2N#"</K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   329
QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HATUJZ&)FM#XVF3,:>1+;DX[V4X*Z&8Y&Y&Y"L#''"M0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   330
BP$IVU%Y@PDA@ZN#^3 8"# _G1<[[A,[E1\WY6]''Y;^7R7M3\7M/K"9/@ HB@ I>@#Z]M)6]''SX6************-KR4-KR4-KP+J2,+J2,+J2,KSD0KSD1L
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   331
E$EAPTEAPQYA"8.K"8.K"8-VU"(SU%ZBA XHBCP4''7]7.[.;T5M@PIY.[+B0RD !!HVH:N)*ZL8LGA7X5MZB /D:PO2%)ZV-+%4\\-Q9IRQD"#X4;N36(P(RD
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   332
!!KI\,+HNC 8NTUFT%IRT%@T-APV\''I2\-+Y4D!!HR_6!!(_1(ZF(][!!5.GM8$OC0=P_G0@@E ,VE"[&9&[]WU5#8>O#8<0LC@0LC@0LG(9^''):^''):!!TMC!!XVE
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   333
!!S2NOC0<#(8/K2</K2</K7%9^W%9^W%9+*:.+*:.+&U%YVU%YVU%YTUEAIVU$9MRT+*:^G MW55]LSF- XEUUS8>)ZU$#H1JR''I2GQ6X@0M*Z''5=JB &(P0L
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   334
W%82L%)Z+HB@UER&)*Q#X6E!!,;N/,Z>1FF5-FJ&).FY&Y&X#H98#\@$IBU%YVPDA@PF#(7,8NH(8G1<_F60[F1\WE6]''Y6^7-4-3\7M3[28.[0HB@ HB_ H6
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   335
''SZ]''Y46M************+R4-KR4-KR4J2,+J2,+J2,+B41LB41LSDEAPTEAPTEAPX.K"8.K"8.KU%YVD5YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   336
N#*Z&#NCA0]6(*H''I;2<O3<)ZV%DZ4]GB+V5IBPQH)FQN3,=*DJD!!HR2WE22C&A XAAQ)9RT%J\-KPT-Q$YFQ''Q4]BT%IW=(ZF"+F*.GV5-[V8&IC0<OTG1<
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   337
@G0,KB0,&Y&Y&8"H"H=MSX=MLA$YFS@YFQ$9NS$9NW):^$MCP4MC!!XVN##0<OH:NK2</K2</K2=9^W%9^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   338
.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LCZ&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3+;F/,Q!!-[Q")*[!!&Y&Y&H2N^H7@IBP%YVU$A@PDA
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   339
(:M;NC"JNA<_G1-,F1,WE1]''Y6]''-;]K\7M3\6<.K&<B@ HB@''8BM)46''Y6]M#Z************4-KR4-KR4-B,+J2,+J2,+J0-LS@,KB0,VPQXVPQXVE!!ZK
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   340
HB@ HB@ HB(*J!!MVU(HFA  HMCR_]7^9.;-ST4A@%&9.,KAHRBD!!X#(:&)(3 0\G]#T5(JB<S)@?JV%)Z6.WQ125G$%IDRJM#S,;OZ!!B!!HRD,%22, 8NC 9Q
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   341
TYRT%IRTAR4EAY2\''I26-''PRD!!I?ZF!!?F!!(Z!!5.GV8\7"P<OC5A<_@@@VB1XVI.[&Y-5]WVO#8>O#3@0LC@0LC@0^#%:^''):^''*EP4NE!!XVEOH8<OC2N#"</
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   342
K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HAT
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   343
UJZ&)FM#XVF3,:>1,[E-[V5-*Z%&Y&Y&Y"L#H2LIBP$IVU%Y@PDA@W-;^3 8NC _G1<[F1,[E1\WY6]''Y;^7-7M3\7M/[6=/@ HB@ HB@#X6M)6]''SX6****
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   344
********-KR4-KR4-KP+J2,+J2,+J2,KSD0KSD1LPTEAPTEAPTEA"8.K"8.K"8-VU%X*U%ZBA XHBCP4''7]7.[.;T5M@PIY.[+B0RD !!HVH:N)*ZL8LGA7X5
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   345
MZB /D:PO2%)ZV-+%4\\-Q9IRQD"#X4;N36(P(RD!!KI\,+HNC 8NTUFT%IRT%@T-APV\''I2\-+Y4D!!HR_6!!(_1(ZF(][!!5.GM8$OC0=P_G0@@E ,VE"[&9&[
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   346
]WU5#8>O#8<0LC@0LC@0LG(9^''):^''):!!TMC!!XVE!!S2NOC0<#(8/K2</K2</K7%9^W%9^W%9+*:.+*:.+&U%YVU%YVU%YTUEAIVU$9MRT+*:^G MW55]LSF-
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   347
 XEUUS8>)ZU$#H1JR''I2GQ6X@0M*Z''5=JB &(P0LW%82L%)Z+HB@UER&)*Q#X6E!!,;N/,Z>1FF5-FJ&).FY&Y&X#H98#\@$IBU%YVPDA@PF#(7,8NH(8G1<_
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   348
F60[F1\WE6]''Y6^7-4-3\7M3[28.[0HB@ HB_ H6''SZ]''Y46M************+R4-KR4-KR4J2,+J2,+J2,+B41LB41LSAYAPTEAPTDVPX.K"8.K"8.KU%X*
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   349
J%YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"N#*Z&#NCA0]6MSV (D9N$I@)ZV%+Z9^WGA8^RT$"H(6MN3,=*DJD!!HR2WKJ2C 8NC%EQ%IRT%IPEKPTE
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   350
''I2\''KZ6]AHRD''=(ZG<ZF!!*GV8][!!3^IC0<OTG1<@@AXKE!!X&9.Y&7U5]X>O#8>OLC@0LC@0LCA:NW):^''):^(UCP8VE!!XT<##0<OH:NK2</K2</K2=9^W%9
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   351
^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LCZ&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   352
+;F/,Q!!-[Q")*[!!&Y&Y&H2N^H7@IBP%YVU$A@PDA(:M;NC"JNA<_G1-,F1,WE1]''Y6]''-;]K\7M3\6<.K&<B@ HB@''8BM)46''Y6]M#Z************4-KR4
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   353
-KR4-B,+J2,+J2,+J0-LS@-LSD0VPTEAPTEAE$FK"8.K"8.K"5YVJ%YVU(HFA  HMCR_]7^9.;-ST4A@%&9.,KAHRBD!!X#(:&)(3 0\G]#T5(JB<S)@?JV%)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   354
Z6.WQ125G$%IDRJM#S,;OZ!!B!!HRD,%22, 8NC 9QTYRT%IRTAPTEAY2\''I26-+XRD!!I?_7=?F!!(Z!!8^G!!8\7M0=PTE@@@@@@VE!!XVI.[&9-5]WVO#8>O#3@0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   355
LC@0LC@0^''):^''):^''*E!!XVE!!XVEOH8<OC2N#"</K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   356
#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HATUJZ&)FM#XVF3,:>1,[E-[V5-*Z%&Y&Y&Y"L#H2LIBP$IVU%Y@PDA@W-;^3 8NC _G1<[F1,[E1\WY6]''
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   357
Y;^7-7M3\7M/[6=/@ HB@ HB@#X6M)6]''SX6************-KR4-KR4-KP+J2,+J2,+J2,KSD0KSD1LPTEAPTEAPTEA"8.K"8.K"8-VU%ZBU%ZBA XHBCP4
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   358
''7]7.[.;T5M@PIY.[+B0RD !!HVH:N)*ZL8LGA7X5MZB /D:PO2%)ZV-+%4\\-Q9IRQD"#X4;N36(P(RD!!KI\WKHNXFA DEF''%IRT)24EAR5FQ$YF]GR6IRT%
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   359
_7=?ZJ,Z*8^GV8]["S\OTEAP@@@@_B1XKB2Y&Y.["H"H#45M#440FQ$YLA$YFS%:NS$9^''):P8VEP4NE!!X:NOC0<#(8/K2</K2</K7%9^W%9^W%9+*:.+*:.
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   360
+&U%YVU%YVU%YTUEAIVU$9MRT+*:^G MW55]LSF- XEUUS8>)ZU$#H1JR''I2GQ6X@0M*Z''5=JB &(P0LW%82L%)Z+HB@UER&)*Q#X6E!!,;N/,Z>1FF5-FJ&)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   361
.FY&Y&X#H98#\@$IBU%YVPDA@PF#(7,8NH(8G1<_F60[F1\WE6]''Y6^7-4-3\7M3[28.[0HB@ HB_ H6''SZ]''Y46M************+R4-KR4-KR4J2,+J2,+
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   362
J2,+B41LB0,KB1YAE!!YAE!!XVE(, HB@ HB@ J"(*A%YV  XFB@ 4MI=7];&;.5MSPDBV[&:0,D!!HHRE"N#*Z&#NCA0]6MSV (K1N$C<)ZV%+Z9]GGKT^RT$Q
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   363
H(6MN3,=*DJD!!HR2WKJ2C 8NC%EQ%IRT%IPEAPTE''I2\''KZ6-!!HRD''=?_7<ZF!!*G!!8^G!!3\7C5APT@@@@@AXVE!!X&9.[&7U5]X>O#8>OLC@0LC@0LCA:^''):
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   364
^''):^(VE!!XVE!!XT<##0<OH:NK2</K2</K2=9^W%9^W%9^Z:.+*:.+*9%YVU%YVU%YVUEQPRU%YNST%J:.''!!8CU=]WSD1+XFAUUT>O*V%YH2LR$)2\!!4]&@LC
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   365
Z&)=_R (I*DLCE9^L#IZV*2@ EQT)*Z$X6M!!X[N3+;F/,Q!!-[Q")*[!!&Y&Y&H2N^H7@IBP%YVU$A@PDA(:M;NC"JNA<_G1-,F1,WE1]''Y6]''-;]K\7M3\6<.
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   366
K&<B@ HB@''8BM)46''Y6]M#Z************4-KR4-KR4-B,+J2,+J2,+J0-LS@-LSD0VPTEAPTEAE$FK"8.K"8.K"5YVJ#QVU(HFA  HMCR_]7^9.;-ST4A@
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   367
%&9.,KAHRBD!!X#(:&)(3 0\G]*J"I2^</C<?JV%)QF-GQ0*5-RP$DRJQ$S,;OZ!!B!!HRD,%22, 8NC 9QTYRT%IRTAR4EAY2\''I26-''PRD!!I?ZF!!?F!!(Z!!5.G
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   368
V8\7"P<OC5A<_@@@VB1XVI.[&Y-5]WVO#8>O#3@0LC@0LC@0^#%:^''):^''*EP4NE!!XVEOH8<OC2N#"</K2</K2</^W%9^W%9^W&.+*:.+*:.YVU%YVU%YVU%
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   369
QTTD%YVS$5IR.+)8^@5_WU41LZ6A UUUO#:%)VRL#D)J\''H]GY C@6)*_W4(JBZ!!C@1^W#H2V%*, HATUJZ&)FM#XVF3,:>1+;DX[V4X*Z&8Y&Y&Y"L#''"M0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   370
BP$IVU%Y@PDA@ZN#^3 8"# _G1<[[A,[E1\WY6]''Y;^7R7M3\7M/K"9/@ HB@ I>@#Z]M)6]''SX6************-KR4-KR4-KP+J2,+J2,+J2,KSD0KB0,K
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   371
E$DVE$DVE!!XV"2@ HB@ HB@*J"(b') ; colorMapFromArray:#[108 168 80 124 90 170 164 90 170 92 122 170 92 164 170 144 168 80 164 96 90 168 132 80 164 98 90 116 90 170 164 152 80 164 90 120 92 110 170 92 152 170 156 168 80 112 166 80 152 166 80 164 158 80 132 168 80 164 88 90 124 88 170 144 88 170 164 90 110 144 90 170 100 88 170 92 166 90 124 168 80 140 90 170 168 152 80 92 126 170 168 154 80 136 90 170 164 90 100 164 122 90 168 158 80 112 90 170 164 156 80 132 166 80 92 114 170 164 138 80 92 116 170 168 144 80 164 90 90 164 90 130 104 166 80 144 166 80 160 88 170 92 166 130 92 168 90 92 146 170 92 106 170 164 130 80 164 100 90 168 136 80 164 90 160 116 168 80 132 90 170 92 166 100 164 126 90 168 162 80 92 168 120 168 164 80 92 138 170 164 142 80 164 112 90 164 92 110 164 166 80 92 166 110 164 148 80 92 166 170 140 166 80 164 150 80 164 120 90 168 156 80 92 130 170 152 88 170 164 92 120 92 166 80 168 140 80 148 88 170 112 168 80 152 168 80 92 158 170 164 110 90 92 98 170 92 140 170 164 92 90 120 88 170 104 168 80 120 90 170 92 104 170 120 166 80 160 166 80 92 148 170 92 108 170 92 150 170 156 166 80 92 90 170 164 124 90 92 92 170 92 134 170 92 166 160 108 90 170 148 90 170 128 166 80 168 146 80 92 120 170 168 148 80 140 88 170 100 90 170 164 116 90 160 90 170 116 88 170 156 88 170 92 128 170 156 90 170 136 166 80 96 168 80 164 134 80 164 104 90 92 154 170 92 166 140 92 168 100 128 90 170 108 166 80 92 118 170 164 88 170 128 168 80 92 100 170 92 142 170 164 94 90 168 130 80 164 168 80 92 168 110 136 88 170 120 168 80 96 166 80 116 166 80 132 88 170 164 92 100 92 132 170 168 160 80 92 166 120 92 168 80 168 142 80 164 160 80 104 88 170 92 160 170 148 168 80 92 162 170 164 114 90 168 150 80 92 124 170 100 166 80 164 128 80 100 168 80 140 168 80 164 88 160 112 88 170 164 102 90 168 138 80 92 112 170 164 136 80 128 88 170 92 94 170 92 136 170 92 96 170 148 166 80 168 166 80 104 90 170 164 90 150 124 166 80 92 102 170 92 144 170 92 166 150 96 88 170 164 118 90 96 90 170 160 168 80 92 88 170 164 90 140 164 154 80 136 168 80 152 90 170 108 88 170 164 106 90 92 156 170 164 108 90 164 140 80]; yourself]
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   372
!
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   373
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   374
pickColorIcon
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   375
    ^ ToolbarIconLibrary pipette16x16Icon
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   376
! !
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   377
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   378
!ColorEditDialog class methodsFor:'interface specs'!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   379
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   380
windowSpec
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   381
    "This resource specification was automatically generated
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   382
     by the UIPainter of ST/X."
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   383
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   384
    "Do not manually edit this!! If it is corrupted,
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   385
     the UIPainter may not be able to read the specification."
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   386
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   387
    "
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   388
     UIPainter new openOnClass:ColorEditDialog andSelector:#windowSpec
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   389
     ColorEditDialog new openInterface:#windowSpec
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   390
     ColorEditDialog open
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   391
    "
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   392
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   393
    <resource: #canvas>
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   394
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   395
    ^ 
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   396
    #(FullSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   397
       name: windowSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   398
       window: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   399
      (WindowSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   400
         label: 'Define Color'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   401
         name: 'Define Color'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   402
         min: (Point 440 360)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   403
         bounds: (Rectangle 0 0 440 360)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   404
       )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   405
       component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   406
      (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   407
         collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   408
          (VerticalPanelViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   409
             name: 'RGBLabelPanel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   410
             layout: (LayoutFrame 0 0 0 0 90 0 76 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   411
             horizontalLayout: fit
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   412
             verticalLayout: spreadSpace
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   413
             horizontalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   414
             verticalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   415
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   416
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   417
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   418
                (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   419
                   label: 'Red:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   420
                   name: 'RedLabel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   421
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   422
                   adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   423
                   useDefaultExtent: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   424
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   425
                (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   426
                   label: 'Green:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   427
                   name: 'GreenLabel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   428
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   429
                   adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   430
                   useDefaultExtent: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   431
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   432
                (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   433
                   label: 'Blue:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   434
                   name: 'BlueLabel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   435
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   436
                   adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   437
                   useDefaultExtent: true
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   438
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   439
                )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   440
              
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   441
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   442
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   443
          (VerticalPanelViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   444
             name: 'RGBSliderPanel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   445
             layout: (LayoutFrame 90 0 0 0 -177 1 76 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   446
             horizontalLayout: fit
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   447
             verticalLayout: spreadSpace
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   448
             horizontalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   449
             verticalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   450
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   451
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   452
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   453
                (SliderSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   454
                   name: 'RedSlider'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   455
                   tabable: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   456
                   model: red
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   457
                   orientation: horizontal
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   458
                   stop: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   459
                   step: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   460
                   backgroundColor: (Color 100.0 0.0 0.0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   461
                   extent: (Point 173 16)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   462
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   463
                (SliderSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   464
                   name: 'GreenSlider'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   465
                   tabable: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   466
                   model: green
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   467
                   orientation: horizontal
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   468
                   stop: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   469
                   step: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   470
                   backgroundColor: (Color 0.0 100.0 0.0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   471
                   extent: (Point 173 16)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   472
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   473
                (SliderSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   474
                   name: 'BlueSlider'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   475
                   tabable: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   476
                   model: blue
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   477
                   orientation: horizontal
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   478
                   stop: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   479
                   step: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   480
                   backgroundColor: (Color 0.0 0.0 100.0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   481
                   extent: (Point 173 16)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   482
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   483
                )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   484
              
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   485
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   486
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   487
          (VerticalPanelViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   488
             name: 'RGBFieldPanel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   489
             layout: (LayoutFrame -173 1 0 0 -130 1 76 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   490
             horizontalLayout: fit
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   491
             verticalLayout: spreadSpace
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   492
             horizontalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   493
             verticalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   494
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   495
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   496
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   497
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   498
                   name: 'RedField'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   499
                   model: red
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   500
                   type: numberInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   501
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   502
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   503
                   maxValue: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   504
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   505
                   extent: (Point 41 20)
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   506
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   507
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   508
                   name: 'GreenField'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   509
                   model: green
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   510
                   type: numberInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   511
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   512
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   513
                   maxValue: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   514
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   515
                   extent: (Point 41 20)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   516
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   517
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   518
                   name: 'BlueField'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   519
                   model: blue
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   520
                   type: numberInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   521
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   522
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   523
                   maxValue: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   524
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   525
                   extent: (Point 41 20)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   526
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   527
                )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   528
              
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   529
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   530
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   531
          (VerticalPanelViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   532
             name: 'RGBFieldPanelHex'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   533
             layout: (LayoutFrame -130 1 0 0 -100 1 76 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   534
             horizontalLayout: fit
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   535
             verticalLayout: spreadSpace
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   536
             horizontalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   537
             verticalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   538
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   539
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   540
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   541
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   542
                   name: 'EntryField4'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   543
                   model: red
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   544
                   type: hexIntegerInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   545
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   546
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   547
                   maxValue: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   548
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   549
                   extent: (Point 28 20)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   550
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   551
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   552
                   name: 'EntryField5'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   553
                   model: green
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   554
                   type: hexIntegerInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   555
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   556
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   557
                   maxValue: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   558
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   559
                   extent: (Point 28 20)
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   560
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   561
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   562
                   name: 'EntryField6'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   563
                   model: blue
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   564
                   type: hexIntegerInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   565
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   566
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   567
                   maxValue: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   568
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   569
                   extent: (Point 28 20)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   570
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   571
                )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   572
              
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   573
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   574
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   575
          (VerticalPanelViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   576
             name: 'HLSLabelPanel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   577
             layout: (LayoutFrame 0 0 86 0 90 0 163 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   578
             horizontalLayout: fit
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   579
             verticalLayout: spreadSpace
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   580
             horizontalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   581
             verticalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   582
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   583
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   584
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   585
                (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   586
                   label: 'Hue:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   587
                   name: 'Label1'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   588
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   589
                   adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   590
                   useDefaultExtent: true
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   591
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   592
                (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   593
                   label: 'Light:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   594
                   name: 'Label2'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   595
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   596
                   adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   597
                   useDefaultExtent: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   598
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   599
                (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   600
                   label: 'Saturation:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   601
                   name: 'Label3'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   602
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   603
                   adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   604
                   useDefaultExtent: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   605
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   606
                )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   607
              
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   608
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   609
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   610
          (VerticalPanelViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   611
             name: 'HLSSliderPanel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   612
             layout: (LayoutFrame 90 0 86 0 -177 1 163 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   613
             horizontalLayout: fit
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   614
             verticalLayout: spreadSpace
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   615
             horizontalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   616
             verticalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   617
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   618
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   619
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   620
                (SliderSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   621
                   name: 'HueSlider'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   622
                   tabable: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   623
                   model: hue
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   624
                   orientation: horizontal
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   625
                   stop: 359
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   626
                   step: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   627
                   keyboardStep: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   628
                   extent: (Point 173 16)
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   629
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   630
                (SliderSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   631
                   name: 'LightSlider'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   632
                   tabable: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   633
                   model: light
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   634
                   orientation: horizontal
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   635
                   step: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   636
                   backgroundColor: (Color 67.0 67.0 67.0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   637
                   keyboardStep: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   638
                   extent: (Point 173 16)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   639
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   640
                (SliderSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   641
                   name: 'SaturationSlider'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   642
                   tabable: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   643
                   model: saturation
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   644
                   orientation: horizontal
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   645
                   step: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   646
                   backgroundColor: (Color 67.0 67.0 67.0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   647
                   keyboardStep: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   648
                   extent: (Point 173 16)
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   649
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   650
                )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   651
              
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   652
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   653
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   654
          (VerticalPanelViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   655
             name: 'HLSFieldPanel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   656
             layout: (LayoutFrame -173 1 86 0 -130 1 163 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   657
             horizontalLayout: fit
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   658
             verticalLayout: spreadSpace
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   659
             horizontalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   660
             verticalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   661
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   662
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   663
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   664
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   665
                   name: 'EntryField1'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   666
                   model: hue
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   667
                   type: numberInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   668
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   669
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   670
                   maxValue: 359
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   671
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   672
                   extent: (Point 41 20)
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   673
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   674
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   675
                   name: 'EntryField2'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   676
                   model: light
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   677
                   type: numberInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   678
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   679
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   680
                   maxValue: 100
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   681
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   682
                   extent: (Point 41 20)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   683
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   684
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   685
                   name: 'EntryField3'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   686
                   model: saturation
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   687
                   type: numberInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   688
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   689
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   690
                   maxValue: 100
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   691
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   692
                   extent: (Point 41 20)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   693
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   694
                )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   695
              
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   696
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   697
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   698
          (ViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   699
             name: 'PreviewBoxFrame'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   700
             layout: (LayoutFrame -100 1 4 0.0 -3 1.0 -39 1.0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   701
             level: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   702
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   703
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   704
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   705
                (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   706
                   label: 'Preview'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   707
                   name: 'PreviewBox'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   708
                   layout: (LayoutFrame 2 0.0 2 0.0 -2 1.0 -2 1.0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   709
                   level: -1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   710
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   711
                   postBuildCallback: postBuildPreviewBox:
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   712
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   713
                )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   714
              
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   715
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   716
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   717
          (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   718
             label: 'Brightness:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   719
             name: 'Label5'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   720
             layout: (LayoutFrame 0 0 175 0 90 0 197 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   721
             activeHelpKey: brightness
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   722
             translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   723
             adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   724
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   725
          (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   726
             name: 'EntryField8'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   727
             layout: (LayoutFrame 90 0 175 0 -277 1 197 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   728
             activeHelpKey: brightness
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   729
             model: brightnessStringHolder
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   730
             isReadOnly: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   731
             immediateAccept: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   732
             acceptOnReturn: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   733
             acceptOnTab: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   734
             acceptOnLostFocus: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   735
             acceptOnPointerLeave: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   736
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   737
          (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   738
             label: 'Color Name:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   739
             name: 'ColorNameLabel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   740
             layout: (LayoutFrame 2 0 214 0 135 0 236 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   741
             activeHelpKey: colorName
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   742
             translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   743
             adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   744
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   745
          (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   746
             name: 'ColorNameField'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   747
             layout: (LayoutFrame 135 0 214 0 -122 1 236 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   748
             activeHelpKey: colorName
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   749
             model: colorNameHolder
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   750
             immediateAccept: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   751
             acceptOnReturn: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   752
             acceptOnTab: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   753
             acceptOnLostFocus: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   754
             acceptOnPointerLeave: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   755
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   756
          (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   757
             label: 'HTML Color Name:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   758
             name: 'HTMLColorNameLabel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   759
             layout: (LayoutFrame 2 0 240 0 135 0 262 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   760
             activeHelpKey: htmlColorName
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   761
             translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   762
             adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   763
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   764
          (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   765
             name: 'MLHTColorNameFieldField'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   766
             layout: (LayoutFrame 135 0 240 0 -122 1 262 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   767
             activeHelpKey: htmlColorName
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   768
             model: htmlColorNameHolder
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   769
             immediateAccept: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   770
             acceptOnReturn: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   771
             acceptOnTab: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   772
             acceptOnLostFocus: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   773
             acceptOnPointerLeave: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   774
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   775
          (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   776
             label: 'Color Definition:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   777
             name: 'Label4'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   778
             layout: (LayoutFrame 2 0 266 0 135 0 288 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   779
             activeHelpKey: colorDefinitionString
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   780
             translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   781
             adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   782
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   783
          (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   784
             name: 'EntryField7'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   785
             layout: (LayoutFrame 135 0 266 0 -122 1 288 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   786
             activeHelpKey: colorDefinitionString
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   787
             model: colorDefinitionStringHolder
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   788
             isReadOnly: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   789
             immediateAccept: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   790
             acceptOnReturn: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   791
             acceptOnTab: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   792
             acceptOnLostFocus: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   793
             acceptOnPointerLeave: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   794
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   795
          (ActionButtonSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   796
             label: 'Copy Color'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   797
             name: 'CopyColor'
3194
86cf12ddc8fd class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 3179
diff changeset
   798
             layout: (LayoutFrame 12 0 298 0 120 0 320 0)
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   799
             activeHelpKey: hlsMixer
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   800
             translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   801
             resizeForLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   802
             tabable: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   803
             model: copyColor
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   804
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   805
          (ActionButtonSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   806
             label: 'Paste Color'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   807
             name: 'PasteColor'
3194
86cf12ddc8fd class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 3179
diff changeset
   808
             layout: (LayoutFrame 122 0 298 0 240 0 320 0)
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   809
             translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   810
             resizeForLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   811
             tabable: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   812
             model: pasteColor
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   813
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   814
          (ActionButtonSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   815
             label: 'pickColorIcon'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   816
             name: 'Button1'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   817
             layout: (LayoutFrame 285 0 298 0 312 0 325 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   818
             activeHelpKey: pickColor
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   819
             hasCharacterOrientedLabel: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   820
             translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   821
             resizeForLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   822
             tabable: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   823
             model: pickColor
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   824
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   825
          (HorizontalPanelViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   826
             name: 'HorizontalPanel1'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   827
             layout: (LayoutFrame 0 0.0 -32 1 -16 1.0 0 1.0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   828
             horizontalLayout: okCancelBox
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   829
             verticalLayout: centerMax
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   830
             horizontalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   831
             verticalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   832
             reverseOrderIfOKAtLeft: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   833
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   834
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   835
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   836
                (ActionButtonSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   837
                   label: 'Cancel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   838
                   name: 'CancelButton'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   839
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   840
                   resizeForLabel: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   841
                   tabable: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   842
                   model: cancel
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   843
                   useDefaultExtent: true
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   844
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   845
                (ActionButtonSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   846
                   label: 'OK'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   847
                   name: 'OKButton'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   848
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   849
                   resizeForLabel: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   850
                   tabable: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   851
                   model: accept
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   852
                   isDefault: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   853
                   defaultable: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   854
                   useDefaultExtent: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   855
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   856
                )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   857
              
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   858
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   859
             keepSpaceForOSXResizeHandleH: true
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   860
           )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   861
          )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   862
        
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   863
       )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   864
     )
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   865
! !
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   866
2347
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   867
!ColorEditDialog class methodsFor:'startup'!
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   868
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   869
openOn:aColor
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   870
    ^ self new
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   871
        color:aColor;
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   872
        open;
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   873
        yourself
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   874
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   875
    "
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   876
     self openOn:Color red
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   877
    "
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   878
! !
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   879
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   880
!ColorEditDialog methodsFor:'accessing'!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   881
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   882
color
2279
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   883
    |colorName|
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   884
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   885
    colorName := self colorName.
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   886
    colorName notEmptyOrNil ifTrue:[
2574
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   887
        ^ Color name:(colorName asSymbol)
2279
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   888
    ].
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   889
    ^ Color redByte:(red value) greenByte:(green value) blueByte:(blue value)
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   890
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   891
2279
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   892
color:aColor
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   893
    aColor isNil ifTrue:[
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   894
        ^ self
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   895
    ].
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   896
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   897
    aColor isSymbol ifTrue:[
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   898
        self colorNameHolder value:aColor
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   899
    ] ifFalse:[
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   900
        self red value:aColor redByte.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   901
        self green value:aColor greenByte.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   902
        self blue value:aColor blueByte.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   903
    ]
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   904
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   905
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   906
colorName
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   907
    ^ colorNameHolder value
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   908
!
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   909
2574
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   910
colorNameOrColor
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   911
    |colorName|
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   912
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   913
    colorName := self colorName.
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   914
    colorName notEmptyOrNil ifTrue:[
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   915
        "/ ^ Color name:(colorName asSymbol)
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   916
        ^ colorName asSymbol
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   917
    ].
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   918
    ^ Color redByte:(red value) greenByte:(green value) blueByte:(blue value)
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   919
!
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   920
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   921
htmlColorName
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   922
    ^ htmlColorNameHolder value
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   923
! !
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   924
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   925
!ColorEditDialog methodsFor:'actions'!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   926
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   927
colorChanged
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   928
    |clr nm|
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   929
2574
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   930
    clr := self colorNameOrColor.
2279
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   931
    clr isColor ifTrue:[
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   932
        "not a symbol"
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   933
        self setPreview:clr.
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   934
        self htmlColorNameHolder value:(clr htmlPrintString) withoutNotifying:self.
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   935
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   936
        nm := #(white red green blue black) detect:[:nm | clr = (Color perform:nm)] ifNone:nil.
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   937
        nm notNil ifTrue:[
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   938
            self colorDefinitionStringHolder value:('Color ',nm).
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   939
        ] ifFalse:[
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   940
            self colorDefinitionStringHolder value:('Color rgbValue:16r',(clr rgbValue hexPrintString leftPaddedTo:6 with:$0)).
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   941
        ].
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   942
        self brightnessStringHolder value:((clr brightness asFixedPoint:3) printString).
2279
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   943
    ].
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   944
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   945
    "Modified: / 27-01-2011 / 12:54:04 / cg"
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   946
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   947
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   948
colorChangedTo:clr
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   949
    "compute rgb and hls (if possible)"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   950
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   951
    |h|
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   952
2279
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   953
    self red   value:clr redByte withoutNotifying:self.
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   954
    self green value:clr greenByte withoutNotifying:self.
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   955
    self blue  value:clr blueByte withoutNotifying:self.
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   956
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   957
    h := clr hue.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   958
    h notNil ifTrue:[
2279
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   959
        self hue        value:(h rounded) withoutNotifying:self.
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   960
    ].
2279
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   961
    self light      value:(clr light rounded) withoutNotifying:self.
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   962
    self saturation value:(clr saturation rounded) withoutNotifying:self.
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   963
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   964
    self colorChanged
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   965
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   966
    "Modified: / 27-01-2011 / 12:48:28 / cg"
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   967
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   968
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   969
colorNameChanged
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   970
    "compute rgb and hls (if possible)"
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   971
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   972
    |clr|
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   973
3179
174a9f51db76 class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 3175
diff changeset
   974
    clr := Color name:(self colorName) ifIllegal:nil.
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   975
    clr isNil ifTrue:[
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   976
        ^ self
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   977
    ].
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   978
    self colorChangedTo:clr.
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   979
!
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   980
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   981
copyColor
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   982
    self window setClipboardObject:self color
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   983
!
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   984
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   985
copyColorName
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   986
    self window setClipboardText:self htmlColorName
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   987
!
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   988
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   989
hlsSliderChanged
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   990
    "compute rgb"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   991
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   992
    Color withRGBFromHue:hue value light:light value saturation:saturation value do:[:r :g :b |
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   993
        red    value:(r * 255 / 100) rounded withoutNotifying:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   994
        green  value:(g * 255 / 100) rounded withoutNotifying:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   995
        blue   value:(b * 255 / 100) rounded withoutNotifying:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   996
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   997
    colorNameHolder value:'' withoutNotifying:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   998
    self colorChanged
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   999
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1000
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1001
htmlColorNameChanged
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1002
    "compute rgb and hls (if possible)"
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1003
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1004
    |clr|
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1005
2417
cc89133cc041 changed #htmlColorNameChanged - ignore empty color names
Stefan Vogel <sv@exept.de>
parents: 2347
diff changeset
  1006
    htmlColorNameHolder value isEmptyOrNil ifTrue:[
cc89133cc041 changed #htmlColorNameChanged - ignore empty color names
Stefan Vogel <sv@exept.de>
parents: 2347
diff changeset
  1007
        ^ self.
cc89133cc041 changed #htmlColorNameChanged - ignore empty color names
Stefan Vogel <sv@exept.de>
parents: 2347
diff changeset
  1008
    ].
cc89133cc041 changed #htmlColorNameChanged - ignore empty color names
Stefan Vogel <sv@exept.de>
parents: 2347
diff changeset
  1009
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1010
    clr := Color rgbValue:(Integer 
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1011
                                readFrom:(htmlColorNameHolder value copyFrom:2)
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1012
                                radix:16
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1013
                                onError:nil).
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1014
    clr isNil ifTrue:[
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1015
        ^ self
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1016
    ].
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1017
    self colorNameHolder value:'' withoutNotifying:self.
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1018
    self colorChangedTo:clr.
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1019
!
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1020
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1021
pasteColor
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1022
    |copyBufferColor|
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1023
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1024
    copyBufferColor := self window getClipboardObject.
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1025
    copyBufferColor isColor ifFalse:[
2521
5cfd5fcd7bd3 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 2417
diff changeset
  1026
        UserPreferences current beepInEditor ifTrue:[                
5cfd5fcd7bd3 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 2417
diff changeset
  1027
            self window beep.
5cfd5fcd7bd3 beepInEditor flag
Claus Gittinger <cg@exept.de>
parents: 2417
diff changeset
  1028
        ].
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1029
        ^ self
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1030
    ].
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1031
    self color:copyBufferColor
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1032
!
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1033
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1034
pickColor
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1035
    |color|
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1036
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1037
    color := Color fromUserWithFeedBack:[:clr | self setPreview:clr].
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1038
    color notNil ifTrue:[
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1039
        self color:color.
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1040
    ]
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1041
!
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1042
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1043
rgbSliderChanged
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1044
    "compute hls"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1045
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1046
    |r g b|
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1047
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1048
    r := self red value.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1049
    g := self green value.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1050
    b := self blue value.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1051
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1052
    Color withHLSFromRed:(r * 100 / 255) green:(g * 100 / 255) blue:(b * 100 / 255) do:[:h :l :s |
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1053
        h isNil ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1054
            "/ achromatic
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1055
        ] ifFalse:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1056
            self hue    value:(h rounded) withoutNotifying:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1057
        ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1058
        self light      value:(l rounded) withoutNotifying:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1059
        self saturation value:(s rounded) withoutNotifying:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1060
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1061
    self colorNameHolder value:'' withoutNotifying:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1062
    self colorChanged
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1063
!
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1064
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1065
setPreview:color
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1066
    previewBox isNil ifTrue:[^ self "called before setup"].
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1067
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1068
    previewBox backgroundColor:color.
2941
15df48eba1c4 class: Color
Stefan Vogel <sv@exept.de>
parents: 2904
diff changeset
  1069
    previewBox foregroundColor:color contrastingBlackOrWhite.
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1070
! !
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1071
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1072
!ColorEditDialog methodsFor:'aspects'!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1073
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1074
blue
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1075
    blue isNil ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1076
        blue := 0 asValue.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1077
        blue addDependent:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1078
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1079
    ^blue
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1080
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1081
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1082
brightnessStringHolder
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1083
    brightnessStringHolder isNil ifTrue:[
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1084
        brightnessStringHolder := 0 asValue.
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1085
        "/ brightness addDependent:self.
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1086
    ].
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1087
    ^ brightnessStringHolder
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1088
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1089
    "Created: / 27-01-2011 / 12:48:00 / cg"
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1090
!
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1091
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1092
colorDefinitionStringHolder
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1093
    colorDefinitionStringHolder isNil ifTrue:[
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1094
        colorDefinitionStringHolder := '' asValue.
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1095
        "/ colorDefinitionStringHolder addDependent:self.
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1096
    ].
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1097
    ^colorDefinitionStringHolder
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1098
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1099
    "Created: / 27-01-2011 / 12:38:12 / cg"
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1100
!
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1101
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1102
colorNameHolder
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1103
    colorNameHolder isNil ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1104
        colorNameHolder := '' asValue.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1105
        colorNameHolder addDependent:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1106
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1107
    ^colorNameHolder
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1108
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1109
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1110
green
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1111
    green isNil ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1112
        green := 0 asValue.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1113
        green addDependent:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1114
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1115
    ^green
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1116
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1117
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1118
htmlColorNameHolder
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1119
    htmlColorNameHolder isNil ifTrue:[
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1120
        htmlColorNameHolder := '' asValue.
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1121
        htmlColorNameHolder addDependent:self.
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1122
    ].
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1123
    ^htmlColorNameHolder
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1124
!
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1125
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1126
hue
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1127
    hue isNil ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1128
        hue := 0 asValue.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1129
        hue addDependent:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1130
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1131
    ^hue
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1132
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1133
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1134
light
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1135
    light isNil ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1136
        light := 0 asValue.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1137
        light addDependent:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1138
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1139
    ^light
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1140
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1141
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1142
red
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1143
    red isNil ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1144
        red := 0 asValue.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1145
        red addDependent:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1146
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1147
    ^red
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1148
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1149
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1150
saturation
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1151
    saturation isNil ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1152
        saturation := 0 asValue.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1153
        saturation addDependent:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1154
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1155
    ^saturation
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1156
! !
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1157
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1158
!ColorEditDialog methodsFor:'change & update'!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1159
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1160
update:something with:aParameter from:changedObject
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1161
    (changedObject == red
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1162
    or:[changedObject == green
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1163
    or:[changedObject == blue]]) ifTrue:[
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1164
        self rgbSliderChanged.
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1165
        ^ self
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1166
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1167
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1168
    (changedObject == hue
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1169
    or:[changedObject == light
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1170
    or:[changedObject == saturation]]) ifTrue:[
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1171
        self hlsSliderChanged.
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1172
        ^ self
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1173
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1174
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1175
    (changedObject == colorNameHolder) ifTrue:[
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1176
        self colorNameChanged.
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1177
        ^ self
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1178
    ].
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1179
    (changedObject == htmlColorNameHolder) ifTrue:[
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1180
        self htmlColorNameChanged.
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1181
        ^ self
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1182
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1183
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1184
    super update:something with:aParameter from:changedObject
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1185
! !
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1186
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1187
!ColorEditDialog methodsFor:'startup & release'!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1188
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1189
postBuildPreviewBox:aView
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1190
    previewBox := aView
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1191
!
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1192
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1193
postBuildWith:aBuilder
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1194
    super postBuildWith:aBuilder.
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
  1195
    (aBuilder componentAt:'HueSlider') 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
  1196
        viewBackground: