#!/usr/bin/perl -w
#TITLE: Log handler
#REQUIRES: Gtk
use Gtk;
init Gtk;
use Gtk::LogHandler;
$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)});
Gtk->warning("Foo!");
#Gtk->error("Bar.");
main Gtk;