Discussion :

[yoann53]

Bonjour le forum.

Encore une question suite à un problème sur mon code !!!

je ne pourrais pas dire que ce forum est inutile

voilà mon souci.

J'ai créé une interface avec des grid (pour moi c'était plus pratique car l'affichage en mode ligne / colonne me convenait).

Bon mais voilà que je dois ajouter des boutons avec menu en cascade.

Mon menu cascade, tout seul, fonctionne.
Mon programme avec les grid fonctionne aussi mais quand je veux ajouter le code du menubutton dans mon prog je suis perdu.

Je n'arrive pas a afficher un menu avec des grid et si j'utilise pack, mon programme plante et impossible de le fermer.

Je vais essayer de mettre mon code, donc :


if {$perso_ok == 1} {
set taille [llength $list_perso]
set comparaison ""
menubutton .mb5 -text "Personnel" -menu .mb5.menu
set m [menu .mb5.menu -tearoff 0]

for { set j 0 } { $j < $taille } { incr j 1 } {
if {[lindex $list_perso $j] != $comparaison} {
$m add cascade -label [lindex $list_perso $j] -menu $m.$j
set m2 [menu $m.$j -tearoff 0]
set comparaison [lindex $list_perso $j]
}
set k $j
incr j
$m2 add command -label [lindex $list_perso $j] -command [list load_program [lindex $list_perso $k] [lindex $list_perso $j]]
}

avec ces lignes de codes, je crée un menu cascade avec des informations provenant d'une liste (contenant le chemin et le nom du fichier).

mon affichage des objets se fait par exemple comme ceci :

button .bouton_scanner -text $_bouton_scanner -command {gestion_scanner}

grid .bouton_scanner -column 1 -row 5

l'idée était d'afficher le menu cascade comme un bouton si je l'affiche avec un grid, un bouton "Personnel s'affiche mais le menu cascade ne fonctionne pas.

Si j'essaie d'utiliser pack (qui semble souvent utilisé pour les menus d'après mes différentes lectures) ça plante.

Je n'utilise pas de frame mais juste des grid, c'est peut-être un souci ?

Merci d'avance pour votre aide.

J'espère que ma question n'est pas trop flou !!!

Bonne journée.

Yoann

[Invité]

Bonjour,

Tu dois avoir un petit problème dans ton code. Le code suivant marche chez moi et fait ce que tu veux :

Code :

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

1
2
3
4
5
6
7
8
9
package require Tk
menubutton .mb5 -text "Personnel" -menu .mb5.menu
set m [menu .mb5.menu -tearoff 0]
grid .mb5 -column 1 -row 5
for {set j 0} {$j < 20} {incr j} {
	set m2 [menu $m.$j -tearoff 0]
	$m2 add command -label "Commande n°$j" -command [list puts "Commande $m2 : $j"]
	$m add cascade -label "Cascade n°$j" -menu $m2
}

Regarde bien ton code, tu dois avoir une petite erreur quelque part.

[yoann53]

En effet, mon code est bon

J'avais mal passé une variable et ma liste était vide c'est pour cela que je voyais mon bouton mais qu'il n'y avait pas de reste.

Merci.

J'ai encore beaucoup à apprendre ..... Tout même

Encore merci.

Yoann