TABLE OF CONTENTS

::pwtk::input::namelistClear

SYNOPSIS

proc ::pwtk::input::namelistClear {args} {

USAGE

::pwtk::input::namelistClear name1 ?name2? ?...?

PURPOSE

Clear the content of specified namelists

ARGUMENTS

SOURCE

    global ::pwtk::input::namelist

    foreach name $args {
        # clear the content of the namelist
        
        if { [info exists ::pwtk::input::namelist($name)] } {
            array unset ::pwtk::input::namelist $name,var=*         
            unset ::pwtk::input::namelist($name)
        }
    }
}