1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!/usr/bin/perl -w
#TITLE: MenuFactory
#REQUIRES: Gtk
use Gtk;
init Gtk;
$factory = new Gtk::MenuFactory('menu_bar');
$subfactory = new Gtk::MenuFactory('menu_bar');
$factory->add_subfactory($subfactory, '<Main>');
$entry1 = { path => '<Main>/File/Hello',
accelerator => '<alt>H',
widget => undef,
callback => sub {print "Hello world!\n"}
};
$entry2 = { path => '<Main>/File/Quit',
accelerator => '<alt>Q',
widget => undef,
callback => sub {Gtk->exit(0)}
};
$factory->add_entries($entry1, $entry2);
$menubar = $subfactory->widget;
#$entry->{'widget'}->show;
$menubar->show;
$win = new Gtk::Window;
$win->add($menubar);
$win->show;
$win->signal_connect('delete_event', sub {Gtk->exit(0)});
main Gtk;
|
