Ignore:
Timestamp:
Feb 6, 2004, 11:59:30 PM (15 years ago)
Author:
landonf
Message:

Remove the old trace prior to setting a new default value.
Otherwise, the old trace will remove option_defaults($variable) when the default procedure sets the variable to its new value.

File:
1 edited

Legend:

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

    r4598 r5266  
    254254    if {[info exists option_defaults($option)]} {
    255255        ui_debug "Re-registering default for $option"
     256        # remove the old trace
     257        trace vdelete $option rwu default_check
    256258    } else {
    257259        # If option is already set and we did not set it
Note: See TracChangeset for help on using the changeset viewer.