Select Code to Download

#Geometry Management
my $table = $mw->Frame ();
my $lab4 = $mw->Label( -text => "Year" )->pack();
...
    print $mpy_mpe[$b];
}
$table->pack ();

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;

foreach my $b (0 .. $LST-1){
    print $mpy_mpe[$b];
}