TABLE OF CONTENTS


::pwtk::infoMsg

SYNOPSIS

proc ::pwtk::infoMsg {msg} {

DESCRIPTION

Print the info message.

ARGUMENTS

SOURCE

    set i 0
    foreach line [split $msg \n] {
        if { ! $i } {
            ::pwtk::print "INFO: $line"
        } else {
            ::pwtk::print "      $line"
        }
        incr i
    }
    puts ""
}