• docs
• code
• community
• mailing lists
• downloads
• blogs
• bugs
• safari bookshelf
• workspace

ActiveState Code

1
2
3
4
5

# Print columns
proc puts_tabular {width args} {
    set fmt [string repeat "%-${width}s" [llength $args]]
    puts [eval [list format $fmt] $args]
}