use base 'Wx::Panel';
use Wx qw(:sizer :misc :id); 
use Wx::Event qw(EVT_BUTTON); 
sub new {
 my $ref = shift;
  my $parent = shift;
   my $self = $ref->SUPER::new($parent, wxID_ANY, wxDefaultPosition, wxDefaultSize);  
	$self->{sizer} = Wx::StaticBoxSizer->new(	Wx::StaticBox->new($self, -1, 'Box label'), wxHORIZONTAL);
	
	$self->{button} = Wx::Button->new($self, -1, 'Button'); 
	$self->{sizer}->Add($self->{button}, 1, wxEXPAND | wxALL, 10); 
	EVT_BUTTON($self, $self->{button}, \&click); 
	
	$self->SetSizerAndFit($self->{sizer}); 
	
	return $self; 
	
}

sub click { Wx::MessageBox('Click!'); }