Somewhere the xorg.conf file got lost. I'm running Debian 6 which does have an rgb.txt file in /etc/X11.
That's not where Tk finds color names. There is a color named DebianRed in that file (215,7,81). Tk quits with:
unknown color name "DebianRed" at /usr/lib/perl5/Tk.pm line 250
The following code:
#!/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";
Outputs:
Color named DebianRed not found by Tk
753 colors read
|