bad table index "0": must be active, anchor, end, origin, topleft, bottomright, @x,y, or <row>,<col> at /usr/lib/perl5/Tk.pm line 247./code>

##</code><code>##


use strict;
use warnings;
use Tk;
use Tk::BrowseEntry;
use Tk::TableMatrix;
use Data::Dumper qw( DumperX);
my $top = MainWindow->new;
my $stuff = {};
my $tg = $top->Scrolled(
	'TableMatrix', 
	-rows => 21, 
	-cols => 11, 
	-width => 10, 
	-height => 20,
	-titlerows => 1, 
	-titlecols => 1,
	-variable => $stuff,
	-selectmode => 'extended',
	-resizeborders => 'both',
	-titlerows => 1,
	-titlecols => 1,
	-bg => 'white',
)->pack(
	-expand => 1,
	-fill=>'both'
);

$tg->tagConfigure('active', -bg => 'gray90', -relief => 'sunken')					;
$tg->tagConfigure('title', -bg => 'gray85', -fg => 'black', -relief => 'sunken')	;

$top->Button(
	-text=>'modify', 
	-command=> sub {
		$stuff->{'3,3'} = 'asfasf';
	},
)->pack;
Tk::MainLoop;