####################################################################
# tabbed display.
####################################################################
proc putsTabular {width args} {
    set fmt [string repeat "%-${width}s" [llength $args]]
    #putsLog [eval [list format $fmt] $args]
    set a "[eval [list format $fmt] $args]"
    putsLog $a
    #return [eval [list format $fmt] $args]
}