[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / sun4-solaris / auto / Tk / Listbox / getSelected.al

# NOTE: Derived from ../blib/lib/Tk/Listbox.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Tk::Listbox;

#line 524 "../blib/lib/Tk/Listbox.pm (autosplit into ../blib/lib/auto/Tk/Listbox/getSelected.al)"
sub getSelected
{
 my ($w) = @_;
 my $i;
 my (@result) = ();
 foreach $i ($w->curselection)
  {
   push(@result,$w->get($i));
  }
 return (wantarray) ? @result : $result[0];
}

1;
__END__
1;
# end of Tk::Listbox::getSelected
Commit	Line	Data
86530b38 AT	1	# NOTE: Derived from ../blib/lib/Tk/Listbox.pm.
	2	# Changes made here will be lost when autosplit is run again.
	3	# See AutoSplit.pm.
	4	package Tk::Listbox;
	5
	6	#line 524 "../blib/lib/Tk/Listbox.pm (autosplit into ../blib/lib/auto/Tk/Listbox/getSelected.al)"
	7	sub getSelected
	8	{
	9	my ($w) = @_;
	10	my $i;
	11	my (@result) = ();
	12	foreach $i ($w->curselection)
	13	{
	14	push(@result,$w->get($i));
	15	}
	16	return (wantarray) ? @result : $result[0];
	17	}
	18
	19	1;
	20	__END__
	21	1;
	22	# end of Tk::Listbox::getSelected