Oberbee has asked for the wisdom of the Perl Monks concerning the following question:
Hello Monks
I need to create a table of widgets to display records from a database. The records will be chosen later in the program. The problem is identifying the individual widgets sdo I can insert information.Here is my code for that section:
for ($j = 1; $j < 7; $j++) { my $frame = $mf->Frame(-background => 'alice blue', -padx => 2 +0, -pady => 5) ->pack(-expand => 1, -fill => 'both', -side => 'top'); $frame->Label(-text => $meals[$j-1], -background => 'alice blue', -width => 9) ->pack(-side => 'left'); $frame->Text(-height => 6, -background => 'white', -width => 25) ->pack(-side => 'left'); for ($i = 2; $i < 9; $i++) { if ($c <= 6) {++$c;} else {$c = 1;} my $id = "\$f" . $j . $c; # Create identifier $id = $frame->Text(-height => 6, -background => 'white', -width => 10) ->pack(-side => 'left'); } #end for $i } # End for $j
This renders the widgets beautifully, just the way I want them. The problem comes here:
$f22->insert('end', 'R2, C4');Which results in this error: Can't call method "insert" on an undefined value.
Can I use a variable to identify the widgets? If not is there a work around? I have looked at Tk::Table but it doesn't work well for my needs.
Desperate for help. Thanks
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Asssigning widget identifier
by tybalt89 (Monsignor) on Sep 24, 2018 at 17:01 UTC | |
by bliako (Abbot) on Sep 24, 2018 at 17:14 UTC | |
|
Re: Asssigning widget identifier
by bliako (Abbot) on Sep 24, 2018 at 17:22 UTC | |
|
Re: Asssigning widget identifier
by bliako (Abbot) on Sep 24, 2018 at 16:54 UTC | |
|
Re: Asssigning widget identifier
by Oberbee (Novice) on Sep 24, 2018 at 19:35 UTC |