TABLE OF CONTENTS

::pwtk::printTitle

SYNOPSIS

proc ::pwtk::printTitle {label {title ""}} {

DESCRIPTION

Print a nice section-title to stdout.

USAGE

    ::pwtk::printTitle title

    ::pwtk::printTitle label title

SOURCE

    set s |
    if { $title == {} } {
        set title $label
        set label {}
        set s {}
    }
    
    puts ""
    puts [format "%-5s %s" ${label}$s ======================================================================]
    foreach line [split $title \n] {        
        puts [format "%-5s %s" ${label}$s "*** $line"]
    }
    puts [format "%-5s %s" ${label}$s ======================================================================]
    puts ""
    flush stdout
}