Chapitre 3
La curiosité n’est pas un vilain défaut mais une qualité fondamentale.
Explication sur les fonctions complexes, tk_chooseDirectory, tk_chooseColor .
Etant donné qu'il y a beaucoup d'options disponibles, 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