Diapositive PPT
$cadre->Button(-text => "load",
-command => sub {&lire_fic})->pack(-side => 'left',
$texte = $mw->Scrolled("Text")->pack(-side => 'bottom',
$texte->Text(-setgrid => 'true');
$w_string = $mw->Frame()->pack(-side => 'top', -fill => 'x');
$w_string_label = $w_string->Label(-text => 'Search string:', -width => 13, -anchor => 'w');
$w_string_entry = $w_string->Entry(-textvariable => \$search_string);
$w_string_button = $w_string->Button(-text => 'Highlight');
$w_string_label->pack(-side => 'left');
$w_string_entry->pack(-side => 'left');
$w_string_button->pack(-side => 'left', -pady => 5, -padx => 10);
$w_string->pack(-side => 'top', -fill => 'x');
$w_string_button->configure(-command => [sub {&text_search($texte, $search_string, 'search')}, $texte]);
$w_string_entry->bind('<Return>' => [sub {shift; &text_search($texte, $search_string, 'search')}, $texte]);
$w_string->pack(-side => 'top', -fill => 'x');