sub menu {
my (undef, $event) = @_;
if ($event->{type} =~ /button[-_]press/ and ($event->{button} == 2 or $event->{button} == 3)) {
my $menu_menu       = new Gtk::Menu;
my $menu_item       = new Gtk::MenuItem('Delete it.');
$menu_item->show;
$menu_menu->append($menu_item);
$menu_menu->show;
$menu_item->signal_connect("activate" => \&do_remove);
$menu_menu->popup(undef, undef, $event, $event->{'time'});
}
return 1;
}