1Prima::Menus(3) User Contributed Perl Documentation Prima::Menus(3)
2
3
4
6 Prima::Menus - menu widgets
7
9 This module contains classes that can create menu widgets used as
10 normal widget, without special consideration about system-depended
11 menus.
12
14 use Prima qw(Application Menus);
15 my $w = Prima::MainWindow->new(
16 accelItems => [['~File' => [
17 ['Exit' => sub { exit } ],
18 ]]],
19 onMouseDown => sub {
20 Prima::Menu::Popup->new(menu => $_[0]-> accelTable)->popup;
21 },
22 height => 100,
23 );
24 $w->insert( 'Prima::Menu::Bar',
25 pack => { fill => 'x', expand => 1},
26 menu => $w-> accelTable,
27 );
28 run Prima;
29
31 Dmitry Karasik, <dmitry@karasik.eu.org>.
32
34 Prima, Prima::Menu, examples/menu.pl
35
36
37
38perl v5.32.0 2020-07-28 Prima::Menus(3)