#!/Perl/bin/perl


package ServusWelt;

use strict;
use warnings;

use Wx qw(
    wxDefaultPosition wxDefaultSize
    wxTE_PROCESS_TAB wxTE_MULTILINE wxHSCROLL wxTE_LEFT wxTE_DONTWRAP
);
use base qw(Wx::App);       
use Wx::Event qw( EVT_BUTTON );

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
                             [600, 300]     # Größe x/y
                           );
 
    my $text = Wx::TextCtrl->new(
        $frame,
        -1,
        "text",
        wxDefaultPosition,
        wxDefaultSize,
        wxTE_PROCESS_TAB, 
        wxTE_MULTILINE,  
        wxHSCROLL, 
        wxTE_LEFT, 
        wxTE_DONTWRAP,
    );

    $app->SetTopWindow($frame);             
    $frame->Show(1);                      
}


package main;

use strict;
use warnings;

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