Diapositive PPT

#/usr/local/bin

use Tk;

$mw= MainWindow->new;

$mw->title("Recherche avec Expressions régulières");

$cadre = $mw->Frame->pack(-side => 'top',

-fill => 'x');

$b_menu=$cadre->Menubutton(-text => "File",

-tearoff => 0,

-relief => 'ridge',

-menuitems => [['command' => "load",

-command => \&lire_fic],

['command' => "Save",

-command => \&sauve_fic],

['command' => "Search",

-command => \&search_in_fic],

['command' => "Exit",

-command => sub {exit;}]])->pack(-side => 'left');

$cadre->Label(-text => "File : ",

-relief => 'raised')->pack(-side => 'left',

-anchor => 'w');

$cadre->Entry(-textvariable => \$nom_fic)->pack(-side => 'left',

-anchor => 'w',

-fill => 'x',

-expand => 1);