Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
72 lines (56 sloc) 1.41 KB
use strict;
use warnings;
use SDLx::App;
use lib 'lib';
use SDLx::Widget::Menu;
my $app = SDLx::App->new(
w => 800,
h => 600,
eoq => 1,
);
my $show_menu = 1;
my $menu_event_id;
my $menu = SDLx::Widget::Menu->new( topleft => [100, 230] )->items(
'Some Option' => sub { },
'Open Submenu' => \&open_submenu,
'Some Other Option' => sub { },
'Quit' => sub { $show_menu = 0; },
);
my $show_submenu = 0;
my $submenu = SDLx::Widget::Menu->new( topleft => [100, 530] )->items(
'Item 1' => sub { },
'Item 2' => sub { },
'Item 3' => sub { },
'Back' => sub { $show_submenu = 0 },
);
open_menu();
$app->add_show_handler(
sub {
$app->draw_rect( undef, undef );
$menu->render($app);
$submenu->render($app) if $show_submenu;
$app->update;
}
);
$app->run;
exit;
sub open_submenu {
$submenu->selected( undef );
$show_submenu = 1;
$app->remove_event_handler( $menu_event_id );
my $submenu_id;
$submenu_id = $app->add_event_handler( sub {
$submenu->event_hook( $_[0] );
if ($show_submenu == 0) {
$app->remove_event_handler( $submenu_id );
open_menu();
}
});
}
sub open_menu {
$menu->selected( undef );
$menu_event_id = $app->add_event_handler( sub {
$menu->event_hook( $_[0] );
$app->stop if $show_menu == 0;
});
}