#!/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;