TABLE OF CONTENTS


::pwtk::input::script

SYNOPSIS

proc ::pwtk::input::script {name scriptCode} {

USAGE

   script name scriptCode

PURPOSE

Set the "script" named $name.

ARGUMENTS

SOURCE

    variable script

    return [set script($name) $scriptCode]
}