listbox .colors
pack .colors
set f [open /opt/CUCSX11R6/lib/X11/rgb.txt]
while {[gets $f line] >= 0} {
  .colors insert end [lrange $line 3 end]
}
close $f
bind .colors <Double-Button-1> {
  .colors configure -background [selection get]
}