Help for this page

Select Code to Download

Select or download this

use Tk;

...
  my $colour = shift;
  $c->itemconfigure($text, -fill => $colour);
}