#!perl -w

use warnings;
use strict;

use Tk;
use Tk::Menu;
use Menu::Simple;

my $checkbox;

my $menuCfg = [
    File => [
        New  => \&FileNew,
        Save => \&FileSave,
        Exit => \&FileExit,
    ],
    Options => [
        Fancy => { -type => 'checkbutton', -variable => \$checkbox },
    ],
    Help => [
        Help  => \&HelpHelp,
        About => \&HelpAbout,
    ],
];

my $mw      = MainWindow->new(-title=>'Menu Builder Test');
my $menuBar = $mw->Menu(-tearoff=>0);
$mw->configure(-menu=>$menuBar);
Menu::Simple::BuildMenu($menuBar, $menuCfg);

MainLoop;

sub FileNew   {}
sub FileSave  {}
sub FileExit  { Tk::exit; }
sub HelpHelp  {}
sub HelpAbout {}