sub initList
{
	my $list = shift;
	
	#Remove the list from the packing order
	$list->packForget();
	
	#Remove all elements from the list
	$list->delete('end') for(0..$list->size);
	
	
	print $list->cget('height');
	
	#Reset heigth and width
	$list->configure(-height=>1,
	                 -width =>1);
	
	#Unbind the double click binding
	$list->bind('<Double-1>','');
	
	return;
}