Changeset 1225 for trunk/chemrest.tcl


Ignore:
Timestamp:
Nov 8, 2012 1:42:25 PM (8 years ago)
Author:
toby
Message:

update to latest, with Fourier & f'/f

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/chemrest.tcl

    r1219 r1225  
    293293# show a box as yellow, if an invalid number is entered
    294294proc ChemUpdateRow {var index mode} {
     295    if $::expcons(DisableChemWeightsTrace) return
    295296    set num $index
    296     if $::expcons(DisableChemWeightsTrace) return
    297297    set weight [string trim $::ChemWeights($num)]
    298298    set box $::expcons(ChemConstBox)
     
    363363}
    364364
    365 foreach item [trace vinfo ChemWeights] {
    366     eval trace vdelete ChemWeights $item
    367 }
    368 trace variable ChemWeights w ChemUpdateRow
    369 
     365set ::ChemWeights(0) ""
     366foreach item [trace vinfo ::ChemWeights] {
     367    eval trace vdelete ::ChemWeights $item
     368}
     369trace variable ::ChemWeights w ChemUpdateRow
     370
     371set ::expcons(ChemSum) ""
     372set ::expcons(ChemSumESD) ""
    370373foreach item [trace vinfo expcons(ChemSum)] {
    371374    eval trace vdelete expcons(ChemSum) $item
Note: See TracChangeset for help on using the changeset viewer.