TABLE OF CONTENTS


::pwtk::input::scriptClear

SYNOPSIS

proc ::pwtk::input::scriptClear {args} {

USAGE

   :scriptClear name1 ?name2? ?...?

PURPOSE

Clear (unset) the content of the specified scripts.

ARGUMENTS

SOURCE

    variable script

    foreach name $args {
        # clear the content of the script
        ::pwtk::ifexist script($name) {
            unset script($name)
        }
    }
}