#!/usr/bin/perl -w
use strict;

use Tk;
use Tk::TableMatrix::Spreadsheet;
  
my %hash;

my $mw = MainWindow -> new;
$mw -> title ("Just Some Demo");
  
$mw ->Button(-text => "Quit!",
	     -command => sub {exit} ) ->pack;
  
my $top = $mw->Scrolled('Spreadsheet', 
                              -rows          => 21, 
                              -cols          => 11,
                              -width         => 6, 
                              -height        => 12,
                              -titlerows     => 1, 
                              -titlecols     => 0,
                              -variable      => \%hash,
                              -selectmode    => 'single', 
                              -resizeborders => 'both',
                              -bg            => 'white',
                          )->pack(-expand =>1, -fill=>'both');
$hash{"0,1"}="xyzzy";
$hash{"2,3"}="coord:2,3";
                          
MainLoop;