ColorEditDialog.st
author Claus Gittinger <cg@exept.de>
Sat, 28 Jul 2018 10:07:36 +0200
changeset 3578 9965b6b7e99b
parent 3527 74f4d5106d99
child 3596 655aee5986be
permissions -rw-r--r--
#OTHER by cg icon references cleaned up (use ToolbarIconLibrary - not GenericToolbarIconLibrary)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3578
9965b6b7e99b #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3527
diff changeset
     1
"{ Encoding: utf8 }"
9965b6b7e99b #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3527
diff changeset
     2
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
 COPYRIGHT (c) 1995 by eXept Software AG
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
              All Rights Reserved
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
 This software is furnished under a license and may be used
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
 only in accordance with the terms of that license and with the
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
 inclusion of the above copyright notice.   This software may not
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
 be provided or otherwise made available to, or used by, any
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
 other person.  No title to or ownership of the software is
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
 hereby transferred.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
"{ Package: 'stx:libtool2' }"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
3179
174a9f51db76 class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 3175
diff changeset
    16
"{ NameSpace: Smalltalk }"
174a9f51db76 class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 3175
diff changeset
    17
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
SimpleDialog subclass:#ColorEditDialog
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
    19
	instanceVariableNames:'red green blue hue light saturation colorNameHolder
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
    20
		htmlColorNameHolder colorDefinitionStringHolder previewBox
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
    21
		brightnessStringHolder'
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
	classVariableNames:''
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
	poolDictionaries:''
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
	category:'Interface-UIPainter'
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
!ColorEditDialog class methodsFor:'documentation'!
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
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
 COPYRIGHT (c) 1995 by eXept Software AG
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
              All Rights Reserved
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
 This software is furnished under a license and may be used
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
 only in accordance with the terms of that license and with the
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
 inclusion of the above copyright notice.   This software may not
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
 be provided or otherwise made available to, or used by, any
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
 other person.  No title to or ownership of the software is
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
 hereby transferred.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
documentation
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
    An edit-dialog for colors.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
examples
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
                                                                                [exBegin]                                      
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
    |editor color|
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
1846
65558eb9f4d3 comments
Claus Gittinger <cg@exept.de>
parents: 1840
diff changeset
    54
    editor := ColorEditDialog new.
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
    editor color:(Color green).
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
    editor open.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
    editor accepted ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
        editor color inspect.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
    ]
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
                                                                                [exEnd]
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
! !
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    64
!ColorEditDialog class methodsFor:'help specs'!
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    65
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    66
helpSpec
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    67
    "This resource specification was automatically generated
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    68
     by the UIHelpTool of ST/X."
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    69
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    70
    "Do not manually edit this!! If it is corrupted,
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    71
     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
    72
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
     UIHelpTool openOnClass:ColorEditDialog    
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    75
    "
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
    <resource: #help>
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
    ^ super helpSpec addPairsFrom:#(
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    80
3519
4fbc55af0d28 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3194
diff changeset
    81
#pickColor
4fbc55af0d28 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3194
diff changeset
    82
'Pick a Color from the Screen'
4fbc55af0d28 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3194
diff changeset
    83
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
    84
#brightness
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
    85
'The Color''s brightness value (0..1)'
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
    86
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
    87
#colorDefinitionString
2904
bd6cacbab203 changed: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 2831
diff changeset
    88
'A Smalltalk expression to construct the color'
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
    89
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
    90
#colorName
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
    91
'The standard colorname (as used in the X-Window System), if known'
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
    92
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    93
#copyToClipboard
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    94
'Copy the color to the clipboard'
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
#hlsMixer
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    97
'Mix color from hls (hue-light-saturation) components'
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
    98
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
    99
#htmlColorName
2904
bd6cacbab203 changed: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 2831
diff changeset
   100
'The color as used in an HTML page'
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   101
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   102
#pasteFromClipboard
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   103
'Paste color from the Clipboard'
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   104
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   105
#rgbMixer
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   106
'Mix color from rgb (red-green-blue) components'
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   107
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   108
)
2904
bd6cacbab203 changed: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 2831
diff changeset
   109
bd6cacbab203 changed: #flyByHelpSpec
Claus Gittinger <cg@exept.de>
parents: 2831
diff changeset
   110
    "Modified: / 09-08-2012 / 09:35:29 / cg"
