Ignore:
Timestamp:
Feb 14, 2007, 7:22:00 PM (11 years ago)
Author:
eridius@…
Message:

Revert my change to tbool - it turns out this interferes with read traces on the variable (which is stupid - the trace should be smart enough to remember the original name).

File:
1 edited

Legend:

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

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