Ignore:
Timestamp:
Aug 26, 2012 6:51:47 PM (9 years ago)
Author:
toby
Message:

fix chem constrain add row bug; Add Fourier to export_drawxtl; new param on MakeExportBox? -- not used?

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/chemrest.tcl

    r1215 r1220  
    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.