Re: Updating table in the canvas

[arnaud99]

Hi,

I have not played with Perl Tk in a while, but one thing strikes me as missing in your push_button sub. Consider updating it with the code that fills the table

Hopefully this can give you a starting point to populate the table

.
.
.
my $tf2= $frame2->Entry(-width=>8,-bg=>'white')->pack(-side=>'left',-p
+ady=>3);
my $frame3= $canvas2->Frame(-relief=>'groove',-borderwidth=>3, -bg=>'b
+lue')->pack(-side=>'top',-fill=>'x');
my $btn3= $frame3->Button(-text=>"Enter", -command =>\&push_button)->p
+ack();


sub push_button {
    $rows= $tf1->get();
    $columns= $tf2->get();

    print "I have been summoned\n";
    
    #move this here, Filling the table according to rows and columns
    for(my $row=0;$row<$rows;$row++)
    {
        print "$row\n";

        for(my $column=0;$column<$columns;$column++)
        {
            print "\t$column\n";
            my $label=$canvas1->Label(
                -text=>"$row $column",
                -height=>2,-width=>10,
                -relief=>"raised",
                -background=>'white');

            $table->put($row,$column,$label);
        }
    }
}

MainLoop;