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

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