use Tk;

use Tk::Tree;

my $mw = MainWindow->new(-title => 'Tree');

my $tree = $mw->Tree->pack(-fill => 'both', -expand => 1);

foreach (qw/orange orange.red orange.yellow green green.blue green.yellow purple purple.red purple.blue/)
{
  $tree->add($_, -text => $_);
}


# Different things to try here


$tree->autosetmode();

MainLoop;

##</code><code>##

$tree->itemConfigure('orange.red', 0, -foreground => 'blue');

##</code><code>##

Bad option `-foreground' at C:/Strawberry/perl/site/lib/Tk.pm line 251.

##</code><code>##

$tree->itemConfigure('orange.red', 1, -foreground => 'blue');

##</code><code>##

Column "1" does not exist at C:/Strawberry/perl/site/lib/Tk.pm line 251.

##</code><code>##

$tree->itemConfigure('orange.red', 0, -fill => 'blue');

##</code><code>##

Bad option `-fill' at C:/Strawberry/perl/site/lib/Tk.pm line 251.