#!perl

package MyApp;

use strict;
use warnings;
use Wx qw/:everything/;
use Wx::Grid;

use base qw(Wx::App);                       # von Wx::App ableiten  

sub OnInit {
    my $app =  shift ;
    my $frame = Wx::Frame->new(
                              undef,        # kein Eltern-Fenster
                              -1,           # Fenter id
                              'Wx::Grid',       # Titel
                              [-1, -1],     # Position x/y
                              [640, 480]    # Größe x/y
    );
        
        my $grid = Wx::Grid->new($frame);
        $grid->CreateGrid(
                5,      # int   numRows, 
                5,      # int   numCols, 
                wxGridSelectCells       # wxGridSelectionModes  selmode = wxGridSelectCells     
        );
        
    $app->SetTopWindow($frame);              # Fenster als oberstes bestimmen
    $frame->Show(1);                         # Fenster zeichnen
    1;
}

1; # /MyApp


package main;

use strict;
use warnings;

MyApp->new->MainLoop();

exit(0);