TABLE OF CONTENTS


::pwtk::input::scriptPrint

SYNOPSIS

proc ::pwtk::input::scriptPrint {name} {

PURPOSE

Print to stdout the $name script

ARGUMENTS

SOURCE

    variable script

    ::pwtk::ifexist script($name) {
        print $script($name)
    }
}