sub delete_table_top_left
{
	$select_top_left = $listbox_top_left->curselection;
	$select_top_left = $listbox_top_left->get($select_top_left);
	$listbox_top_left->delete($listbox_top_left->curselection);	
}