Prima::Menus - menu widgets
This module contains classes that can create menu widgets used as normal widget,
without special consideration about system-depended menus.
use Prima qw(Application Menus);
my $w = Prima::MainWindow->new(
accelItems => [['~File' => [
['Exit' => sub { exit } ],
]]],
onMouseDown => sub {
Prima::Menu::Popup->new(menu => $_[0]-> accelTable)->popup;
},
height => 100,
);
$w->insert( 'Prima::Menu::Bar',
pack => { fill => 'x', expand => 1},
menu => $w-> accelTable,
);
run Prima;
Dmitry Karasik, <dmitry@karasik.eu.org>.
Prima, Prima::Menu, examples/menu.pl