view release on metacpan or  search on metacpan

devel/tearoff.pl  view on Meta::CPAN

$menu->append ($dashesitem);
print "$progname: done\n";

my $zitem = Gtk2::MenuItem->new ('ZZZZZZZZZZZZ');
$zitem->show;
$menu->append ($zitem);

$dashesitem->set_direction ('rtl');
print "$progname: child direction is ",$dashes->get_direction,"\n";

print "$progname: popup\n";
$menu->popup (undef, undef, undef, undef,
              1, 0);

print "$progname: dashes ypad ",$dashes->get('ypad'),"\n";
print "$progname: main loop\n";
Gtk2->main;
exit 0;