#!/usr/bin/perl

use Tk;

@parts = ("11111", "22222", "33333", "44444", "55555");
@labels = ();
@entries = ();
@add_boxes = ();

$main = new MainWindow;

$i = 0;
$k = 0;
while ($parts[$i]) {
	$labels[$i] = $main->Label(-text => "$parts[$i]")->grid(-column => '0', -row => $k);
	$entries[$i] = $main->Entry(-background => 'white', -width => 8)->grid(-column => '1', -row => $k);
	$entries[$i]->insert('end', '0');
	$add_boxes[$i] = $main->Entry(-background => 'white', -width => 8)->grid(-column => '2', -row => $k);
	$add_boxes[$i]->bind("<Return>", sub {   		
					$currentqty = $entries[$i]->get;
					$addqty = $add_boxes[$i]->get;
					$resultqty = $currentqty + $addqty;
					$entries[$i]->delete('0.0', 'end');
					$add_boxes[$i]->delete('0.0', 'end');
					$entries[$i]->insert('end', $resultqty);
					$main->update });
	$i++;
	$k++;
}

MainLoop;