#!/usr/bin/perl -w
use strict;
use Wx;

# Wx::App mit unserer Button - Klasse erweitern

package ButtonClass;
use base qw(Wx::App);
use Wx::Event qw(EVT_BUTTON);
         
sub OnInit {
 my $self = shift;    
 my $frame = Wx::Frame->new( undef, -1, 'Button - Klasse', [-1,-1], [200, 100]);
 my $panel = Wx::Panel->new( $frame, -1);
    $panel->{button} = Wx::Button->new( $panel, 1, " Drück mich ",  [50,20]);
    EVT_BUTTON($panel, $panel->{button}, sub {$self->Close(1);});
    $self->SetTopWindow($frame);
    $frame->Show(1);
}

# Hauptprogramm

package main;

my $wxobj = ButtonClass->new();
$wxobj->MainLoop;