源码:
wm title . "Color"
wm geometry . 1366x768+0+0
frame .f
scrollbar .vscroll -command ".c yview"
canvas .c -scrollregion {-2.5c 0c 0c 55c} -yscrollcommand ".vscroll set"
pack .f -expand yes -fill both
grid rowconfig .f 0 -weight 1
grid columnconfig .f 0 -weight 1
grid .c -in .f -row 0 -column 0 -sticky news
grid .vscroll -in .f -row 0 -column 1 -sticky news
set color_list {
{alice blue} AliceBlue {antique white} {AntiqueWhite} {AntiqueWhite1} {AntiqueWhite2} {AntiqueWhite3} {AntiqueWhite4} {aquamarine} {aquamarine1} {aquamarine2} {aquamarine3} {aquamarine4} {azure} {azure1} {azure2} {azure3} {azure4} {beige} {bisque} {bisque1} {bisque2} {bisque3} {bisque4} {blanched almond} {BlanchedAlmond} {BlueViolet} {brown} {brown1} {brown2} {brown3} {brown4} {burlywood} {burlywood1} {burlywood2} {burlywood3} {burlywood4} {cadet blue} {CadetBlue} {CadetBlue1} {CadetBlue2} {CadetBlue3} {CadetBlue4} {chartreuse} {chartreuse1} {chartreuse2} {chartreuse3} {chartreuse4} {chocolate} {chocolate1} {chocolate2} {chocolate3} {coral} {coral1} {coral2} {coral3} {coral4} {cornflower blue} {CornflowerBlue} {cornsilk} {cornsilk1} {cornsilk2} {cornsilk3} {cornsilk4} {cyan} {cyan1} {cyan2} {cyan3} {cyan4} {dark cyan} {dark goldenrod} {dark gray} {dark green} {dark grey} {dark khaki} {dark olive green} {dark orange} {dark orchid} {dark red} {dark