#!/usr/local/bin/perl -w

#
# Figure 16.8, p166
#


use Tk;

my $mw = MainWindow->new;
my $colors = $mw->Listbox->pack;
open (F, "/usr/lib/X11/rgb.txt") || die "Can't open rgb.txt";
while (<F>) {
  next if /^!/;
  $colors->insert('end',(split)[3]);
}
$colors->bind('<Double-Button-1>', sub {
     $colors->configure(-background => $colors->get($colors->curselection))});

MainLoop;