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 } );
Partager