Discussion :

[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 ?

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

[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

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 ?

[devel360]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.