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}> ======================================================================]
    puts [format "%5s %s" ${label}> "*** $title"]
    puts [format "%5s %s" ${label}> ======================================================================]
    puts ""
    flush stdout
}