TABLE OF CONTENTS

::pwtk::deprecated

SYNOPSIS

proc ::pwtk::deprecated {msg} {

DESCRIPTION

Routine used to print messages/warning of deprecated features.

SOURCE

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