frame .f
text .f.text
pack .f.text
pack .f
set lista_colori "rosso blu giallo verde"
.f.text insert end "i colori sono : $lista_colori
"
.f.text insert end "il secondo colore della lista e' il [lindex $lista_colori 2]
"
.f.text insert end "la lista dei colori e' costituita da [llength $lista_colori] elementi
"
# accorpa due liste
set lista_note "do re mi fa sol la"
set lista_totale [list $lista_colori $lista_note]
.f.text insert end "la lista complessiva e' : $lista_totale
"
.f.text insert end "la lista totale e' costituita da [llength $lista_totale] sotto liste
"
# aggiunge un elemento all'interno della lista
set lista_note [linsert $lista_note 3 fa#]
.f.text insert end "$lista_note
"
# appende un elemento in coda alla lista
lappend lista_note la#
.f.text insert end "$lista_note
"
liste.tcl