Langage de programmation - tcl / tk (Base)

Bonjour ! me revoila avec le "tcl / tk" dans les main !!!!!!
bref, j'vous apprend !

I ) Commençons par un minuscule truc tous simple.
Le logicielle très simplisime ! "Activetcl" ICI.

II  ) Créer une application et un bouton.

Après l'avoir installer ne le démarrer pas !  Plutôt démarer le bloc note et faite  :
fichier > enregistrer sous > changer "fichier txt" par "tout les fichier" puis la ou vous devez écrire le nom du fichier mettez "le nom du fichier.tcl" ! Après gardez le bloc-notes, et mettez :

button .b -text "Fermer" -command exit
pack .b

je traduis :

button = bouton c'est pour créer un bouton.
.b = le nom du bouton, le . est obligatoire (c'est pour tout les objet graphique !) après vous mettez se que vous voulez.
- = signifie que c'est une option.
-text "Fermer" = text mettez le text du bouton, n'oublier pas les " pour que se soit pris en compte
-command exit = bas c'est pour les commande là la commande c'est exit signifie fermer. Donc la j'appuy et sa se ferme !
pack .b = pack c'est pour faire apparaitre le bouton, .b ben le nom du bouton
en gros pack le bouton .b
et pour finir sa donne sa :







III ) Changer l'aspect d'un bouton.

.b configure -background blue

Je traduis:
.b = c'est toujours le nom.
configure = ben pour configurer
-background = - vous savez, background arrière-plan
blue = la couleur bleu 
Donc ça donne :
 

IV ) Créer une action.

Proc monaction {} {
          .b configure -background red
}

L'action monaction changeras en rouge la couleur de fond du bouton.

/!\Attention/!\ Ne pas oublier les accolades. L'alinéa de la deuxième ligne n'est pas obligatoire mais il permet de mieux si retrouver.

Il existe aussi -foreground = la police d'écriture et -font = style de la police, taille, gras ou italique ou souligné. 
Et donc si je veux un arrière plan rouge je veux un police d'écriture blanche et un style Helvetica de taille 12 en gras, ça donneras sa : 

Quand on n'as pas encore cliquer :







Et quand on a cliquer :











vous pouvez aussi changer le text en mettent :

.b configuration -text "salut c'est moi"

V ) D'autre commande :

label : étiquette en anglais, pour indiquer quelque chose.

label .l -text "Bienvenue"
pack .l

Pas de commande, il peut y avoir des changement de police ...






text : Pour y mettre un texte comme open office!

text .t  
pack .t

Pas de commande, il peut y avoir des changement de police ...

 














checkbutton : Pour cocher plusieurs case en même temps, comme d'ab il y peut y avoir des changement de police ect ...

checkbutton  .c -text "oui"

pack .c 

message : Permet d'afficher une autre fenêtre et de mettre un message.
/!\il faut utiliser la commande proc/!\

proc message {} {
        tk_messageBox -title Information -icon info -type ok  -message "Salut !!"
}

 button .b -text "salut" -command message 

pack .b

/!\ATTENTION/!\ Il ne faut pas oublier la majuscule a Box dans tk_messageBox 

Dans la fenêtre Information il y a bien l'icon info, le bouton, tout est OK.
Mais il existe d'autre icon comme waring, error et d'autre (je crois).
et bien sur d'autre type que ok il y aussi yesno ou yesnocancel et d'autre (et j'en suis sur!).