#!C:/perl/bin/perl.exe

use strict;
use warnings;
use Tk;
use Tk::TableMatrix;
use Tk::TableMatrix::Spreadsheet;

my $top = MainWindow->new;

my $arrayVar = {};

print "Filling Array...\n";
my ($rows,$cols) = (40000, 10);

foreach my $row  (0..($rows-1)){
    foreach my $col (0..($cols-1)){
        $arrayVar->{"$row,$col"} = "$row,$col";
    }
}

print "Creating Table...\n";
sub colSub{
    my $col = shift;
    return "OddCol" if( $col > 0 && $col%2) ;
}

my $label = $top->Label(-text => "TableMatrix v2 Example");

my $t = $top->Scrolled('Spreadsheet', 
		-rows => $rows, 
		-cols => $cols,
                -width => 6, 
		-height => 12,
		-titlerows => 1, 
		-titlecols => 1,
		-variable => $arrayVar,
		-coltagcommand => \&colSub,
		-colstretchmode => 'last',
		-flashmode => 1,
		-flashtime => 2,
		-wrap=>1,
		-rowstretchmode => 'last',
		-selectmode => 'extended',
		-selecttype=>'cell',
		-selecttitles => 0,
		-drawmode => 'slow',
		-scrollbars=>'se',
		-sparsearray=>0
                );

my $button = $top->Button( -text => "Exit", -command => sub{
$top->destroy});

my $i = -1;

$top->fontCreate('courier', -family => 'courier', -size => 10);
$t->tagConfigure('s', -font => 'courier', -justify => 'center');

$t->colWidth( -2 => 8, -1 => 9, 0=> 12,  4=> 14);

$label->pack( -expand => 1, -fill => 'both');

$t->pack(-expand => 1, -fill => 'both');
$button->pack(-expand => 1, -fill => 'x');

Tk::MainLoop;