Bonjour,

1-) INTRODUCTION
Aujourd'hui ce tutoriel aura 4 grands principes de la bibliothèque tk à savoir :

A) L'utilisation d'une Entry (boite de saisie de texte)
B) L'évènement 'Clic gauche' d'un bouton.
C) La création et l"exécution d'une procédure.
D) Utilisation du pack manager pour organiser la fenêtre.


2-) CAHIER DES CHARGES

Je souhaite réaliser une application avec une boite de saisie et un bouton, le tout dans une fenêtre.
Je saisie dans la boite de texte monprénom et en cliquant sur le bouton, notre programme va afficher dans la boite de saisie :
"Bonjour monprénom".

3-) REALISATION PRATIQUE
a) Je crée d'abord un label dans lequel je renseigne le texte : "Saisissez votre nom:"
par cette ligne de commande :

label .lab -text "Saisissez votre nom:"

b) je crée une boite de saisie de texte (appelée ENTRY) comme ceci :

entry .ent

c) Je crée mon bouton comme ceci :

button .but -text "Cliquez moi" -command "push_button"

Si j'exécute mon application maintenant, rien ne se passe. Pourquoi? Tout simplement car je n'ai pas dit à tcltk comment organiser mes éléments d'interface (bouton, entry,label).

d) j'organise les éléments en demandant leur affichage par la commande pack comme ceci:

pack .lab
pack .ent
pack .but

e) Mon interface étant maintenant terminée, il faut que je m'occupe du clic sur le bouton. Dans le petit c, l'option

-command "push_button"

est importante. Elle veut simplement dire quand je clique gauche sur le bouton, exécute la procédure push_button.

f) Créons la procédure comme ceci :

proc push_button {} {
	.ent insert 0 "Bonjour "
}

Pour détailler l'ensemble de cette procédure

proc : défini qu'il s'agit d'une procédure.
{} : crochets vides dans lequel nous pourrions passer des paramètres.
{ : Ouverture du code de la procédure
.ent insert 0 "Bonjour " : Insère à l'emplacement 0, c'est à dire au début de l'entry nommée .ent le mot "Bonjour "

4-) CONCLUSION
Voici le code complet de l'application, ce tutoriel aide à la compréhension du petit bout de code proposé par Binny V A que je remercie.

Voici le comde complet de l'application :
# Author : Binny V A
# Website: http://www.geocities.com/binnyva
# E-Mail : binnyva@hotmail.com
# Get more Tcl/Tk scripts from http://www.geocities.com/binnyva/code/tcl
# Made for Tcl/Tk Tutorial at http://www.geocities.com/binnyva/code/tcl/tutorial/

proc push_button {} {
	.ent insert 0 "Bonjour "
}
label .lab -text "Saisissez votre nom:"
entry .ent
button .but -text "Cliquez moi" -command "push_button"
pack .lab
pack .ent
pack .but


5- FICHIER SOURCE A TELECHARGER
Voici le fichier source de cette application.

Voilà pour aujourd'hui, merci pour votre attention.
;-)