TABLE OF CONTENTS

::pwtk::rangequote

SYNOPSIS

proc ::pwtk::rangequote {str} {

PURPOSE

Quote a non-empty string with square brackets, i.e., transform xmin:xmax to [xmin:xmax].

RETURN VALUE

SOURCE

    if { $str ne {} } {
        return \[[string trim $str {[]}]\]
    } else {
        return $str
    }
}