The built-in tk_chooseColor widget is the standard way to allow users to choose a color. There certainly are cases when one wants to present a different appearance to the same function, though. One color picker appears at https://www.tcl-lang.org/community/hobbs/tcl/capp/ .
D. McC: Nov 17 2005 - Does it really? I just looked, and I didn't see one. What is it called, and what is the link to it from the URL above?
CJL - On the referenced page, click 'Tcl Plugin Apps'.
Here's an old-time implementation that Steve Offut preserved:
#! /usr/local/bin/wish
proc setColor {tossit} {
global redval grnval blueval collist hexval
set hexval [format %02X%02X%02X $redval $grnval $blueval]
.butfrm.visual.button conf \
-bg #$hexval \
-activebackground #$hexval
set temp [expr [expr $blueval + $grnval] + $redval]
set bming [expr abs([expr $grnval - $blueval])]
set rminb [expr abs([expr $redval - $grnval])]
set gminr [expr abs([expr $grnval - $redval])]
set sumodiff [expr $gminr + [expr $bming + $rminb]]
if {$sumodiff < 350 && $temp < 400} {
.butfrm.visual.button conf \
-fg white \
-activeforeground white
} else {
.butfrm.visual.button conf \
-fg black \
-activeforeground black
}
}
proc picker {} {
global collist colnamelist redval grnval blueval
frame .butfrm \
-relief raised \
-border 3 \
-width 250 \
-height 410
frame .butfrm.sliders
set temp .butfrm.sliders
scale $temp.r \
-label Red: \
-from 0 \
-to 255 \
-showvalue 1 \
-sliderrelief raised \
-sliderlength 10 \
-troughcolor red \
-variable redval \
-command {setColor} \
-orient horizontal
scale $temp.g \
-label Green: \
-from 0 \
-to 255 \
-showvalue 1 \
-sliderrelief raised \
-troughcolor green \
-sliderlength 10 \
-variable grnval \
-command {setColor} \
-orient horizontal
scale $temp.b \
-label Blue: \
-from 0 \
-to 255 \
-showvalue 1 \
-sliderrelief raised \
-troughcolor blue \
-sliderlength 10 \
-variable blueval \
-command {setColor} \
-orient horizontal
pack $temp.r $temp.g $temp.b -expand 1
frame .butfrm.visual
button .butfrm.visual.button \
-bg black \
-fg white \
-text "Pick Your Color" \
-height 6 \
-width 10
entry .butfrm.visual.ent \
-width 7 \
-textvariable hexval \
-relief raised
#-font courier14
place $temp \
-in .butfrm \
-relx 0.0 \
-rely 0.0 \
-anchor nw
pack .butfrm.visual.button \
-anchor nw \
-side top
pack .butfrm.visual.ent \
-anchor n \
-side bottom
place .butfrm.visual \
-in .butfrm \
-anchor nw \
-relx 0.5\
-y 35
frame .butfrm.int \
-relief raised \
-border 3
canvas .butfrm.int.scrolled \
-yscrollcommand ".butfrm.int.scroller set" \
-height 200 \
-width 200 \
-relief raised \
-bg black
scrollbar .butfrm.int.scroller \
-command ".butfrm.int.scrolled yview" \
-relief raised \
-width 12
pack .butfrm.int.scroller \
-side right \
-fill y \
-anchor ne
pack .butfrm.int.scrolled \
-side left \
-anchor nw \
-expand 1
set frmlist [list]
set framer 0
set frm .butfrm.int.scrolled
set colnum [llength $collist]
for {set i 0} {$i < $colnum} {incr i} {
set tag [$frm create rect 4 [expr $framer * 30] 200 [
expr [expr $framer * 30] + 30] \
-fill #[lindex $collist $i] -width 2]
scan [lindex $collist $i] "%02x%02x%02x" red green blue
$frm bind $tag <ButtonPress-1> "set redval $red; \
set grnval $green; \
set blueval $blue; \
setColor 0"
set temp [expr $red + [expr $green + $blue]]
set bming [expr abs([expr $green - $blue])]
set rminb [expr abs([expr $red - $green])]
set gminr [expr abs([expr $green - $red])]
set sumodiff [expr $gminr + [expr $bming + $rminb]]
if {$sumodiff < 350 && $temp < 400} {
set tag [$frm create text 100 [expr [expr $framer *30] + 15] \
-text [lindex $colnamelist $i] \
-fill white]
} else {
set tag [$frm create text 100 [expr [expr $framer *30] + 15] \
-text [lindex $colnamelist $i] \
-fill black]
}
$frm bind $tag <ButtonPress-1> "set redval $red; \
set grnval $green; \
set blueval $blue; \
setColor 0"
incr framer
}
place .butfrm.int \
-in .butfrm \
-x 7 \
-y 190
pack .butfrm
$frm conf -scrollregion "0 0 [. cget -width] [expr $framer * 30]"
#$frm.$framer conf -width 400 -height 400
update
}
# While CL doesn't like these magic numbers, preferring to
# calculate them dynamically with [winfo rgb ...], he preserves
# them here out of respect for the seniority of this program.
set collist {
FFFAFA F8F8FF F5F5F5 DCDCDC FFFAF0 FDF5E6 FAF0E6 FAEBD7
FFEFD5 FFEBCD FFE4C4 FFDAB9 FFDEAD FFE4B5 FFF8DC FFFFF0 FFFACD FFF5EE
F0FFF0 F5FFFA F0FFFF F0F8FF E6E6FA FFF0F5 FFE4E1 FFFFFF 000000 2F4F4F
696969 708090 778899 BEBEBE D3D3D3 191970 000080 6495ED 483D8B 6A5ACD
7B68EE 8470FF 0000CD 4169E1 0000FF 1E90FF 00BFFF 87CEEB 87CEFA 4682B4
B0C4DE ADD8E6 B0E0E6 AFEEEE 00CED1 48D1CC 40E0D0 00FFFF E0FFFF 5F9EA0
66CDAA 7FFFD4 006400 556B2F 8FBC8F 2E8B57 3CB371 20B2AA 98FB98 00FF7F
7CFC00 00FF00 7FFF00 00FA9A ADFF2F 32CD32 9ACD32 228B22 6B8E23 BDB76B
F0E68C EEE8AA FAFAD2 FFFFE0 FFFF00 FFD700 EEDD82 DAA520 B8860B BC8F8F
CD5C5C 8B4513 A0522D CD853F DEB887 F5F5DC F5DEB3 F4A460 D2B48C D2691E
B22222 A52A2A E9967A FA8072 FFA07A FFA500 FF8C00 FF7F50 F08080 FF6347
FF4500 FF0000 FF69B4 FF1493 FFC0CB FFB6C1 DB7093 B03060 C71585 D02090
FF00FF EE82EE DDA0DD DA70D6 BA55D3 9932CC 9400D3 8A2BE2 A020F0 9370DB
D8BFD8 EEE9E9 CDC9C9 8B8989 EEE5DE CDC5BF 8B8682 FFEFDB EEDFCC CDC0B0
8B8378 EED5B7 CDB79E 8B7D6B EECBAD CDAF95 8B7765 EECFA1 CDB38B 8B795E
EEE9BF CDC9A5 8B8970 EEE8CD CDC8B1 8B8878 EEEEE0 CDCDC1 8B8B83 E0EEE0
C1CDC1 838B83 EEE0E5 CDC1C5 8B8386 EED5D2 CDB7B5 8B7D7B E0EEEE C1CDCD
838B8B 836FFF 7A67EE 6959CD 473C8B 4876FF 436EEE 3A5FCD 27408B 0000EE
00008B 1C86EE 1874CD 104E8B 63B8FF 5CACEE 4F94CD 36648B 00B2EE 009ACD
00688B 87CEFF 7EC0EE 6CA6CD 4A708B B0E2FF A4D3EE 8DB6CD 607B8B C6E2FF
B9D3EE 9FB6CD 6C7B8B CAE1FF BCD2EE A2B5CD 6E7B8B BFEFFF B2DFEE 9AC0CD
68838B D1EEEE B4CDCD 7A8B8B BBFFFF AEEEEE 96CDCD 668B8B 98F5FF 8EE5EE
7AC5CD 53868B 00F5FF 00E5EE 00C5CD 00868B 00EEEE 00CDCD 008B8B 97FFFF
8DEEEE 79CDCD 528B8B 76EEC6 458B74 C1FFC1 B4EEB4 9BCD9B 698B69 54FF9F
4EEE94 43CD80 9AFF9A 90EE90 7CCD7C 548B54 00EE76 00CD66 008B45 00EE00
00CD00 008B00 76EE00 66CD00 458B00 C0FF3E B3EE3A 698B22 CAFF70 BCEE68
A2CD5A 6E8B3D FFF68F EEE685 CDC673 8B864E FFEC8B EEDC82 CDBE70 8B814C
EEEED1 CDCDB4 8B8B7A EEEE00 CDCD00 8B8B00 EEC900 CDAD00 8B7500 FFC125
EEB422 CD9B1D 8B6914 FFB90F EEAD0E CD950C 8B6508 FFC1C1 EEB4B4 CD9B9B
8B6969 FF6A6A EE6363 CD5555 8B3A3A FF8247 EE7942 CD6839 8B4726 FFD39B
EEC591 CDAA7D 8B7355 FFE7BA EED8AE CDBA96 8B7E66 FFA54F EE9A49 8B5A2B
FF7F24 EE7621 CD661D FF3030 EE2C2C CD2626 8B1A1A FF4040 EE3B3B CD3333
8B2323 FF8C69 EE8262 CD7054 8B4C39 EE9572 CD8162 8B5742 EE9A00 CD8500
8B5A00 FF7F00 EE7600 CD6600 8B4500 FF7256 EE6A50 CD5B45 8B3E2F EE5C42
CD4F39 8B3626 EE4000 CD3700 8B2500 EE0000 CD0000 8B0000 EE1289 CD1076
8B0A50 FF6EB4 EE6AA7 CD6090 8B3A62 FFB5C5 EEA9B8 CD919E 8B636C FFAEB9
EEA2AD CD8C95 8B5F65 FF82AB EE799F CD6889 8B475D FF34B3 EE30A7 CD2990
8B1C62 FF3E96 EE3A8C CD3278 8B2252 EE00EE CD00CD 8B008B FF83FA EE7AE9
CD69C9 8B4789 FFBBFF EEAEEE CD96CD 8B668B E066FF D15FEE B452CD 7A378B
BF3EFF B23AEE 9A32CD 68228B 9B30FF 912CEE 7D26CD 551A8B AB82FF 9F79EE
8968CD 5D478B FFE1FF EED2EE CDB5CD 8B7B8B 030303 050505 080808 0A0A0A
0D0D0D 0F0F0F 121212 141414 171717 1A1A1A 1C1C1C 1F1F1F 212121 242424
262626 292929 2B2B2B 2E2E2E 303030 333333 363636 383838 3B3B3B 3D3D3D
404040 424242 454545 474747 4A4A4A 4D4D4D 4F4F4F 525252 545454 575757
595959 5C5C5C 5E5E5E 616161 636363 666666 6B6B6B 6E6E6E 707070 737373
757575 787878 7A7A7A 7D7D7D 7F7F7F 828282 858585 878787 8A8A8A 8C8C8C
8F8F8F 919191 949494 969696 999999 9C9C9C 9E9E9E A1A1A1 A3A3A3 A6A6A6
A8A8A8 ABABAB ADADAD B0B0B0 B3B3B3 B5B5B5 B8B8B8 BABABA BDBDBD BFBFBF
C2C2C2 C4C4C4 C7C7C7 C9C9C9 CCCCCC CFCFCF D1D1D1 D4D4D4 D6D6D6 D9D9D9
DBDBDB DEDEDE E0E0E0 E3E3E3 E5E5E5 E8E8E8 EBEBEB EDEDED F0F0F0 F2F2F2
F7F7F7 FAFAFA FCFCFC}
set colnamelist {
snow {ghost white} {white smoke} gainsboro {floral white}
{old lace} linen {antique white} {papaya whip} {blanched almond} bisque
{peach puff} {navajo white} moccasin cornsilk ivory {lemon chiffon}
seashell honeydew {mint cream} azure {alice blue} lavender {lavender blush}
{misty rose} white black {dark slate gray} {dim gray} {slate gray}
{light slate gray} gray {light grey} {midnight blue} navy
{cornflower blue} {dark slate blue} {slate blue} {medium slate blue}
{light slate blue} {medium blue} {royal blue} blue {dodger blue}
{deep sky blue} {sky blue} {light sky blue} {steel blue} {light steel blue}
{light blue} {powder blue} {pale turquoise} {dark turquoise} {medium turquoise}
turquoise cyan {light cyan} {cadet blue} {medium aquamarine}
aquamarine {dark green} {dark olive green} {dark sea green} {sea green}
{medium sea green} {light sea green} {pale green} {spring green} {lawn green}
green chartreuse {medium spring green} {green yellow} {lime green}
{yellow green} {forest green} {olive drab} {dark khaki} khaki
{pale goldenrod} {light goldenrod yellow} {light yellow} yellow gold
{light goldenrod} goldenrod {dark goldenrod} {rosy brown} {indian red}
{saddle brown} sienna peru burlywood beige wheat {sandy brown} tan
chocolate firebrick brown {dark salmon} salmon {light salmon} orange
{dark orange} coral {light coral} tomato {orange red} red {hot pink}
{deep pink} pink {light pink} {pale violet red} maroon {medium violet red}
{violet red} magenta violet plum orchid {medium orchid}
{dark orchid} {dark violet} {blue violet} purple {medium purple} thistle snow2
snow3 snow4 seashell2 seashell3 seashell4 AntiqueWhite1 AntiqueWhite2
AntiqueWhite3 AntiqueWhite4 bisque2 bisque3 bisque4 PeachPuff2
PeachPuff3 PeachPuff4 NavajoWhite2 NavajoWhite3 NavajoWhite4
LemonChiffon2 LemonChiffon3 LemonChiffon4 cornsilk2 cornsilk3 cornsilk4
ivory2 ivory3 ivory4 honeydew2 honeydew3 honeydew4 LavenderBlush2
LavenderBlush3 LavenderBlush4 MistyRose2 MistyRose3 MistyRose4 azure2
azure3 azure4 SlateBlue1 SlateBlue2 SlateBlue3 SlateBlue4 RoyalBlue1
RoyalBlue2 RoyalBlue3 RoyalBlue4 blue2 blue4 DodgerBlue2 DodgerBlue3
DodgerBlue4 SteelBlue1 SteelBlue2 SteelBlue3 SteelBlue4 DeepSkyBlue2
DeepSkyBlue3 DeepSkyBlue4 SkyBlue1 SkyBlue2 SkyBlue3 SkyBlue4
LightSkyBlue1 LightSkyBlue2 LightSkyBlue3 LightSkyBlue4 SlateGray1
SlateGray2 SlateGray3 SlateGray4 LightSteelBlue1 LightSteelBlue2
LightSteelBlue3 LightSteelBlue4 LightBlue1 LightBlue2 LightBlue3
LightBlue4 LightCyan2 LightCyan3 LightCyan4 PaleTurquoise1
PaleTurquoise2 PaleTurquoise3 PaleTurquoise4 CadetBlue1 CadetBlue2
CadetBlue3 CadetBlue4 turquoise1 turquoise2 turquoise3 turquoise4 cyan2
cyan3 cyan4 DarkSlateGray1 DarkSlateGray2 DarkSlateGray3 DarkSlateGray4
aquamarine2 aquamarine4 DarkSeaGreen1 DarkSeaGreen2 DarkSeaGreen3
DarkSeaGreen4 SeaGreen1 SeaGreen2 SeaGreen3 PaleGreen1 PaleGreen2
PaleGreen3 PaleGreen4 SpringGreen2 SpringGreen3 SpringGreen4 green2
green3 green4 chartreuse2 chartreuse3 chartreuse4 OliveDrab1 OliveDrab2
OliveDrab4 DarkOliveGreen1 DarkOliveGreen2 DarkOliveGreen3
DarkOliveGreen4 khaki1 khaki2 khaki3 khaki4 LightGoldenrod1
LightGoldenrod2 LightGoldenrod3 LightGoldenrod4 LightYellow2
LightYellow3 LightYellow4 yellow2 yellow3 yellow4 gold2 gold3 gold4
goldenrod1 goldenrod2 goldenrod3 goldenrod4 DarkGoldenrod1
DarkGoldenrod2 DarkGoldenrod3 DarkGoldenrod4 RosyBrown1 RosyBrown2
RosyBrown3 RosyBrown4 IndianRed1 IndianRed2 IndianRed3 IndianRed4
sienna1 sienna2 sienna3 sienna4 burlywood1 burlywood2 burlywood3
burlywood4 wheat1 wheat2 wheat3 wheat4 tan1 tan2 tan4 chocolate1
chocolate2 chocolate3 firebrick1 firebrick2 firebrick3 firebrick4 brown1
brown2 brown3 brown4 salmon1 salmon2 salmon3 salmon4 LightSalmon2
LightSalmon3 LightSalmon4 orange2 orange3 orange4 DarkOrange1
DarkOrange2 DarkOrange3 DarkOrange4 coral1 coral2 coral3 coral4 tomato2
tomato3 tomato4 OrangeRed2 OrangeRed3 OrangeRed4 red2 red3 red4
DeepPink2 DeepPink3 DeepPink4 HotPink1 HotPink2 HotPink3 HotPink4 pink1
pink2 pink3 pink4 LightPink1 LightPink2 LightPink3 LightPink4
PaleVioletRed1 PaleVioletRed2 PaleVioletRed3 PaleVioletRed4 maroon1
maroon2 maroon3 maroon4 VioletRed1 VioletRed2 VioletRed3 VioletRed4
magenta2 magenta3 magenta4 orchid1 orchid2 orchid3 orchid4 plum1 plum2
plum3 plum4 MediumOrchid1 MediumOrchid2 MediumOrchid3 MediumOrchid4
DarkOrchid1 DarkOrchid2 DarkOrchid3 DarkOrchid4 purple1 purple2 purple3
purple4 MediumPurple1 MediumPurple2 MediumPurple3 MediumPurple4 thistle1
thistle2 thistle3 thistle4 gray1 gray2 gray3 gray4 gray5 gray6 gray7
gray8 gray9 gray10 gray11 gray12 gray13 gray14 gray15 gray16 gray17
gray18 gray19 gray20 gray21 gray22 gray23 gray24 gray25 gray26 gray27
gray28 gray29 gray30 gray31 gray32 gray33 gray34 gray35 gray36 gray37
gray38 gray39 gray40 gray42 gray43 gray44 gray45 gray46 gray47 gray48
gray49 gray50 gray51 gray52 gray53 gray54 gray55 gray56 gray57 gray58
gray59 gray60 gray61 gray62 gray63 gray64 gray65 gray66 gray67 gray68
gray69 gray70 gray71 gray72 gray73 gray74 gray75 gray76 gray77 gray78
gray79 gray80 gray81 gray82 gray83 gray84 gray85 gray86 gray87 gray88
gray89 gray90 gray91 gray92 gray93 gray94 gray95 gray97 gray98 gray99}
set redval 0
set blueval 0
set grnval 0
picker
wm title . {Color Picker}LES This code doesn't work for me until I replace collist [list \ ... ] with collist { ... } and replace colnamelist [list \ ... ] with colnamelist { ... }
SO 2005-01-08: ... hmmm... This code is certainly broken, I have no recollection of posting this (OTOH, I may not remember what I did yesterday ...). This was not something I wrote, but may well have been something I had on hand during the 8.0 days ... I will search the archives..
pcam 2009-03-25: This code was simply the victim of pagination. The list command required the multiline command indicator \ at the end of each line. I took the easier approach and replaced the list command with the list definition { ... } and that was all it required.
WJP 2006-04-11: Here's a stand-alone color-picker that I wrote in Tcl/Tk: http://billposer.org/Software/ColorExplorer.html .
D. McC 2009-Mar-25: Or you could try WISH Color Picker Plus. pcam 25/03/2009. Tried it but your code required more modifications and editing (not directly rippable from wiki). Shame.
HaO 2010-06-17 BWidget has a color picker called SelectColor - BWidget::SelectColor
SeS 2010-06-19 Yes, HaO, and here you see it in action, a demonstration of the current state of tG² , BWidget's has some nice widgets, wish I had seen the tab/notebook much earlier...