sub my_clear {
    my $self = shift;
    my $rows = $self->cget( -rows );
    my $cols = $self->cget( -columns );
## 1st row is labels
    foreach my $r ( 1 .. $rows ) {
#~         foreach my $c ( 1 .. $cols ) {
## 1st column is 1st column
        foreach my $c ( 0 .. $cols ) {
            my $old = $self->get( $r, $c );
            next unless $old;
            $self->LostSlave( $old );
            $old->destroy;
        }
    }
    $self->_init;
    $self->QueueLayout( Tk::Table::_SlaveSize() );
} ## end sub my_clear