TABLE OF CONTENTS
::pwtk::input::script
SYNOPSIS
proc ::pwtk::input::script {name scriptCode} {
USAGE
script name scriptCode
PURPOSE
Set the "script" named $name.
ARGUMENTS
- name -- name of the "script"
- scriptCode -- the code of the "script" (in the Tcl syntax)
SOURCE
variable script return [set script($name) $scriptCode] }