#!/usr/bin/env perl
use strict;
use warnings;
use diagnostics;
use constant { TRUE => 1, FALSE => 0 };
use lib qw(./lib);
use UI::Dialog::Screen::Menu;
#
#: Demonstrate usage of UI::Dialog::Screen::Menu
#
our $counter = 0;
my $s = new UI::Dialog::Screen::Menu
(
title => "test title",
text => "test text",
order => [ 'dialog' ]
);
$s->add_menu_item
( "An Action ".$counter,
sub {
my ($self,$dialog,$index) = @_;
$counter++;
$s->set_menu_item( $index, "An Action ".$counter, undef );
}
);
my $s2 = new UI::Dialog::Screen::Menu
(
title => "test 2 title",
text => "test 2 text",
order => [ 'dialog' ]
);
$s2->add_menu_item
( "Another Option",
sub {
my ($self,$dialog,$index) = @_;
$dialog->msgbox( text => "Hi" );
}
);
$s->add_menu_item
( "Next Screen",
sub { $s2->loop(); }
);
$s->loop();
exit 0;