Discussion :

[cmarsc]

salut,
je desire effacer l'ecran, mais les wigets affiches sont decales vers le haut de l'ecran et toujours presents

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
 
proc cadre1 {} {
 
	label .lab1 -text " je veux effacer l'ecran" -relief flat -bg white
	grid .lab1  -row 0 -column 0
 
	button .bt1 -text " afficher ecran 2" -relief raised -padx 15 -pady 15 \
			 -command { cadre2}
	grid .bt1 -row 1 -column 0
}
 
proc cadre2 {} {
	button .bt2 -text " je suis sur l'ecran 2 quitter" -relief raised -padx 15 -pady 15 \
			 -command { exit}
	grid .bt2 -row 2 -column 0
}
 
 
wm title . "comment effacer l'ecran ?"
cadre1

[nurdo]

En utilisant la fonction destroy dans la commande associer a ton bouton "afficher ecran 2" tu peux détruire les widgets dont tu ne veux plus, par exemple si tu ne veux plus du label et du bouton 1 :

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
proc cadre1 {} {
 
	label .lab1 -text " je veux effacer l'ecran" -relief flat -bg white
	grid .lab1  -row 0 -column 0
 
	button .bt1 -text " afficher ecran 2" -relief raised -padx 15 -pady 15 \
			 -command { cadre2 ; destroy .lab1 ; destroy .bt1}
	grid .bt1 -row 1 -column 0
}
 
proc cadre2 {} {
	button .bt2 -text " je suis sur l'ecran 2 quitter" -relief raised -padx 15 -pady 15 \
			 -command { exit}
	grid .bt2 -row 2 -column 0
}
 
 
wm title . "comment effacer l'ecran ?"
cadre1

[cmarsc]

thanks