Select Code to Download

sub section_del {
    return $Section_tblw->clear;

sub my_clear {
    my $self = shift;
    my $rows = $self->cget( -rows );
...
    $self->_init;
    $self->QueueLayout( Tk::Table::_SlaveSize() );
} ## end sub my_clear