#!/usr/bin/perl

package main;

use 5.008;
use strict;
use warnings;

$| = 1;

# create the WxApplication
my $app = Demo::App->new;
$app->MainLoop;

package Demo::App;
use strict;
use warnings;
use base 'Wx::App';

sub OnInit {
    my $frame = Demo::App::Frame->new;
    $frame->Show( 1 );
}

package Demo::App::Frame;
use strict;
use warnings;
use Wx qw(:everything);
use Wx::Event qw(:everything);
use base 'Wx::Frame';

sub new {
    my ($class) = @_;

    my $self = $class->SUPER::new( undef, -1,
                                 'Demo::App',
                                  wxDefaultPosition,  wxDefaultSize,
                                 );

    my $button = Wx::Button->new($self, -1, "Press here");

    EVT_BUTTON( $self, $button, sub {print "button pressed\n"} );

    $self->SetSize($button->GetSizeWH);

    return $self;
}