#!/usr/bin/perl

use Tk;
use Tk::ItemStyle;

$mw = Tk::MainWindow->new();

$TkStyle{Black     } = $mw -> ItemStyle("text", -stylename=>"Black",      -foreground=>"Black",       -background=>"Wheat", -selectforeground=>"LightSeaGreen");
$TkStyle{LightGrey } = $mw -> ItemStyle("text", -stylename=>"LightGrey",  -foreground=>"grey60",      -background=>"Wheat", -selectforeground=>"LightSeaGreen");
$TkStyle{Red       } = $mw -> ItemStyle("text", -stylename=>"Red",        -foreground=>"Red",         -background=>"Wheat", -selectforeground=>"LightSeaGreen");
$TkStyle{Blue      } = $mw -> ItemStyle("text", -stylename=>"Blue",       -foreground=>"Blue",        -background=>"Wheat", -selectforeground=>"LightSeaGreen");
$TkStyle{RoyalBlue1} = $mw -> ItemStyle("text", -stylename=>"RoyalBlue1", -foreground=>"RoyalBlue1",  -background=>"Wheat", -selectforeground=>"LightSeaGreen");
$TkStyle{RoyalBlue3} = $mw -> ItemStyle("text", -stylename=>"RoyalBlue3", -foreground=>"RoyalBlue3",  -background=>"Wheat", -selectforeground=>"LightSeaGreen");
$TkStyle{Green     } = $mw -> ItemStyle("text", -stylename=>"Green",      -foreground=>"ForestGreen", -background=>"Wheat", -selectforeground=>"LightSeaGreen");
$TkStyle{Orange    } = $mw -> ItemStyle("text", -stylename=>"Orange",     -foreground=>"Orange",      -background=>"Wheat", -selectforeground=>"LightSeaGreen");

foreach $colour (keys %TkStyle)
   { $style = $TkStyle{$colour};
     $count{$style}++;
   }
foreach $colour (keys %TkStyle )
   { $style = $TkStyle{$colour};
     printf("%10s has count %d (style=$style)\n", $colour, $count{$style});
   }