use strict;
use warnings;

use Tk;
use Tk::TableMatrix;
use Data::Dump qw(pp);

my $mw = MainWindow->new;
$mw->configure(-title=> "Some Title");
$mw->geometry("1000x400+0+0"); 

my $table_frame = $mw->Frame(-height=>'10',-width=>'30',
                       -relief=>'groove',-borderwidth=>'3'
                       )->pack(-expand=>1, -fill=>'both',-pady=>'0');
my $tMain;
my @col_heads = map{"col# $_";}0..1999;
my $col =0;
foreach my $heading (@col_heads)
{
   $tMain->{"0,$col"} = "$heading";
   $tMain->{"1,$col"} = "$heading";
   $col++;
}

my $table = $table_frame->Scrolled('TableMatrix',
 -cols => scalar(@col_heads),
 -rows =>16,  #fixed number of rows for this example
# -width => 5,  #minimum width in columns to be shown
# -height => 10, #minimum number of rows to be shown - seems to limit!! not Min!
# -titlerows => 1,
 -variable => $tMain,
# -selectmode => 'single',
 -state => 'disabled',   # no direct editing of cells
 -resizeborders => 'col', 
 -bg => 'white',
# -rowheight => 2,
 -rowheight => 1,  #make row display more compact....
 -bd => [0,1,0,1],
 -justify => 'left',
 -drawmode => 'compatible',
 -wrap => 0,
 -relief => 'solid',
 -scrollbars=>'se',
 -exportselection =>0,
)->pack(-expand =>1, -fill=>'both');

$table->rowHeight(0,2);  #varies height of title row (0)
#$table->tagRow('title',0);
#$table->tagConfigure('title', -bd=>2, -relief=>'raised');

MainLoop;