# NOTE: Derived from blib/lib/Newt.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package Newt::Panel; #line 771 "blib/lib/Newt.pm (autosplit into blib/lib/auto/Newt/Panel/Run.al)" sub Newt::Panel::Run { my ($self,$tr) = @_; my ($reason, $data); $self->Draw; $self->upgrade; ($reason, $data) = $self->SUPER::Run(); $self->Hide if($tr); if (ref($data)) { $data = $self->{refs}{$$data}; } return wantarray ? ($reason, $data) : $data; } # end of Newt::Panel::Run 1;