use strict;
use warnings;


package ServusWelt;
use Wx;                                     # Wx einbinden
use base qw(Wx::App);                       # von Wx::App ableiten
use Wx::Perl::VirtualTreeCtrl 'EVT_TREE_ITEM_EXPANDING';


sub OnInit {
 my $app = shift;
 my $frame = Wx::Frame->new( undef,         # kein Eltern-Fenster
                             -1,            # Fenter id
                             'Servus Welt', # Titel
                             [-1, -1],      # Position x/y
                             [150, 150]     # Größe x/y
                           );
    $app->SetTopWindow($frame);             # Fenster als oberstes bestimmen
    $frame->Show(1);                        # Fenster zeichnen
}


package main;


ServusWelt->new->MainLoop;                # Programminstanz erzeugen und starten