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