#--------------------------------------------Treetagger----------------------------------------------------------
# Page 4

my $tritag=$page4->Button(-text => 'Lancer treetagger',-background=>'#BFBFBF',-foreground=>'brown',-relief => 'raised',-command =>sub{loadtreetagger();})->pack(-side => 'top',
						  -anchor => 'n',
						  -expand => 0
						 );	
						 
	$balloon->attach($tritag, -balloonmsg => "Lancer treetagger",  
   -statusmsg => "Permet de lancer un étiquetage grammatical du texte");					 
						 
						 
$editortreetagger = $page4->Scrolled("Text")->pack(-side => 'bottom',
				      -fill => 'both',
				      -expand => 1);
$editortreetagger->Text(-setgrid => 'true');