sub AddItemToTable
{
    my ($row, $col, $item) = @_;
    $tk{table}->put($row, $col, $item);
}