$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');