in reply to Re^2: Problem in row deletion with Tk::Table
in thread Problem in row deletion with Tk::Table

I had a look at csgrouper.pl, sorry, that is way too much code (7k lines). Here is the idea 
#!/usr/bin/perl --
use strict;
use warnings;
use Tk;
my $mw = tkinit;
my $Section_tblw = $mw->Table(
...
20 lines or less
MainLoop;

[download]

If you can get it down to 20 lines + boilerplate, we might make some progress

Replies are listed 'Best First'.
Re^4: Problem in row deletion with Tk::Table
by emilbarton (Scribe) on Aug 30, 2013 at 08:40 UTC
    Here's your standalone:
    UPDATE: using choroba's solution in Table constructor, doesn't change the issue.
    Read more... (7 kB)
[reply]
[d/l]
      You seem to not define the number of rows for the table, so it defaults to 10. If you call clear, only the first 10 lines are deleted. Add
      -rows => 100

      [download]

      to the table constructor parameters and everything works.

      BTW, you can chomp @vals and push @rows, \@vals.

      لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]
[select]
        Thanks for the tips, but regarding the table your solution doesn't help. It behaves exactly the same whether I set rows => 100 or not. Anyway I was only testing within the first 10 rows.
[reply]

      :) Ignoring all the issues with your code with short-circuit 

      sub section_del {
    return $Section_tblw->clear;

      [download]
      looks like Tk::Table is not deleting checkboxes

      so I replace that with  return my_clear( $Section_tblw ); and one or three dd-Dumper-ings later, its an off-by-one error in clear 

      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

      [download]

      I imagine the OBO error migt stem because at one point the first column in each row might have been a counter (nth row) ...

[reply]
[d/l]
[select]
        Great, this is it! I'll try updating Tk::Table too. Many thanks!
[reply]
        hmm, considering chorobas comment, maybe the row/col start indexes in clear ought to consider -fixedrows / -fixedcolumns

        but, I really don't know my way around Tk::Table :) so I've no idea what it/clear should actually do

[reply]

In Section Seekers of Perl Wisdom