#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 ();


##</code><code>##

my $mpy_1 = $mw->Entry( -width => 5, -textvariable => \$mpy1 )->pack();\n$mpy_1 -> grid(-row=>3,-column=>1, -in => $table)\n;my $mpe_1 = $mw->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 = $mw->Entry( -width => 5, -textvariable => \$mpe2 )->pack();\n$mpe_2 -> grid(-row=>4,-column=>2, -in => $table)\n;


##</code><code>##

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