#!/usr/bin/perl

use strict;
use Tk;


my $mw = MainWindow->new;

my @colors = `cat /etc/X11/rgb.txt`;

my %colorValues;

my ($colorName, $red, $green, $blue, );
shift @colors;      #skip first line
my $colorsRead = 0;
foreach my $colorLine (@colors) {
  chomp $colorLine;
  $colorsRead++;
  if ($colorLine =~ m/(\d+)\s+(\d+)\s+(\d+)\s+(.+)$/) {
    $red = $1;
    $green = $2;
    $blue = $3;
    $colorName = $4;
  } else {
    die "Couldn't parse '$colorLine'\n";
  }
  eval {
    ($red,$green,$blue) = $mw->rgb($colorName);
  };
  if ($@) {
    print "Color named $colorName not found by Tk\n";
  }
}
print "$colorsRead colors read\n";