TABLE OF CONTENTS

::pwtk::ifset

SYNOPSIS

proc ::pwtk::ifset {varName value} {

DESCRIPTION

Set a variable $varName if it is empty or does not exist.

ARGUMENTS

RETURN VALUE

The value of the variable $varName.

SOURCE

    upvar $varName var

    if { [info exists var] && $var != {} } {
        return $var
    } else {
        return [set var $value]
    }
}