#!/usr/local/bin/perl5 -w # Use Perl 5 with warnings

# Simple TableMatrix Bug Example
# Using ActiveState Perl v5.6.1
# Build 628 

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

my $main = new MainWindow;
my $table = $main->TableMatrix()->pack( -side => 'top' );

# Description of the "spans" method from http://www.perldoc.com/cpan/TableMatrix.html
# $table->spans(?index?, ?rows,cols, index, rows,cols, ...?) 

#$table->spans("0,8", "9,0"); 	# Works fine. Cell 0,8 spans down 10 rows of the table.
#$table->spans("0,9", "8,0"); 	# Works fine.  Cell 0,9 spans down 9 rows of the table.
$table->spans("0,9", "9,0"); 	# Table breaks.  Last row and column disappear.

MainLoop;