#!/usr/bin/perl
$|=1;
use strict;
# a CDialog lib copy in local example folder
use lib '../lib',
'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;