Add these 2 buttons. If your user dosn't like it, tell him to close the program and start over feeding it the right rows and cols. These are easily answered questions if you just read the documentation. You are going to have to start learning to fish for yourself, I'm not going to write all your code for you. Read "perldoc Tk::TableMatrix", and search groups.google.com for things like "perl Tk TableMatrix".

Also search for things like "Perl Tk::Dialog" so you can ask your users for settings, while the program is running.

If you want to change the rows/cols in one fell swoop, pop a dialog, asking for the desired rows/cols, then packForget the TableMatrix, use configure on it to set the new rows/cols, then pack it again.

$bf->Button(-text=> 'del column',
             -command=>sub{$t->packPropagate(1);
                           $t->deleteCols(0,1);
                       $mw->update;
                       },
             )->pack(-side => 'left');

$bf->Button(-text=> 'del row',
             -command=>sub{$t->packPropagate(1);
                           $t->deleteRows(0,1);
                           $mw->update;
                       },
             )->pack(-side => 'right');
[download]