#!/usr/bin/perl -w
use lib qw(lib);
use HTML::Menu::TreeView;
use CGI;
use strict;
my $q = new CGI;
my @tree = (
            {
             text     => 'what',
             style    => 'width:100px;',
             addition => $q->checkbox(
                                      -name  => 'what',
                                      -value => 'what',
             ),
            },
            {
             text     => 'Whatever',
             style    => 'width:100px;',
             addition => $q->checkbox(
                                      -name  => 'Whatever',
                                      -value => 'Whatever',
             ),
            }
);
my $TreeView = new HTML::Menu::TreeView();
print($q->header,
      $q->start_html(
                     -title  => 'Select',
                     -script => $TreeView->jscript() . $TreeView->preload(),
                     -style  => {-code => $TreeView->css()}
      ),
      $q->start_form(
                     -method => "get",
                     -action => "$ENV{SCRIPT_NAME}",
      ),
      $q->hidden({-name => 'action'}, 'select'),
      $TreeView->Tree(\@tree),
      $q->submit(
                 -name  => 'submit',
                 -value => 'Select'
      ),
      $q->end_form
);
if ($q->param('submit')) {
    my %params = $q->Vars();
    foreach my $key (sort(keys %params)) {
        print $q->br() . $params{$key} unless $key eq 'submit';
    }
}
print $q->end_html;
