Evaluated proc fitwidth {string width} {set char " "; set i [string length $string]; set a [expr "$width - $i"]; . $string [string repeat $char $a]}