TABLE OF CONTENTS

::pwtk::dquote

SYNOPSIS

proc ::pwtk::dquote {str} {

PURPOSE

Quotes a non-empty string with the double quotes.

RETURN VALUE

SOURCE

    if { $str ne {} } {
        return \"[unquote $str]\"
    } else {
        return $str
    }
}