Chapitre 3

Explication sur les fonctions complexes, tk_chooseDirectory, tk_chooseColor .

Attention il y a beaucoups d'options disponible alors n'oubliez pas la commande "man n nom_de_la_fonction_tcl_tk".

Le programme - dossier.tcl


#!/usr/bin/wish

set rep \[ tk_chooseDirectory \]
label .l -text "Dossier : $rep"
button .q -text "Quitter" -command { exit }
pack .l .q -fill both -expand 1

Explication

A la ligne 3, vous pouvez voir la fonction tk_chooseDirectory, qui permet de choisir un dossier, le résultat est placé dans la variable rep.
La ligne 4 contient le label avec comme texte une partie de texte + le contenu de la variable rep.

Aperçu



Le programme - couleur.tcl


#!/usr/bin/wish

set col \[ tk_chooseColor -initialcolor blue -title "Choix de la couleur de fond" \]
button .q -bg $col -text "Quitter" -command { exit }
pack .q -fill both -expand 1

Explication

A la ligne 3, vous pouvez voir la fonction tk_chooseColor, qui permet de choisir une couleur, le résultat est placé dans la variable col.
La ligne 4 crée un bouton avec comme couleur de fond la couleur que l'on vient de choisir.

Aperçu