# 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 732 "blib/lib/Newt.pm (autosplit into blib/lib/auto/Newt/Panel/Draw.al)"
sub Newt::Panel::Draw {
my ($self) = @_;
$self->Pack();
$self->Hide if(@TOP && $TOP[-1] ne $self);
if(!$self->{drawed}) {
if(exists($self->{left}) and exists($self->{top})) {
Newt::newtGridWrappedWindowAt($self->{g}, $self->{title},
$self->{left}, $self->{top});
} else {
Newt::newtGridWrappedWindow($self->{g}, $self->{title});
}
$self->SUPER::Draw();
$self->{drawed} = 1;
push(@TOP,$self);
}
$self;
}
# end of Newt::Panel::Draw
1;