2266
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
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   113
!ColorEditDialog class methodsFor:'image specs'!
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   114
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   115
hueGradientImage
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   116
    "This resource specification was automatically generated
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   117
     by the ImageEditor of ST/X."
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   118
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   119
    "Do not manually edit this!! If it is corrupted,
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   120
     the ImageEditor may not be able to read the specification."
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   121
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   122
    "
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   123
     self hueGradientImage inspect
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   124
     ImageEditor openOnClass:self andSelector:#hueGradientImage
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   125
     Icon flushCachedIcons
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   126
    "
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   127
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   128
    <resource: #image>
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   129
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   130
    ^Icon
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   131
        constantNamed:'ColorEditDialog hueGradientImage'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   132
        ifAbsentPut:[(Depth8Image new) width:400; height:50; bits:(ByteArray fromPackedString:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   133
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
   134
''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
   135
^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
   136
+;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
   137
-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
   138
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
   139
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
   140
#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
   141
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
   142
''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
   143
_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
   144
+&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
   145
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
   146
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
   147
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
   148
^''):^(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
   149
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
   150
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
   151
%&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
   152
!!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
   153
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
   154
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
   155
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
   156
!!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
   157
!!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
   158
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
   159
''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
   160
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
   161
@@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
   162
.''!!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
   163
(: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
   164
"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
   165
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
   166
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
   167
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
   168
********-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
   169
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
   170
]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
   171
 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
   172
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
   173
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
   174
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
   175
^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
   176
+;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
   177
-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
   178
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
   179
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
   180
#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
   181
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
   182
''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
   183
_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
   184
+&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
   185
.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
   186
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
   187
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
   188
^''):^(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
   189
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
   190
[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
   191
%&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
   192
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
   193
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
   194
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
   195
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
   196
!!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
   197
!!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
   198
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
   199
''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
   200
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
   201
@@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
   202
.''!!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
   203
(: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
   204
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
   205
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
   206
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
   207
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
   208
********-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
   209
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
   210
]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
   211
 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
   212
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
   213
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
   214
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
   215
^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
   216
+;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
   217
-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
   218
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
   219
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
   220
#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
   221
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
   222
''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
   223
_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
   224
+&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
   225
.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
   226
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
   227
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
   228
^''):^(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
   229
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
   230
[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
   231
%&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
   232
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
   233
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
   234
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
   235
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
   236
!!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
   237
!!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
   238
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
   239
''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
   240
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
   241
@@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
   242
.''!!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
   243
^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
   244
"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
   245
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
   246
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
   247
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
   248
********-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
   249
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
   250
]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
   251
 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
   252
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
   253
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
   254
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
   255
^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
   256
+;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
   257
-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
   258
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
   259
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
   260
#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
   261
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
   262
''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
   263
_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
   264
+&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
   265
.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
   266
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
   267
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
   268
^''):^(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
   269
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
   270
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
   271
%&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
   272
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
   273
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
   274
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
   275
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
   276
!!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
   277
!!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
   278
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
   279
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
   280
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
   281
@@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
   282
.''!!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
   283
(: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
   284
"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
   285
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
   286
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
   287
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
   288
********-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
   289
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
   290
]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
   291
 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
   292
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
   293
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
   294
''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
   295
^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
   296
+;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
   297
-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
   298
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
   299
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
   300
#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
   301
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
   302
''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
   303
_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
   304
+&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
   305
.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
   306
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
   307
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
   308
^''):^(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
   309
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
   310
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
   311
%&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
   312
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
   313
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
   314
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
   315
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
   316
!!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
   317
!!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
   318
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
   319
''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
   320
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
   321
@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
   322
.''!!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
   323
(: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
   324
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
   325
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
   326
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
   327
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
   328
********-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
   329
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
   330
]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
   331
 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
   332
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
   333
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
   334
''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
   335
^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
   336
+;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
   337
-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
   338
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
   339
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
   340
#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
   341
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
   342
''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
   343
_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
   344
+&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
   345
.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
   346
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
   347
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
   348
^''):^(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
   349
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
   350
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
   351
%&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
   352
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
   353
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
   354
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
   355
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
   356
!
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   357
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   358
pickColorIcon
3578
9965b6b7e99b #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3527
diff changeset
   359
    <resource: #programImage>
9965b6b7e99b #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3527
diff changeset
   360
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   361
    ^ ToolbarIconLibrary pipette16x16Icon
3578
9965b6b7e99b #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3527
diff changeset
   362
9965b6b7e99b #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3527
diff changeset
   363
    "Modified: / 28-07-2018 / 09:59:14 / Claus Gittinger"
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   364
! !
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
   365
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   366
!ColorEditDialog class methodsFor:'interface specs'!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   367
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   368
windowSpec
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   369
    "This resource specification was automatically generated
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   370
     by the UIPainter of ST/X."
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   371
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   372
    "Do not manually edit this!! If it is corrupted,
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   373
     the UIPainter may not be able to read the specification."
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   374
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   375
    "
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   376
     UIPainter new openOnClass:ColorEditDialog andSelector:#windowSpec
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   377
     ColorEditDialog new openInterface:#windowSpec
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   378
     ColorEditDialog open
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   379
    "
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   380
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   381
    <resource: #canvas>
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   382
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   383
    ^ 
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   384
    #(FullSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   385
       name: windowSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   386
       window: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   387
      (WindowSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   388
         label: 'Define Color'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   389
         name: 'Define Color'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   390
         min: (Point 440 360)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   391
         bounds: (Rectangle 0 0 440 360)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   392
       )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   393
       component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   394
      (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   395
         collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   396
          (VerticalPanelViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   397
             name: 'RGBLabelPanel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   398
             layout: (LayoutFrame 0 0 0 0 90 0 76 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   399
             horizontalLayout: fit
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   400
             verticalLayout: spreadSpace
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   401
             horizontalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   402
             verticalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   403
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   404
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   405
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   406
                (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   407
                   label: 'Red:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   408
                   name: 'RedLabel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   409
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   410
                   adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   411
                   useDefaultExtent: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   412
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   413
                (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   414
                   label: 'Green:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   415
                   name: 'GreenLabel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   416
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   417
                   adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   418
                   useDefaultExtent: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   419
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   420
                (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   421
                   label: 'Blue:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   422
                   name: 'BlueLabel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   423
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   424
                   adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   425
                   useDefaultExtent: true
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   426
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   427
                )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   428
              
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   429
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   430
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   431
          (VerticalPanelViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   432
             name: 'RGBSliderPanel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   433
             layout: (LayoutFrame 90 0 0 0 -177 1 76 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   434
             horizontalLayout: fit
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   435
             verticalLayout: spreadSpace
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   436
             horizontalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   437
             verticalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   438
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   439
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   440
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   441
                (SliderSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   442
                   name: 'RedSlider'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   443
                   tabable: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   444
                   model: red
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   445
                   orientation: horizontal
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   446
                   stop: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   447
                   step: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   448
                   backgroundColor: (Color 100.0 0.0 0.0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   449
                   extent: (Point 173 16)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   450
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   451
                (SliderSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   452
                   name: 'GreenSlider'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   453
                   tabable: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   454
                   model: green
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   455
                   orientation: horizontal
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   456
                   stop: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   457
                   step: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   458
                   backgroundColor: (Color 0.0 100.0 0.0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   459
                   extent: (Point 173 16)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   460
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   461
                (SliderSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   462
                   name: 'BlueSlider'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   463
                   tabable: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   464
                   model: blue
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   465
                   orientation: horizontal
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   466
                   stop: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   467
                   step: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   468
                   backgroundColor: (Color 0.0 0.0 100.0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   469
                   extent: (Point 173 16)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   470
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   471
                )
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
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   474
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   475
          (VerticalPanelViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   476
             name: 'RGBFieldPanel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   477
             layout: (LayoutFrame -173 1 0 0 -130 1 76 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   478
             horizontalLayout: fit
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   479
             verticalLayout: spreadSpace
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   480
             horizontalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   481
             verticalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   482
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   483
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   484
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   485
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   486
                   name: 'RedField'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   487
                   model: red
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   488
                   type: numberInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   489
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   490
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   491
                   maxValue: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   492
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   493
                   extent: (Point 41 20)
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   494
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   495
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   496
                   name: 'GreenField'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   497
                   model: green
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   498
                   type: numberInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   499
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   500
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   501
                   maxValue: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   502
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   503
                   extent: (Point 41 20)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   504
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   505
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   506
                   name: 'BlueField'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   507
                   model: blue
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   508
                   type: numberInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   509
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   510
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   511
                   maxValue: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   512
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   513
                   extent: (Point 41 20)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   514
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   515
                )
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
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   518
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   519
          (VerticalPanelViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   520
             name: 'RGBFieldPanelHex'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   521
             layout: (LayoutFrame -130 1 0 0 -100 1 76 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   522
             horizontalLayout: fit
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   523
             verticalLayout: spreadSpace
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   524
             horizontalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   525
             verticalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   526
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   527
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   528
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   529
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   530
                   name: 'EntryField4'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   531
                   model: red
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   532
                   type: hexIntegerInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   533
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   534
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   535
                   maxValue: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   536
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   537
                   extent: (Point 28 20)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   538
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   539
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   540
                   name: 'EntryField5'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   541
                   model: green
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   542
                   type: hexIntegerInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   543
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   544
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   545
                   maxValue: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   546
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   547
                   extent: (Point 28 20)
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   548
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   549
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   550
                   name: 'EntryField6'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   551
                   model: blue
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   552
                   type: hexIntegerInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   553
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   554
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   555
                   maxValue: 255
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   556
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   557
                   extent: (Point 28 20)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   558
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   559
                )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   560
              
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   561
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   562
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   563
          (VerticalPanelViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   564
             name: 'HLSLabelPanel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   565
             layout: (LayoutFrame 0 0 86 0 90 0 163 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   566
             horizontalLayout: fit
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   567
             verticalLayout: spreadSpace
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   568
             horizontalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   569
             verticalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   570
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   571
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   572
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   573
                (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   574
                   label: 'Hue:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   575
                   name: 'Label1'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   576
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   577
                   adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   578
                   useDefaultExtent: true
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   579
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   580
                (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   581
                   label: 'Light:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   582
                   name: 'Label2'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   583
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   584
                   adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   585
                   useDefaultExtent: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   586
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   587
                (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   588
                   label: 'Saturation:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   589
                   name: 'Label3'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   590
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   591
                   adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   592
                   useDefaultExtent: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   593
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   594
                )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   595
              
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   596
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   597
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   598
          (VerticalPanelViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   599
             name: 'HLSSliderPanel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   600
             layout: (LayoutFrame 90 0 86 0 -177 1 163 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   601
             horizontalLayout: fit
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   602
             verticalLayout: spreadSpace
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   603
             horizontalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   604
             verticalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   605
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   606
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   607
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   608
                (SliderSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   609
                   name: 'HueSlider'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   610
                   tabable: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   611
                   model: hue
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   612
                   orientation: horizontal
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   613
                   stop: 359
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   614
                   step: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   615
                   keyboardStep: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   616
                   extent: (Point 173 16)
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   617
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   618
                (SliderSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   619
                   name: 'LightSlider'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   620
                   tabable: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   621
                   model: light
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   622
                   orientation: horizontal
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   623
                   step: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   624
                   backgroundColor: (Color 67.0 67.0 67.0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   625
                   keyboardStep: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   626
                   extent: (Point 173 16)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   627
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   628
                (SliderSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   629
                   name: 'SaturationSlider'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   630
                   tabable: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   631
                   model: saturation
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   632
                   orientation: horizontal
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   633
                   step: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   634
                   backgroundColor: (Color 67.0 67.0 67.0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   635
                   keyboardStep: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   636
                   extent: (Point 173 16)
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   637
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   638
                )
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
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   641
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   642
          (VerticalPanelViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   643
             name: 'HLSFieldPanel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   644
             layout: (LayoutFrame -173 1 86 0 -130 1 163 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   645
             horizontalLayout: fit
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   646
             verticalLayout: spreadSpace
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   647
             horizontalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   648
             verticalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   649
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   650
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   651
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   652
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   653
                   name: 'EntryField1'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   654
                   model: hue
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   655
                   type: numberInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   656
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   657
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   658
                   maxValue: 359
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   659
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   660
                   extent: (Point 41 20)
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   661
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   662
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   663
                   name: 'EntryField2'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   664
                   model: light
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   665
                   type: numberInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   666
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   667
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   668
                   maxValue: 100
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   669
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   670
                   extent: (Point 41 20)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   671
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   672
                (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   673
                   name: 'EntryField3'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   674
                   model: saturation
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   675
                   type: numberInRange
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   676
                   numChars: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   677
                   minValue: 0
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   678
                   maxValue: 100
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   679
                   acceptOnPointerLeave: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   680
                   extent: (Point 41 20)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   681
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   682
                )
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
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   685
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   686
          (ViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   687
             name: 'PreviewBoxFrame'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   688
             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
   689
             level: 1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   690
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   691
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   692
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   693
                (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   694
                   label: 'Preview'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   695
                   name: 'PreviewBox'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   696
                   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
   697
                   level: -1
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   698
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   699
                   postBuildCallback: postBuildPreviewBox:
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   700
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   701
                )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   702
              
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   703
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   704
           )
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: 'Brightness:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   707
             name: 'Label5'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   708
             layout: (LayoutFrame 0 0 175 0 90 0 197 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   709
             activeHelpKey: brightness
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
             adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   712
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   713
          (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   714
             name: 'EntryField8'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   715
             layout: (LayoutFrame 90 0 175 0 -277 1 197 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   716
             activeHelpKey: brightness
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   717
             model: brightnessStringHolder
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   718
             isReadOnly: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   719
             immediateAccept: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   720
             acceptOnReturn: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   721
             acceptOnTab: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   722
             acceptOnLostFocus: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   723
             acceptOnPointerLeave: true
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
          (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   726
             label: 'Color Name:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   727
             name: 'ColorNameLabel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   728
             layout: (LayoutFrame 2 0 214 0 135 0 236 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   729
             activeHelpKey: colorName
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   730
             translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   731
             adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   732
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   733
          (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   734
             name: 'ColorNameField'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   735
             layout: (LayoutFrame 135 0 214 0 -122 1 236 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   736
             activeHelpKey: colorName
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   737
             model: colorNameHolder
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   738
             immediateAccept: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   739
             acceptOnReturn: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   740
             acceptOnTab: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   741
             acceptOnLostFocus: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   742
             acceptOnPointerLeave: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   743
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   744
          (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   745
             label: 'HTML Color Name:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   746
             name: 'HTMLColorNameLabel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   747
             layout: (LayoutFrame 2 0 240 0 135 0 262 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   748
             activeHelpKey: htmlColorName
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   749
             translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   750
             adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   751
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   752
          (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   753
             name: 'MLHTColorNameFieldField'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   754
             layout: (LayoutFrame 135 0 240 0 -122 1 262 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   755
             activeHelpKey: htmlColorName
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   756
             model: htmlColorNameHolder
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   757
             immediateAccept: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   758
             acceptOnReturn: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   759
             acceptOnTab: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   760
             acceptOnLostFocus: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   761
             acceptOnPointerLeave: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   762
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   763
          (LabelSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   764
             label: 'Color Definition:'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   765
             name: 'Label4'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   766
             layout: (LayoutFrame 2 0 266 0 135 0 288 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   767
             activeHelpKey: colorDefinitionString
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   768
             translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   769
             adjust: right
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   770
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   771
          (InputFieldSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   772
             name: 'EntryField7'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   773
             layout: (LayoutFrame 135 0 266 0 -122 1 288 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   774
             activeHelpKey: colorDefinitionString
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   775
             model: colorDefinitionStringHolder
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   776
             isReadOnly: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   777
             immediateAccept: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   778
             acceptOnReturn: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   779
             acceptOnTab: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   780
             acceptOnLostFocus: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   781
             acceptOnPointerLeave: true
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
          (ActionButtonSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   784
             label: 'Copy Color'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   785
             name: 'CopyColor'
3194
86cf12ddc8fd class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 3179
diff changeset
   786
             layout: (LayoutFrame 12 0 298 0 120 0 320 0)
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   787
             activeHelpKey: hlsMixer
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   788
             translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   789
             resizeForLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   790
             tabable: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   791
             model: copyColor
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   792
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   793
          (ActionButtonSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   794
             label: 'Paste Color'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   795
             name: 'PasteColor'
3194
86cf12ddc8fd class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 3179
diff changeset
   796
             layout: (LayoutFrame 122 0 298 0 240 0 320 0)
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   797
             translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   798
             resizeForLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   799
             tabable: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   800
             model: pasteColor
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   801
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   802
          (ActionButtonSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   803
             label: 'pickColorIcon'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   804
             name: 'Button1'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   805
             layout: (LayoutFrame 285 0 298 0 312 0 325 0)
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   806
             activeHelpKey: pickColor
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   807
             hasCharacterOrientedLabel: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   808
             translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   809
             resizeForLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   810
             tabable: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   811
             model: pickColor
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   812
           )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   813
          (HorizontalPanelViewSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   814
             name: 'HorizontalPanel1'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   815
             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
   816
             horizontalLayout: okCancelBox
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   817
             verticalLayout: centerMax
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   818
             horizontalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   819
             verticalSpace: 3
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   820
             reverseOrderIfOKAtLeft: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   821
             component: 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   822
            (SpecCollection
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   823
               collection: (
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   824
                (ActionButtonSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   825
                   label: 'Cancel'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   826
                   name: 'CancelButton'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   827
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   828
                   resizeForLabel: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   829
                   tabable: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   830
                   model: cancel
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   831
                   useDefaultExtent: true
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   832
                 )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   833
                (ActionButtonSpec
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   834
                   label: 'OK'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   835
                   name: 'OKButton'
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   836
                   translateLabel: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   837
                   resizeForLabel: false
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   838
                   tabable: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   839
                   model: accept
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   840
                   isDefault: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   841
                   defaultable: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   842
                   useDefaultExtent: true
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   843
                 )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   844
                )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   845
              
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   846
             )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   847
             keepSpaceForOSXResizeHandleH: true
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   848
           )
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   849
          )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   850
        
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   851
       )
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
   852
     )
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   853
! !
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   854
2347
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   855
!ColorEditDialog class methodsFor:'startup'!
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   856
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   857
openOn:aColor
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   858
    ^ self new
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   859
        color:aColor;
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   860
        open;
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   861
        yourself
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   862
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   863
    "
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   864
     self openOn:Color red
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   865
    "
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   866
! !
c37fb02785bc +openOn:
Claus Gittinger <cg@exept.de>
parents: 2326
diff changeset
   867
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   868
!ColorEditDialog methodsFor:'accessing'!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   869
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   870
color
2279
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   871
    |colorName|
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   872
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   873
    colorName := self colorName.
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   874
    colorName notEmptyOrNil ifTrue:[
2574
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   875
        ^ Color name:(colorName asSymbol)
2279
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   876
    ].
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   877
    ^ Color redByte:(red value) greenByte:(green value) blueByte:(blue value)
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   878
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   879
2279
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   880
color:aColor
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   881
    aColor isNil ifTrue:[
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   882
        ^ self
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   883
    ].
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
    aColor isSymbol ifTrue:[
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   886
        self colorNameHolder value:aColor
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   887
    ] ifFalse:[
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   888
        self red value:aColor redByte.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   889
        self green value:aColor greenByte.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   890
        self blue value:aColor blueByte.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   891
    ]
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   892
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   893
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   894
colorName
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   895
    ^ colorNameHolder value
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   896
!
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   897
2574
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   898
colorNameOrColor
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   899
    |colorName|
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   900
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   901
    colorName := self colorName.
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   902
    colorName notEmptyOrNil ifTrue:[
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   903
        "/ ^ Color name:(colorName asSymbol)
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   904
        ^ colorName asSymbol
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   905
    ].
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   906
    ^ 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
   907
!
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   908
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   909
htmlColorName
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   910
    ^ htmlColorNameHolder value
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   911
! !
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   912
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   913
!ColorEditDialog methodsFor:'actions'!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   914
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   915
colorChanged
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   916
    |clr nm|
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   917
2574
ae2448675efb deliver a color, when asked for one !
Claus Gittinger <cg@exept.de>
parents: 2521
diff changeset
   918
    clr := self colorNameOrColor.
2279
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   919
    clr isColor ifTrue:[
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   920
        "not a symbol"
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   921
        self setPreview:clr.
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   922
        self htmlColorNameHolder value:(clr htmlPrintString) withoutNotifying:self.
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   923
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   924
        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
   925
        nm notNil ifTrue:[
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   926
            self colorDefinitionStringHolder value:('Color ',nm).
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   927
        ] ifFalse:[
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   928
            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
   929
        ].
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   930
        self brightnessStringHolder value:((clr brightness asFixedPoint:3) printString).
2279
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   931
    ].
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   932
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   933
    "Modified: / 27-01-2011 / 12:54:04 / cg"
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   934
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   935
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   936
colorChangedTo:clr
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   937
    "compute rgb and hls (if possible)"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   938
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   939
    |h|
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   940
2279
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   941
    self red   value:clr redByte withoutNotifying:self.
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   942
    self green value:clr greenByte withoutNotifying:self.
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   943
    self blue  value:clr blueByte withoutNotifying:self.
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   944
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   945
    h := clr hue.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   946
    h notNil ifTrue:[
2279
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   947
        self hue        value:(h rounded) withoutNotifying:self.
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   948
    ].
2279
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   949
    self light      value:(clr light rounded) withoutNotifying:self.
f077161d5d57 symbolic colors
Stefan Vogel <sv@exept.de>
parents: 2274
diff changeset
   950
    self saturation value:(clr saturation rounded) withoutNotifying:self.
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   951
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   952
    self colorChanged
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   953
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
   954
    "Modified: / 27-01-2011 / 12:48:28 / cg"
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   955
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   956
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   957
colorNameChanged
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   958
    "compute rgb and hls (if possible)"
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   959
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   960
    |clr|
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   961
3179
174a9f51db76 class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 3175
diff changeset
   962
    clr := Color name:(self colorName) ifIllegal:nil.
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   963
    clr isNil ifTrue:[
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   964
        ^ self
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   965
    ].
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   966
    self colorChangedTo:clr.
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   967
!
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   968
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   969
copyColor
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   970
    self window setClipboardObject:self color
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   971
!
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   972
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   973
copyColorName
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   974
    self window setClipboardText:self htmlColorName
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   975
!
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
   976
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   977
hlsSliderChanged
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   978
    "compute rgb"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   979
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   980
    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
   981
        red    value:(r * 255 / 100) rounded withoutNotifying:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   982
        green  value:(g * 255 / 100) rounded withoutNotifying:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   983
        blue   value:(b * 255 / 100) rounded withoutNotifying:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   984
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   985
    colorNameHolder value:'' withoutNotifying:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   986
    self colorChanged
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   987
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
   988
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   989
htmlColorNameChanged
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   990
    "compute rgb and hls (if possible)"
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   991
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   992
    |clr|
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   993
2417
cc89133cc041 changed #htmlColorNameChanged - ignore empty color names
Stefan Vogel <sv@exept.de>
parents: 2347
diff changeset
   994
    htmlColorNameHolder value isEmptyOrNil ifTrue:[
cc89133cc041 changed #htmlColorNameChanged - ignore empty color names
Stefan Vogel <sv@exept.de>
parents: 2347
diff changeset
   995
        ^ self.
cc89133cc041 changed #htmlColorNameChanged - ignore empty color names
Stefan Vogel <sv@exept.de>
parents: 2347
diff changeset
   996
    ].
cc89133cc041 changed #htmlColorNameChanged - ignore empty color names
Stefan Vogel <sv@exept.de>
parents: 2347
diff changeset
   997
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   998
    clr := Color rgbValue:(Integer 
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
   999
                                readFrom:(htmlColorNameHolder value copyFrom:2)
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1000
                                radix:16
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1001
                                onError:nil).
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1002
    clr isNil ifTrue:[
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1003
        ^ self
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1004
    ].
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1005
    self colorNameHolder value:'' withoutNotifying:self.
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1006
    self colorChangedTo:clr.
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1007
!
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1008
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1009
pasteColor
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1010
    |copyBufferColor|
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1011
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1012
    copyBufferColor := self window getClipboardObject.
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1013
    copyBufferColor isColor ifFalse:[
3527
74f4d5106d99 #REFACTORING by cg
Claus Gittinger <cg@exept.de>
parents: 3519
diff changeset
  1014
        self window beepInEditor.
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1015
        ^ self
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1016
    ].
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1017
    self color:copyBufferColor
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1018
!
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1019
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1020
pickColor
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1021
    |color|
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1022
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1023
    color := Color fromUserWithFeedBack:[:clr | self setPreview:clr].
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1024
    color notNil ifTrue:[
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1025
        self color:color.
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1026
    ]
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1027
!
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1028
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1029
rgbSliderChanged
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1030
    "compute hls"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1031
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1032
    |r g b|
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1033
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1034
    r := self red value.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1035
    g := self green value.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1036
    b := self blue value.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1037
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1038
    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
  1039
        h isNil ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1040
            "/ achromatic
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1041
        ] ifFalse:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1042
            self hue    value:(h rounded) withoutNotifying:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1043
        ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1044
        self light      value:(l rounded) withoutNotifying:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1045
        self saturation value:(s rounded) withoutNotifying:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1046
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1047
    self colorNameHolder value:'' withoutNotifying:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1048
    self colorChanged
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1049
!
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1050
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1051
setPreview:color
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1052
    previewBox isNil ifTrue:[^ self "called before setup"].
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1053
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1054
    previewBox backgroundColor:color.
2941
15df48eba1c4 class: Color
Stefan Vogel <sv@exept.de>
parents: 2904
diff changeset
  1055
    previewBox foregroundColor:color contrastingBlackOrWhite.
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1056
! !
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1057
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1058
!ColorEditDialog methodsFor:'aspects'!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1059
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1060
blue
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1061
    blue isNil ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1062
        blue := 0 asValue.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1063
        blue addDependent:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1064
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1065
    ^blue
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1066
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1067
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1068
brightnessStringHolder
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1069
    brightnessStringHolder isNil ifTrue:[
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1070
        brightnessStringHolder := 0 asValue.
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1071
        "/ brightness addDependent:self.
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1072
    ].
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1073
    ^ brightnessStringHolder
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1074
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1075
    "Created: / 27-01-2011 / 12:48:00 / cg"
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1076
!
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1077
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1078
colorDefinitionStringHolder
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1079
    colorDefinitionStringHolder isNil ifTrue:[
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1080
        colorDefinitionStringHolder := '' asValue.
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1081
        "/ colorDefinitionStringHolder addDependent:self.
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1082
    ].
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1083
    ^colorDefinitionStringHolder
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1084
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1085
    "Created: / 27-01-2011 / 12:38:12 / cg"
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
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1088
colorNameHolder
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1089
    colorNameHolder isNil ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1090
        colorNameHolder := '' asValue.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1091
        colorNameHolder addDependent:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1092
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1093
    ^colorNameHolder
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1094
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1095
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1096
green
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1097
    green isNil ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1098
        green := 0 asValue.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1099
        green addDependent:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1100
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1101
    ^green
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1102
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1103
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1104
htmlColorNameHolder
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1105
    htmlColorNameHolder isNil ifTrue:[
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1106
        htmlColorNameHolder := '' asValue.
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1107
        htmlColorNameHolder addDependent:self.
2224
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1108
    ].
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1109
    ^htmlColorNameHolder
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1110
!
6ec083adc6bf hex input; hex-name; copy & paste
Claus Gittinger <cg@exept.de>
parents: 1846
diff changeset
  1111
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1112
hue
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1113
    hue isNil ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1114
        hue := 0 asValue.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1115
        hue addDependent:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1116
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1117
    ^hue
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1118
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1119
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1120
light
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1121
    light isNil ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1122
        light := 0 asValue.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1123
        light addDependent:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1124
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1125
    ^light
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1126
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1127
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1128
red
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1129
    red isNil ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1130
        red := 0 asValue.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1131
        red addDependent:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1132
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1133
    ^red
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1134
!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1135
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1136
saturation
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1137
    saturation isNil ifTrue:[
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1138
        saturation := 0 asValue.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1139
        saturation addDependent:self.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1140
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1141
    ^saturation
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1142
! !
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1143
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1144
!ColorEditDialog methodsFor:'change & update'!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1145
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1146
update:something with:aParameter from:changedObject
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1147
    (changedObject == red
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1148
    or:[changedObject == green
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1149
    or:[changedObject == blue]]) ifTrue:[
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1150
        self rgbSliderChanged.
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1151
        ^ self
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1152
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1153
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1154
    (changedObject == hue
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1155
    or:[changedObject == light
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1156
    or:[changedObject == saturation]]) ifTrue:[
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1157
        self hlsSliderChanged.
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1158
        ^ self
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1159
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1160
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1161
    (changedObject == colorNameHolder) ifTrue:[
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1162
        self colorNameChanged.
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1163
        ^ self
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1164
    ].
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1165
    (changedObject == htmlColorNameHolder) ifTrue:[
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1166
        self htmlColorNameChanged.
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1167
        ^ self
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1168
    ].
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1169
2326
f23fac376621 allow hexcolor to be entered;
Claus Gittinger <cg@exept.de>
parents: 2279
diff changeset
  1170
    super update:something with:aParameter from:changedObject
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1171
! !
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1172
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1173
!ColorEditDialog methodsFor:'startup & release'!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1174
2266
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1175
postBuildPreviewBox:aView
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1176
    previewBox := aView
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1177
!
0234d226a06a added pick (pipette) and feedback
Claus Gittinger <cg@exept.de>
parents: 2228
diff changeset
  1178
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1179
postBuildWith:aBuilder
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1180
    super postBuildWith:aBuilder.
3175
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
  1181
    (aBuilder componentAt:'HueSlider') 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
  1182
        viewBackground:
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
  1183
            (ImageBackground new 
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
  1184
                image:(self class hueGradientImage);
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
  1185
                align:#fit;
c205d80403ef class: ColorEditDialog
Claus Gittinger <cg@exept.de>
parents: 2941
diff changeset
  1186
                yourself).
1840
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1187
    self colorChanged.
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1188
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1189
    "Modified: / 6.9.1998 / 22:55:25 / cg"
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1190
! !
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1191
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1192
!ColorEditDialog class methodsFor:'documentation'!
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1193
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1194
version
57c23d1beb53 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
  1195
    ^ '$Header$'
2831
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1196
!
3dbef5687ae6 class definition
Claus Gittinger <cg@exept.de>
parents: 2574
diff changeset
  1197