Votre premier programme en Tcl/Tk

Il faut au préalable vérifier que tcl/tk est bien installé sur votre machine, pour ce faire voir le truc et astuce dédié à cela.

  • Avec votre éditeur de texte préféré tapez ou copiez ces quelques lignes:
    
    #!/usr/bin/wish
    label  .l -text "Salut tout le monde"
    button .b -text "Quitter" -command { exit }
    pack .l .b 
    
    
  • Sauvez ce nouveau fichier sous le nom de bonjour.tcl.
  • Vous prenez maintenant un terminal.
  • Et vous tapez
    $ wish chemin_du_fichier_bonjour/bonjour.tcl [enter]
  • Et vous devez obtenir une fenêtre avec le texte "Salut tout le monde" ainsi qu'un bouton "Quitter"./li>
  • Si vous cliquez sur le bouton "Quitter" le programme se termine.

Explication

Nous reviendrons sur la première ligne, mais on peut dire qu'elle va faciliter le démarrage.
Les deux suivantes vont définir les "widgets" label et button.
La troisième va positionner ces "widgets" dans la fenêtre.