|
#!/usr/bin/perl
$|=1;
'lib' ;
our $a_called = 0;
my $submenu = {
title => 'is a deeper submenu' ,
entries => [
{
title => 'deeper sub 1' ,
},
{
title => 'deeper sub 2' ,
},
]
};
my $tree = {
title => 'Conditinal behaviour' ,
entries => [
{
title => 'has submenus' ,
entries => [
$submenu ,
$submenu ,
]
},
{
title => 'has same submenu like above' ,
entries => [
$submenu ,
$submenu ,
]
},
],
};
my $menu_control = UI::Dialog::Util::MenuControl->new( menu => $tree );
$menu_control ->run();
exit ;
sub doA{
print "doing A\n" ;
$a_called = 1;
return ;
}
sub aWasCalled{
return $a_called ;
}
sub doB{
print "doing B\n" ;
return ;
}
sub resetA{
$a_called = 0;
return ;
}
1;
|