| Path : /proc/self/root/lib64/perl5/vendor_perl/auto/Newt/Listbox/ |
| Current File : //proc/self/root/lib64/perl5/vendor_perl/auto/Newt/Listbox/Get.al |
# NOTE: Derived from blib/lib/Newt.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Newt::Listbox;
#line 658 "blib/lib/Newt.pm (autosplit into blib/lib/auto/Newt/Listbox/Get.al)"
sub Newt::Listbox::Get {
my $self = shift;
if ($self->{flags} & Newt::constant(NEWT_FLAG_MULTIPLE, 0)) {
return Newt::newtListboxGetSelection($self->{co});
} else {
return Newt::newtListboxGetCurrent($self->{co});
}
}
# end of Newt::Listbox::Get
1;