Bonjour,
J'ai créé un menu avec Menu.
Ca fonctionne sauf qu'il n'y a pas moyen de faire fonctionner les options (ici -relief => 'raised'). Y a t'il une solution ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
my $menubar = $mw->Menu(-relief => 'raised') ;
 
# Intégrer le menu à la fenêtre
$mw->configure( -menu => $menubar );
 
$menubar->command( -label => 'Lister', -command => [ \&lister ]);
$menubar->command( -label => 'Ajouter', -command => [ \&ajouter ]);
$menubar->command( -label => 'Quitter', -command => sub {$mw->destroy } );