in reply to Re^3: Viewing Tk Colours (Colors) by name
in thread Viewing Tk Colours (Colors) by name
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 250The 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
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^5: Viewing Tk Colours (Colors) by name
by zentara (Cardinal) on Feb 22, 2012 at 18:09 UTC | |
|
Re^5: Viewing Tk Colours (Colors) by name
by afoken (Chancellor) on Feb 22, 2012 at 19:02 UTC | |
by jinnicky (Sexton) on Feb 27, 2012 at 15:30 UTC |