# Page 5 #------------------ extraction de patron ---------------------------------------------------------- $editorpatron = $page5->Scrolled("Text")->pack(-side => 'bottom', -fill => 'both', -expand => 1); $editorpatron->Text(-setgrid => 'true'); my $patron=$page5->Button(-text => "Lancer l'extraction de patrons NOM-ADJ",-background=>'#BFBFBF',-foreground=>'brown',-relief => 'raised',-command =>sub{loadextractpattern();})->pack(-side => 'top', -anchor => 'n', -expand => 0 );