Options d'items de Menu

Version imprimable

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:

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

03/04/2010, 21h18
nibroc

Bonjour,
'raised' est l'option par défaut, donc cela ne change rien de le spécifier, essaie de mettre 'flat' ou 'groove' ou 'ridge' ou encore 'sunken' pour voir s'il ça provoque une différence.
Nibroc

Citation:

Envoyé par devel360

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 ?

Ma question exacte est la suivante : aucune option de menu (peu importe l'option) ne semble prise en compte dans le cas ou l'on utilise $mw->configure :

Exemple :
Code:

1 2 3 4 5 6 7 8 9 my $menubar = $mw->Menu(-relief => 'solid', -borderwidth => '2' , -background => 'red', -activebackground => 'blue') ; # 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 } );
Résultat : Ni couleur, ni bordure !!

Par contre si l'on utilise la méthode post , dans ce cas le rendu fonctionne comme attendu (sauf que le menu dans ce cas est plus difficile à positionner et qu'il s'affiche en vertical) :
Code:

1 2 3 4 5 6 7 8 9 10 11 my $menubar = $mw->Menu(-relief => 'solid', -borderwidth => '2' , -background => 'red', -activebackground => 'blue') ; # 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 } ); $menubar->post(100,60) ;
Ma question est : si je souhaite utiliser configure, y a t'il un moyen pour faire fonctionner les options ?

Merci par avance.