#!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 $font = Wx::Font->new(  24,         	# font size
                               wxMODERN,     	# font family
                               wxNORMAL,     	# style
                               wxNORMAL,       	# weight
                               0,                  
                               'Verdana',    # face name
                               wxFONTENCODING_SYSTEM);

	my $grid = Wx::Grid->new($frame);
	
	$grid->SetLabelFont($font);
	$grid->CreateGrid(
		5,	# int 	numRows, 
		5,	# int 	numCols, 
		wxGridSelectCells	# wxGridSelectionModes 	selmode = wxGridSelectCells	
	);
	#$grid->AutoSize(); # auto adjust width & height of all cells
	$grid->AutoSizeRowLabelSize($_) for( 0 .. $grid->GetNumberCols() ); # adjust height of rows 1-5
	
	foreach my $x ( 0 .. $grid->GetNumberRows() ) {
		foreach my $y ( 0 .. $grid->GetNumberCols() ) {
			$grid->SetCellFont(
				$x,	# int 	row, 
				$y,	# int 	col, 
				$font	# const wxFont & 	font	
			);
		}
	}
	
    $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);