First off - many thanks to all who have already helped iron out the bugs in what was supposed to be a simple programming project.
Next up: I want to populate the rest of the table created by
#Geometry Management my $table = $mw->Frame (); my $lab4 = $mw->Label( -text => "Year" )->pack(); my $mpy_0 = $mw->Entry( -width => 5, -textvariable => \$mpy0 )->pack() +; my $lab5 = $mw->Label( -text => "Momentary\nPop. Est." )->pack(); my $mpe_0 = $mw->Entry( -width => 5, -textvariable => \$mpe0 )->pack() +; $lab4 -> grid(-row=>1,-column=>1, -in => $table); $lab5 -> grid(-row=>1,-column=>2, -in => $table); $mpy_0 -> grid(-row=>2,-column=>1, -in => $table); $mpe_0 -> grid(-row=>2,-column=>2, -in => $table); foreach my $b (0 .. $LST-1){ print $mpy_mpe[$b]; } $table->pack ();
$LST is an imported integer. @mpy_mpe has already been opened and contains
(Basically each line contains the code for both the $mpe and $mpy widgets since they go together.)my $mpy_1 = $mw->Entry( -width => 5, -textvariable => \$mpy1 )->pack() +;\n$mpy_1 -> grid(-row=>3,-column=>1, -in => $table)\n;my $mpe_1 = $m +w->Entry( -width => 5, -textvariable => \$mpe1 )->pack();\n$mpe_1 -> +grid(-row=>3,-column=>2, -in => $table)\n; my $mpy_2 = $mw->Entry( -width => 5, -textvariable => \$mpy2 )->pack() +;\n$mpy_2 -> grid(-row=>4,-column=>1, -in => $table)\n;my $mpe_2 = $m +w->Entry( -width => 5, -textvariable => \$mpe2 )->pack();\n$mpe_2 -> +grid(-row=>4,-column=>2, -in => $table)\n;
I'm sure it's a simple step I'm missing but
only prints to the DOS window, not to MainWindow.foreach my $b (0 .. $LST-1){ print $mpy_mpe[$b]; }
Needless to say, it doesn't do much good in the DOS window.
In reply to One More bit of Perl/Tk Confusion by Dandello
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |