First page Back Continue Last page Overview Graphics
Basics of a wxPerl application (Cont’d)
- package MyFrame;
use base qw(Wx::Frame);
sub new {
my $self = shift->SUPER::new
(undef, -1, 'Hello, world!',
wxDefaultPosition , [350, 100]);
my $sz = Wx::BoxSizer->new(wxHORIZONTAL);
my $tx = Wx::StaticText->new
($self, -1, 'Hello, World!',
wxDefaultPosition, wxDefaultSize);
$sz->Add($tx);
$self->SetSizer($sz);
return $self;
}