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;