Diapositive PPT
text_toggle($texte, ['configure', 'search', -background => 'SeaGreen4', -foreground => 'white'], 800,
['configure', 'search', -background => undef, -foreground => undef], 200);
text_toggle($texte, ['configure', 'search', -background => 'black', -foreground => 'white'], 800,
['configure', 'search', -background => undef, -foreground => undef], 200);
$cadre->Button(-text => "Exit",
-command => sub {exit;})->pack(-side => 'right');
$cadre->Button(-text => "Save",
-command => sub {&sauve_fic})->pack(-side => 'right',
$mw->Label(-textvariable => \$info,
-relief => 'ridge')->pack(-side => 'bottom',