# Page 2
#------------------ editeur dico ----------------------------------------------------------------------------

my $cadreDico=$page2->Frame(-borderwidth => '0', -relief => 'groove')->pack(-side => 'top', -fill => 'both',-expand=>1);
$cadreDico->configure(-background => 'white');

my $dicoG=$cadreDico->Frame(-borderwidth => '0', -relief => 'groove')->pack(-side => 'top', -fill => 'both',-expand=>0);
$dicoG->configure(-background => 'white');
my $dicoD=$cadreDico->Frame(-borderwidth => '0', -relief => 'groove')->pack(-side => 'left', -fill => 'both',-expand=>1);
$dicoD->configure(-background => 'white');
my $conc=$dicoG->Button(-text => "Lancer la Concordance",-background=>'#BFBFBF', -foreground=>'brown',-command => sub {&concor})->pack( -side => 'top',-padx => 5,-pady=>5);
 $balloon->attach($conc, -balloonmsg => "Lance la concordance ",  
   -statusmsg => "permet de demarrer une concordance");

   
   
   $group = 1; 
foreach (qw/Concordance-Version1 Concordance-Version2/) {
	$dicoG->Radiobutton(-text =>  $_, -variable => \$group, 
		-value => $_)->pack(-anchor => 'w',-side => 'top', -fill => 'both',-expand=>'0');
}
		
$dicodesformes = $dicoD->Scrolled("SMListbox",
				      -background => 'white',
				      -foreground => 'brown',
				      -textwidth => 2,
				      -highlightthickness => 2,
				      -width => 0,
				      -scrollbars => 'osoe',
				      -selectmode => 'extended',
				      -separatorcolor=>'black',
				      -separatorwidth=>2,
				      -resizeable => 1,
				      -scrollbars=>'se',
				      -columns=>[
						 [-text=> 'Forme',     
						  -textwidth => 90, 
						  -fg => 'black', 
						  -bg => '#DDDDDD',
						  -comparecmd => sub {$_[0] cmp $_[1]}
						  ],
						 [-text => 'Fréquences',
						  -textwidth => 60,
						  -fg => 'black', 
						  -bg => '#DDDDDD',
						  -comparecmd => sub {$_[0] <=> $_[1]}
						  ]
						 ]
				      )->pack(-side => 'top',
					      -expand => 'yes',
					      -fill =>'both',
					      -padx => 0,
					      -pady => 0
					      );
$dicodesformes->columnGet(0)->Subwidget("heading")->configure(-background=>'#E5E5FF',-foreground=>'red',-activebackground=>'#C0C0C0');
$dicodesformes->columnGet(1)->Subwidget("heading")->configure(-background=>'#E5E5FF',-foreground=>'red',-activebackground=>'#C0C0C0');
$dicodesformes->Subwidget("xscrollbar")->configure(-elementborderwidth=>1, -borderwidth=>1,-relief=>'solid');
$dicodesformes->Subwidget("yscrollbar")->configure(-elementborderwidth=>1, -borderwidth=>1,-relief=>'solid');


$balloon->attach($dicodesformes->columnGet(0)->Subwidget("heading"), -balloonmsg => "Trie les formes", -balloonposition => 'mouse',
 
   -statusmsg => "Trie les formes par ordre alphabétique ou par orde d'apparition");
   
   $balloon->attach($dicodesformes->columnGet(1)->Subwidget("heading"), -balloonmsg => "Trie les fréqences", -balloonposition => 'mouse',
 
   -statusmsg => "Trie les fréqences dans l'ordre croissant ou décroissant");