#!/usr/bin/perl -w use lib qw(lib); 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 ); |