Ignore:
Timestamp:
Feb 13, 2007, 8:08:37 PM (12 years ago)
Author:
eridius@…
Message:

Allow tbool to work on array variables

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portutil.tcl

    r21953 r22002  
    430430# and is set to "yes", return 1. Otherwise, return 0
    431431proc tbool {key} {
    432     upvar $key $key
    433     if {[info exists $key]} {
    434         if {[string equal -nocase [set $key] "yes"]} {
    435             return 1
    436         }
     432    upvar $key var
     433    if {[info exists var]} {
     434        if {[string equal -nocase [set var] "yes"]} {
     435            return 1
     436        }
    437437    }
    438438    return 0
Note: See TracChangeset for help on using the changeset viewer.