Discussion :

[Paulinn]

Salut, j'ai appuyé sur un bouton et provoqué un ralentissement énorme de mon PC ; bien sûr il y a une procédure mais ce n'est pas la première fois que ça m'arrive !

Voici mon code : (je n'ai pas mis le bouton, je n'ai mis que les procédures)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
proc diff {} {
toplevel .top
label .top.lb1 -text "Choisissez votre difficulté :" -font bold
label .top.lb1f -text "Facile : 0-50" -font bold
label .top.lb1n -text "(Par default) Normale : 0-100" -font bold
label .top.lb1d -text "Difficile : 0-500" -font bold
pack .top.lb1 .top.lb1f .top.lb1n .top.lb1d
foreach j {difficile normale facile} {
	radiobutton .top.$j -text $j -command $j -value $j -font bold
	grid .top.$j -sticky w
}
}
 
proc difficile {} {
	global nbdc
	global alea
	incr nbdc -$nbdc
	.nbdc configure -text "Nombre de coups : $nbdc"
	unset alea
	set alea [expr int(rand() * 500) + 1]
}
proc normale {} {
	global nbdc
	global alea
	incr nbdc -$nbdc
	.nbdc configure -text "Nombre de coups : $nbdc"
	unset alea
	set alea [expr int(rand() * 100) + 1]
}
proc facile {} {
	global nbdc
	global alea
	incr nbdc -$nbdc
	.nbdc configure -text "Nombre de coups : $nbdc"
	unset alea
	set alea [expr int(rand() * 50) + 1]
}

[Canvas]

Bonsoir,

Dans la procédure diff il y a deux conflits avec les différents widgets:

- D'abord 4 label sont placés avec le gestionnaire de géométrie pack.
(jusque là pas de problème)

- Ensuite, dans la boucle foreach, les 3 radiobutton sont placés sur la même ligne. Cela engendre un conflit dans la pile de données des widgets. Autrement dit, il faudrait changer de ligne avec grid (-row) dans la boucle foreach.

- Finalement, le dernier problème est que les radiobutton viennent se placer sur les label. Cela engendre aussi un conflit.
Si l'on veut utiliser les gestionnaires de géométrie pack et grid en même temps, il vaut mieux choisir par exemple deux frame pour placer les widgets.

Voici une autre solution possible uniquement avec grid :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
proc diff {
 toplevel .top
 
 label .top.lb1 -text "Choisissez votre difficulté :" -font bold
 label .top.lb2 -text "Facile : 0-50" -font bold
 label .top.lb3 -text "(Par default) Normale : 0-100" -font bold
 label .top.lb4 -text "Difficile : 0-500" -font bold
 set i 0
 foreach lb [winfo children .top] {grid $lb -sticky w -row [incr i]}
 foreach j {difficile normale facile} {
	radiobutton .top.$j -text $j -command $j -value $j -font bold
        grid .top.$j -sticky w -row [incr i]
 }
}

----
Canvas

[Paulinn]

Merci canvas tas solution me parait un peut compliquer, elle marche, j'ai
essayer avec frame, j'ai pas réussi mais je mi mettrai plus tard.
Aussi en fin plus tard, j’essaierai avec place, je pense que sa va marcher !

Sinon je te remercie infiniment de ta réponse si sympathique !