Per unHello world il codice è
Semplicissimo esempio di codice:
puts"dammi un numero"getsstdinnumeroputs"Il quadrato è [expr {$numero * $numero}]"Un altro esempio in stile funzionale:
procfilter{listscript}{setres{}foreache$list{if{[uplevel1$script$e]}{lappendres$e}}setres}L'elementoe è incluso nella listalist? Se sì ritorna 1, altrimenti 0.
procin{liste}{expr{[lsearch-exact$list$e]>=0}}Elementi comuni di due liste, ossia insieme intersezione:
L'estensioneTk è un insieme di strumenti per scrivereGUI (untoolkit diwidget) implementato dallo stesso autore di Tcl. Può essere usato anche in combinazione ad altri linguaggi comePerl,Python,Ruby,Lisp e altri, ed è stato portato su varie piattaforme qualiGNU/Linux,AppleMacintosh,Unix eWindows.
Esempio Tk, un orologio numerico in tre righe:
packagerequireTkprocevery{msbody}{eval$body;after$ms[infolevel0]}pack[label.clock-textvartime]every1000{set::time[clockformat[clocksec]-format%H:%M:%S]}