sub initDialog
{
	my $dlg = shift;
	
	#Configure the dialog's title
	$dlg->configure(-title=>'default');
	
	for ('B_0','B_1')
	{
		#Set button text to default
		$dlg->Subwidget($_)->configure(-text=>'default') ;
		
		#Unpack the widget (safety net)
		$dlg->Subwidget($_)->packForget();
	}
	
	#Repack the widgets
	$dlg->Subwidget('B_0')->pack(-side  =>'right',
	                             -expand=>1);
	$dlg->Subwidget('B_1')->pack(-side  =>'left',
	                             -expand=>1);
	
	return;
}
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);
     
        $list->configure(-height=>1,-width=>1);
	
	#Unbind the double click binding
	$list->bind('<Double-1>','');
	
	return;
}