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

##</code><code>##

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


my $mw = MainWindow->new;

my $tm = $mw->Scrolled('TableMatrix', 
		-rows => 5, 
		-cols => 10,
        -width => 5, 
		-height => 12,
		-selecttitles => 0,
		-bg=>'yellow',
		-drawmode => 'slow',
                )->pack(-expand => 1, -fill => 'both');
				

$tm->activate("topleft");
#$tm->selectionSet("2,3");				

MainLoop;