<![CDATA[
frame .f
text .f.text -width 20 -height 5
pack .f.text
pack .f
.f.text tag configure colore1 -foreground red
.f.text tag configure colore2 -foreground blue
.f.text insert end {ciao
} colore1
.f.text insert end {ciao
} colore2
]]>
colore.tcl