[Richard Suchenwirth] 2013-11-07 - [Everything is a string], and every string has its [string length]. But if we want to display a string in a [text] widget with tight fitting (i.e. just the right size, not too big, not too small), we need to specify the geometry of a string, i.e. its width and heigth.

If we disregard word wrapping, things are very easy:
 set height [regexp -all \n $str\n]
I have appended an extra newline at the end, because many strings don't have (and in fact don't need) it. Perfectionists may first do [string trimright] before that. And here's the width of a string:
 proc string_width str {
     set w 0
     foreach line [split $str \n] {
        set length [string length $line]
        if {$length > $w} {set w $length}
     }
     return $w
 }

<<categories>>Example