view release on metacpan or  search on metacpan

lib/MyCPAN/Indexer/Interface/Tk.pm  view on Meta::CPAN

	return $menubar;
	}

sub _menu
	{
	my $menubar = shift;
	my $title   = shift;
	my $items   = shift;

	my $menu = $menubar->cascade(
		-label     => $title,
		-menuitems => $items,
		-tearoff   => 0,
		 );

	return $menu;
	}


=back