#!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);