Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl
use warnings;
use strict;
...
my $blue = $tree->ItemStyle('imagetext', -foreground => 'blue');
$tree->itemConfigure('orange.red', 0, -style => $blue);
MainLoop();