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