Lines Matching refs:wLen
148 set wLen [string length $w]
153 if {$Hyphenate && ($pos+$wLen >= $Length)} {
192 set wLen [string length $w]
204 set over [expr {$pos+2+$wLen-$Length}]
211 set wLen [string length $w]
217 if {($pos+$wLen < $Length)} {
222 incr pos $wLen
229 set pos $wLen
348 set wLen($i) [string length $w($i)]
349 set totalLen [expr {$totalLen+$wLen($i)}]
359 if {$wLen($i) == $len} {
361 incr wLen($i)
424 set wLen [string length $w]; # and add delimiters
429 for {set i 0} {$i < $wLen} {incr i} {
433 for {set i 0} {$i < $wLen} {incr i} {
434 set kmax [expr {$wLen-$i}]
466 for {set i 1} {$i < ($wLen-1)} {incr i} {
485 for {set i 1} {$i < ($wLen-1)} {incr i} {