First page Back Continue Last page Overview Graphics
Basics of a wxPerl application (Cont’d)
- package MyApp;
use base qw(Wx::App);
sub OnInit {
my ($self) = shift;
# Create a new frame.
my $frame = MyFrame->new();
# Set it as top frame.
$self->SetTopWindow($frame);
# Show it.
$frame->Show(1);
}