Source

WxPerlBook / example / 2a_minimal_subset / start_minimal.pl

Full commit
1
2
3
4
5
6
7
8
use Wx;

App->new->MainLoop;

package App;
use parent qw(Wx::App);

sub OnInit { Wx::Frame->new( undef, -1, 'Greetings Wx')->Show() }