#--------------------------Treetagger-----------------------------------------------------------------------------------------------------------

sub loadtreetagger {

	sub loadtreetaggerint {
    #----------------------------------------------------------------------------
    #il faut lancer la tokenisation
    my $texteentree=$editortexte->get("1.0","end");
    open(FIC,">INPUTTREETAGGER1.txt");
    print FIC $texteentree;
    close(FIC);
    system("perl tokenise-fr.pl INPUTTREETAGGER1.txt > INPUTTREETAGGER2.txt");
    #----------- on lance treetagger --------------------------------------------
    my $treetagger="INPUTTREETAGGER2.txt";
    my $treetaggerout="OUTPUTTREETAGGER1.txt";
    my $liblangue = "french.par";
    my $progname="tree-tagger.exe";
    my $commandetreetagger="$progname $liblangue -lemma -token -sgml -no-unknown \"$treetagger\" \"$treetaggerout\"" ;

    Win32::Process::Create($Win32::Process::Create::ProcessObj,
			   "tree-tagger.exe",
			   $commandetreetagger,           
			   0,                                  
			   NORMAL_PRIORITY_CLASS,
			   "."                        
			   ) 
	or                             
	die Win32::FormatMessage( Win32::GetLastError() ),"\n";
    $Win32::Process::Create::ProcessObj->Wait(INFINITE);
    #-----------------------------------------------------------------------------
    # on met au format XML
    system("perl treetagger2xml.pl OUTPUTTREETAGGER1.txt");
    #-----------------------------------------------------------------------------
    # il faut maintenant lire les résultats
    my $texte="";
    open(TMP,"OUTPUTTREETAGGER1.txt.xml");
    while(<TMP>) {
	$texte.=$_;
    }
    $editortreetagger->delete("1.0","end");
    $editortreetagger->insert("end",$texte);
	}
    $onglet->raise('page4');
}