Création d ’un cadre et insertion de widgets dans ce cadre

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

-fill => 'x');

$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);

$cadre->Button(-text => "load", -command => sub {&lire_fic})->pack(-side => 'left', -anchor => 'e');

Diapositive précédente

Diapositive suivante

Revenir à la première diapositive

Afficher la version graphique