TABLE OF CONTENTS
::pwtk::input::namelistIfSetVar
SYNOPSIS
proc ::pwtk::input::namelistIfSetVar {name varName varValue} {
PURPOSE
Set a namelist's variable only if it does not exists.
ARGUMENTS
- name -- name of namelist
- varName -- name of variable to query
- varValue -- value to set the variable to
SOURCE
global pwtk::input::namelist if { [info exists pwtk::input::namelist($name) ] } { if { ! [info exists pwtk::input::namelist($name,var=$varName)] } { set pwtk::input::namelist($name,var=$varName) $varValue } } }