set maxr [.table cget -rows] set maxc [.table cget -cols] for {set r 1} {$r < $maxr} {incr r} { set maxh 1 for {set c 0} {$c < $maxc} {incr c} { if {[set n [llength [split [.table get $r,$c] \n]]]>1 && $maxh<$n} { set maxh $n } } .table height $r $maxh }