Changeset 3813


Ignore:
Timestamp:
Jul 17, 2013, 7:18:22 PM (11 years ago)
Author:
ldelgass
Message:

Fix bug in 'add' method of viewer widgets: list search for existing dataobj
entry was wrong (list and pattern transposed), causing potential duplicate
entries in dataobj list.

Location:
trunk/gui/scripts
Files:
19 edited

Legend:

Unmodified
Added
Removed

  • trunk/gui/scripts/barchartresult.tcl

    r3799 r3813  
    329329    }
    330330
    331     set pos [lsearch -exact $dataobj $_dlist]
     331    set pos [lsearch -exact $_dlist $dataobj]
    332332    if {$pos < 0} {
    333333        lappend _dlist $dataobj

  • trunk/gui/scripts/contourresult.tcl

    r3799 r3813  
    352352    }
    353353
    354     set pos [lsearch -exact $dataobj $_dlist]
     354    set pos [lsearch -exact $_dlist $dataobj]
    355355    if {$pos < 0} {
    356356        lappend _dlist $dataobj

  • trunk/gui/scripts/deviceViewer1D.tcl

    r3799 r3813  
    169169    array set params $settings
    170170 
    171     set pos [lsearch -exact $dataobj $_dlist]
     171    set pos [lsearch -exact $_dlist $dataobj]
    172172
    173173    if {$pos < 0} {

  • trunk/gui/scripts/energyLevels.tcl

    r3799 r3813  
    293293    }
    294294
    295     set pos [lsearch -exact $dataobj $_dlist]
     295    set pos [lsearch -exact $_dlist $dataobj]
    296296    if {$pos < 0} {
    297297        lappend _dlist $dataobj

  • trunk/gui/scripts/flowvisviewer.tcl

    r3799 r3813  
    601601        set _obj2flow($dataobj-$comp) $flowobj
    602602    }
    603     set pos [lsearch -exact $dataobj $_dlist]
     603    set pos [lsearch -exact $_dlist $dataobj]
    604604    if {$pos < 0} {
    605605        lappend _dlist $dataobj

  • trunk/gui/scripts/histogramresult.tcl

    r3799 r3813  
    326326    }
    327327
    328     set pos [lsearch -exact $dataobj $_dlist]
     328    set pos [lsearch -exact $_dlist $dataobj]
    329329    if {$pos < 0} {
    330330        lappend _dlist $dataobj

  • trunk/gui/scripts/imageresult.tcl

    r3799 r3813  
    196196    }
    197197
    198     set pos [lsearch -exact $image $_dlist]
     198    set pos [lsearch -exact $_dlist $image]
    199199    if {$pos < 0} {
    200200        lappend _dlist $image

  • trunk/gui/scripts/meshresult.tcl

    r3799 r3813  
    155155    }
    156156
    157     set pos [lsearch -exact $dataobj $_dlist]
     157    set pos [lsearch -exact $_dlist $dataobj]
    158158    if {$pos < 0} {
    159159        lappend _dlist $dataobj

  • trunk/gui/scripts/moleculeViewer.tcl

    r3799 r3813  
    237237    array set params $settings
    238238 
    239     set pos [lsearch -exact $dataobj $_dlist]
     239    set pos [lsearch -exact $_dlist $dataobj]
    240240
    241241    if {$pos < 0} {

  • trunk/gui/scripts/molvisviewer.tcl

    r3803 r3813  
    452452    array set params $options
    453453
    454     set pos [lsearch -exact $dataobj $_dlist]
     454    set pos [lsearch -exact $_dlist $dataobj]
    455455
    456456    if {$pos < 0} {

  • trunk/gui/scripts/nanovisviewer.tcl

    r3799 r3813  
    416416        set params(-color) black
    417417    }
    418     set pos [lsearch -exact $dataobj $_dlist]
     418    set pos [lsearch -exact $_dlist $dataobj]
    419419    if {$pos < 0} {
    420420        lappend _dlist $dataobj

  • trunk/gui/scripts/numberresult.tcl

    r3799 r3813  
    303303    }
    304304
    305     set pos [lsearch -exact $dataobj $_dlist]
     305    set pos [lsearch -exact $_dlist $dataobj]
    306306    if {$pos < 0} {
    307307        lappend _dlist $dataobj

  • trunk/gui/scripts/valueresult.tcl

    r3799 r3813  
    9999        }
    100100
    101         set pos [lsearch -exact $dataobj $_dlist]
     101        set pos [lsearch -exact $_dlist $dataobj]
    102102        if {$pos < 0} {
    103103            lappend _dlist $dataobj

  • trunk/gui/scripts/vtkglyphviewer.tcl

    r3799 r3813  
    532532        set params(-color) black
    533533    }
    534     set pos [lsearch -exact $dataobj $_dlist]
     534    set pos [lsearch -exact $_dlist $dataobj]
    535535    if {$pos < 0} {
    536536        lappend _dlist $dataobj

  • trunk/gui/scripts/vtkheightmapviewer.tcl

    r3799 r3813  
    488488        set params(-color) white
    489489    }
    490     set pos [lsearch -exact $dataobj $_dlist]
     490    set pos [lsearch -exact $_dlist $dataobj]
    491491    if {$pos < 0} {
    492492        lappend _dlist $dataobj

  • trunk/gui/scripts/vtkisosurfaceviewer.tcl

    r3799 r3813  
    539539        set params(-color) black
    540540    }
    541     set pos [lsearch -exact $dataobj $_dlist]
     541    set pos [lsearch -exact $_dlist $dataobj]
    542542    if {$pos < 0} {
    543543        lappend _dlist $dataobj

  • trunk/gui/scripts/vtkstreamlinesviewer.tcl

    r3799 r3813  
    567567        set params(-color) black
    568568    }
    569     set pos [lsearch -exact $dataobj $_dlist]
     569    set pos [lsearch -exact $_dlist $dataobj]
    570570    if {$pos < 0} {
    571571        lappend _dlist $dataobj

  • trunk/gui/scripts/vtkviewer.tcl

    r3799 r3813  
    587587        set params(-color) black
    588588    }
    589     set pos [lsearch -exact $dataobj $_dlist]
     589    set pos [lsearch -exact $_dlist $dataobj]
    590590    if {$pos < 0} {
    591591        lappend _dlist $dataobj

  • trunk/gui/scripts/vtkvolumeviewer.tcl

    r3799 r3813  
    537537        set params(-color) black
    538538    }
    539     set pos [lsearch -exact $dataobj $_dlist]
     539    set pos [lsearch -exact $_dlist $dataobj]
    540540    if {$pos < 0} {
    541541        lappend _dlist $dataobj
Note: See TracChangeset for help on using the changeset viewer.