#!./perl
BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)) }
use Tk;

$top = tkinit;
$mb = Menubutton::new($top, "-text" => "Press for menu");
$subm = Menu::new($mb);
foreach ("one", "two", "three") {
    $subm->add("command", "-label" => $_, "-slave" => $_,
	       "-method" => sub { print "submenu entry $_[0]\n" });
}

$m = Menu::new($mb);
$m->add("command", "-label" => "Open", "-method" => \&sayopen);
$m->add("command", "-label" => "Close", "-method" => \&sayclose);
$m->add("separator");
$m->add("cascade", "-label" => "Submenu", "-menu" => $subm);
$m->add("command", "-label" => "Exit", "-method" => \&doexit);

$mb->configure("-menu" => $m);
tkpack $mb;
tkmainloop;

sub sayopen { print "Open something\n" }
sub sayclose { print "Close something\n" }
sub doexit { die "Goodbye cruel world\n" }