my $pageValidation = $fenetre3->new_ttk__frame(-padding => "20 30 5 5");
$pageValidation->g_grid(-column => 0, -row => 0, -sticky => "news");
$pageValidation->configure(-height => 300, -width => 300);


my $logcontent;
my $logfrm = $pageValidation->new_ttk__frame(-padding => "5 5 5 5");
$logfrm->g_grid(-column => 1, -row => 1, -sticky => "news");
$logfrm->configure(-borderwidth => 2, -relief => "sunken", -height => 300, -width => 605);

$logfrm->g_grid_propagate(0);

my $loglbl = $logfrm->new_ttk__label(-textvariable => \$logcontent, -wraplength=>590);
$loglbl->g_grid( -column => 0, -row => 0, -sticky => "new",-padx=>0, -pady=>0, );
$loglbl->configure(-width=>98,);

my $s = $pageValidation->new_ttk__scrollbar(-orient => 'vertical', -command => [$logfrm, 'yview']);
$logfrm->configure(-yscrollcommand => [$s, 'set']);

my $boutConfirmation  = $pageValidation->new_ttk__button( -text => "Lancer Conversion", -command => sub {lancerApplication(\$logcontent,\%generaloptions)});
$boutConfirmation->g_grid( -column => 1, -row => 3, -sticky => "sw", -pady => 7);

sub lancerApplication{
  my %generaloptions = %{$_[1]};
  my $optionsfile='generalOptions.txt';
  my $paramsfile='parametersForTEICorpus.txt';
  my $refgeneraloptions= \%generaloptions;
  if ($generaloptions{'externaloptions'}){
    $optionsfile=$generaloptions{'filename'};
  }
  else{
    ecrireoptgen ($_[1]);
  }
  &ma_fonction::main($optionsfile,$paramsfile,\$_[0]);
}