#------------------------------------fichier textes--------------------------------------------------
sub lire_File {
    my $types=[
	       ['Text Files', ['.txt', '.dic', '.par']],
	       ['All Files', ['.*']] 
	       ];
    
    
    my $tmp_nom_source=$mw->getOpenFile(-filetypes=>$types); 
    print $tmp_nom_source,"\n";
    if ($tmp_nom_source=~/^$/) { 
	return; 	
    }
    my $texte="";
    $url=$tmp_nom_source;
    open(TMP,$tmp_nom_source);
    while(<TMP>) {
	$texte.=$_;
    }
    $editortexte->delete("1.0","end");
    $editortexte->insert("end",$texte);
    &makedico($texte);
	$onglet->raise('page1');
}