#!/usr/bin/perl
use Gtk2;
use strict;

Gtk2->init;

my $window = Gtk2::Window->new('toplevel');
$window->signal_connect('delete_event', sub { exit });

my $button = Gtk2::Button->new('Menu');

my @items = (
	[
		'/',
		undef,
		undef,
		undef,
		'<Branch>'
	],
	[
		'/Run Galeon',
		undef,
		sub { system('galeon &') },
		undef,
		'<StockItem>',
		'gtk-execute'
	],
	[
		'/Run Terminal',
		undef,
		sub { system('gnome-terminal &') },
		undef,
		'<StockItem>',
		'gtk-execute'
	],	[
		'/Run GIMP',
		undef,
		sub { system('gimp &') },
		undef,
		'<StockItem>',
		'gtk-execute'
	],
	[
		'/Editors',
		undef,
		undef,
		undef,
		'<Branch>',
	],
	[
		'/Editors/Run Gedit',
		undef,
		sub { system('gedit --new-window &') },
		undef,
		'<StockItem>',
		'gtk-execute'
	],
	[
		'/Editors/Run Emacs',
		undef,
		sub { system('gnome-terminal -e emacs &') },
		undef,
		'<StockItem>',
		'gtk-execute'
	],
	[
		'/Editors/Run nipples',
		undef,
		sub { system('xnipples &') },
		undef,
		'<StockItem>',
		'gtk-execute'
	],
);

my $factory = Gtk2::ItemFactory->new('Gtk2::Menu', '<main>', undef);

$factory->create_items(@items);

my $menu = $factory->get_widget('<main>');

$button->signal_connect('clicked', sub { $menu->popup(undef, undef, undef, undef, $button, undef) });

$window->add($button);

$window->show_all;

Gtk2->main;