#!/usr/bin/perl -w
use HTML::Menu::TreeView;
use CGI;
use strict;
my @tree = (
{
onclick => "alert('onclick');",
text => 'onclick',
},
{
text => 'Html::Menu::TreeView',
subtree => [
{
text => 'Examples',
subtree => [
{
text => 'FO Syntax',
href => './fo.pl',
},
],
},
],
},
{
ondblclick => "alert('ondblclick');",
text => 'ondblclick',
title => 'ondblclick',
},
);
my $TreeView = new HTML::Menu::TreeView();
$TreeView->Style('simple');
$TreeView->clasic(1);
my $q = new CGI;
print($q->header,
$q->start_html(
-title => 'OO',
-script => $TreeView->jscript() . $TreeView->preload(),
-style => {-code => $TreeView->css()}
),
$TreeView->Tree(\@tree),
$q->end_html
);