[...]
        foreach my $c (1 .. $cols) {
            my $old = $self->get( $r, $c );
            next unless $old;
            $self->LostSlave($old);
            $old->destroy;
        }
[...]

sub Tk::Table::raze_row {
    my( $self, $row ) = @_;
    
    for my $col ( 1 .. $self->cget('-columns') ) {
        if ( my $w = $self->get( $row, $col ) ) {
            $self->LostSlave($w);
            $w->destroy;
        } # if
    } # for
} # Tk::Table::raze_row

$table->raze_row(3); # dritte zeile löschen