Chapitre 1
La curiosité n’est pas un vilain défaut mais une qualité fondamentale.
label, button, pack, tk_setPalette
Explication des fonctions label, button, pack, tk_setPalette et des options -text, -command, -fill, -fg, -bg, -expand.
Étant donné qu'il y a beaucoup d'options disponibles, n'oubliez pas la commande "man n nom_de_la_fonction_tcl_tk".
Le programme - bonjour.tcl
#!/usr/bin/wish
label .l -text "Bonjour tout le monde"
button .bq -text "Quitter" -command { exit }
pack .l .bq
Explication
La première ligne signale au shell appelant quel programme doit être exécuté.
La seconde ligne est vide, elle permet d'aérer le programme pour une meilleure lisibilité.
La troisième ligne définit un label portant le nom .l .
La quatrième ligne définit un bouton portant le nom .bq .
La cinquième et dernière ligne positionne dans la fenêtre le label .l et le bouton .bq.
Aperçu
Le programme - label.tcl
#!/usr/bin/wish
label .l -text "Label rouge sur fond bleu ciel" -bg lightblue -fg red
button .bq -text "Quitter" -command { exit }
pack .l .bq
Explication
La ligne 3 contient deux paramètres en plus : le paramètre -bg suivi de la couleur que l'on a choisie comme couleur d'arrière-plan et le paramètre -fg suivi de la couleur pour le texte.
Aperçu
Le programme - label2.tcl
#!/usr/bin/wish
label .l -text "Label et bouton sur fond bleu ciel et texte en blanc"
button .bq -text "Quitter" -command { exit }
pack .l .bq
tk_setPalette background SkyBlue foreground white
Explication
La septième ligne définit pour toute l'application les différentes couleurs. Dans le cas présent, on va définir que l'arrière-plan va prendre la couleur SkyBlue et le texte la couleur blanche.
Aperçu
Le programme - button.tcl
#!/usr/bin/wish
button .bt -text "Alignement"
button .bq -text "Quitter" -command { exit }
pack .bt .bq -fill x
Explication
Ici, c'est l'option -fill de la ligne 5 qui va ajuster en x (largeur).
Aperçu
Le programme - button2.tcl
#!/usr/bin/wish
button .bt -text "Alignement"
button .bq -text "Quitter" -command { exit }
pack .bt -fill x
pack .bq -fill both
Explication
Ici, c'est l'option -fill de la ligne 6 qui va ajuster en x (largeur) et en y (hauteur).
Aperçu
Le programme - button3.tcl
#!/usr/bin/wish
button .bt -text "Alignement"
button .bq -text "Quitter" -command { exit }
pack .bt -fill x
pack .bq -fill y -expand 1
Explication
Ici, c'est l'option -expand de la ligne 6 qui va compléter en hauteur.
Aperçu
Le programme - button4.tcl
#!/usr/bin/wish
button .bt -text "Alignement"
button .bq -text "Quitter" -command { exit }
pack .bt -fill x
pack .bq -fill both -expand 1
Explication
Ici, c'est l'option -expand de la ligne 6 qui va compléter en largeur et en hauteur.