# creation de la fenetre principale
$mw= MainWindow->new;
$mw->title("Extracteur");

#---------------------------------------------------------
my $cadreMenu = $mw->Frame->pack(-side => 'top',
			  -fill => 'both',-anchor =>'w');
my $b_menu1=$cadreMenu->Menubutton(-text => "Fichier",
				  -tearoff => 0,
				  -relief => 'ridge',
				  -foreground=>'brown',
				  -menuitems => [
						 ['command' => 'Ouvrir un fichier ".txt"',
						  -command => \&lire_File],
						 ['command' => "Ouvrir une URL",
						  -command => \&lire_url],
						 ['command' => "Enregistrer l'éditeur",
						  -command => \&sauve_editor],
						 ['command' => "Sortie",
						  -command =>  sub {quitter()}]])->pack(-side => 'left');
						  

						  
my $b_menu3=$cadreMenu->Menubutton(-text => "Syntaxe",
				  -tearoff => 0,
				  -relief => 'ridge',
				  -foreground=>'brown',
				  -menuitems => [
						 ['command' => "Lancer Treetagger",
						  -command => \&loadtreetagger],
						 ['command' => "Lancer l'extraction de patrons NOM-ADJ",
						  -command => \&loadextractpattern],
						 ])->pack(-side => 'left');




my $cadre = $mw->Frame->pack(-side => 'top',-expand=>1,
			  -fill => 'both');
my $onglet=$cadre->NoteBook(-backpagecolor=> 'white',
				-background=>'white',
				-disabledforeground=>'brown',
				-foreground=>'brown', 
				-inactivebackground  => '#BFBFBF', #color for inactive tabs
				)->pack(-side=>'top',
					-expand=>1,
					-fill=>'both');

my $page1=$onglet->add("page1",-anchor=>'w',label=>'Editeur',-underline=>0);
my $page2=$onglet->add("page2",-anchor=>'w',label=>'Dictionnaire',-underline=>0);
my $page3=$onglet->add("page3",-anchor=>'w',label=>'Concordance Version1',-underline=>0);
 my $page3b=$onglet->add("page3b",-anchor=>'w',label=>'Concordance Version2',-underline=>0);
my $page4=$onglet->add("page4",-anchor=>'w',label=>'Treetagger',-underline=>0);
my $page5=$onglet->add("page5",-anchor=>'w',label=>'Extraction de patrons',-underline=>0);
my $page6=$onglet->add("page6",-anchor=>'w',label=>'Rapport sur le texte',-underline=>0);
$msgarea = $mw->Label(-textvariable => \$info,-borderwidth => 2, -relief => 'groove')
  ->pack(-side => 'top',-anchor => 'w', -fill => 'x');
 $balloon = $mw->Balloon(-statusbar => $msgarea);