# NOTE: Derived from blib/lib/Newt.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package Newt::Radiogroup; #line 581 "blib/lib/Newt.pm (autosplit into blib/lib/auto/Newt/Radiogroup/Get.al)" ########################### Newt::Radiogroup sub Newt::Radiogroup::Get { my $self = shift; my $index = 0; foreach (@{$self->{components}}) { return $index if ${Newt::newtRadioGetCurrent($_)} eq ${$_}; $index++; } } # end of Newt::Radiogroup::Get 1;