MINI MINI MANI MO

# 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;