label .l -text "This is a very long string here."
bind . <Configure> onresize
pack .l
proc onresize {} {.l config -wraplength [winfo width .]}