use strict;
use warnings;
use Gtk2 '-init';

sub do_quit {
  exit 0;
}

my $toplevel = Gtk2::Window->new ('toplevel');

my $ui  = Gtk2::UIManager->new;
$toplevel->{'ui'} = $ui;
$toplevel->add_accel_group ($ui->get_accel_group);

my $actions = Gtk2::ActionGroup->new ("Actions");
$actions->add_actions
  ([ [ "FileMenu", undef,      "_File"                          ],
     [ "Quit",     'gtk-quit', undef,  undef, "Quit", \&do_quit ] ]);
$ui->insert_action_group ($actions, 0);

$ui->add_ui_from_string ("
<ui>
  <menubar name='MenuBar'>
    <menu action='FileMenu'>
      <menuitem action='Quit'/>
    </menu>
  </menubar>
  <toolbar  name='ToolBar'>
  </toolbar>
</ui>");

my $vbox = Gtk2::VBox->new (0,0);
$toplevel->add ($vbox);

my $menubar = $ui->get_widget('/MenuBar');
$vbox->pack_start ($menubar, 0,0,0);

$toplevel->set_default_size (400, 300);
$toplevel->show_all;
Gtk2->main;