Changeset 215


Ignore:
Timestamp:
Nov 29, 2007 9:33:37 PM (15 years ago)
Author:
ajj
Message:

Fixed removal of marker and reset of values for clicked on point.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • sans/utils/bt5/bt5plot/bt5plot

    r214 r215  
    106106        global images 
    107107        global plotcolor 
     108        global transvar 
     109        global sumvar 
     110        global monvar 
     111        global num4var 
    108112 
    109113        set plotcolor 0  
    110114 
    111115        foreach elem [ $graph element show] { 
    112             $graph element delete $elem 
    113  
    114             set xvec [join "$elem _xvec" ""] 
    115             set countratevec [join "$elem _countratevec" ""] 
    116             set countvec [join "$elem _countvec" ""] 
    117             set transvec [join "$elem _transvec" ""] 
    118             set monvec [join "$elem _monvec" ""] 
    119             set cvec [join "$elem _cvec" ""] 
    120             set brvec [join "$elem _brvec" ""] 
    121             set blvec [join "$elem _blvec" ""] 
    122             set frvec [join "$elem _frvec" ""] 
    123             set flvec [join "$elem _flvec" ""] 
    124          
    125             global $xvec $countvec $countratevec $transvec $monvec 
    126             global $cvec $brvec $blvec $frvec $flvec 
     116         
     117            if { [string equal $elem "valMarker"] != 1} { 
     118                $graph element delete $elem 
     119            
     120                set xvec [join "$elem _xvec" ""] 
     121                set countratevec [join "$elem _countratevec" ""] 
     122                set countvec [join "$elem _countvec" ""] 
     123                set transvec [join "$elem _transvec" ""] 
     124                set monvec [join "$elem _monvec" ""] 
     125                set cvec [join "$elem _cvec" ""] 
     126                set brvec [join "$elem _brvec" ""] 
     127                set blvec [join "$elem _blvec" ""] 
     128                set frvec [join "$elem _frvec" ""] 
     129                set flvec [join "$elem _flvec" ""] 
     130         
     131                global $xvec $countvec $countratevec $transvec $monvec 
     132                global $cvec $brvec $blvec $frvec $flvec 
    127133             
    128             blt::vector destroy $xvec 
    129             blt::vector destroy $countratevec 
    130             blt::vector destroy $countvec 
    131             blt::vector destroy $transvec  
    132             blt::vector destroy $monvec 
    133             blt::vector destroy $cvec 
    134             blt::vector destroy $brvec 
    135             blt::vector destroy $blvec 
    136             blt::vector destroy $frvec 
    137             blt::vector destroy $flvec 
     134                blt::vector destroy $xvec 
     135                blt::vector destroy $countratevec 
     136                blt::vector destroy $countvec 
     137                blt::vector destroy $transvec  
     138                blt::vector destroy $monvec 
     139                blt::vector destroy $cvec 
     140                blt::vector destroy $brvec 
     141                blt::vector destroy $blvec 
     142                blt::vector destroy $frvec 
     143                blt::vector destroy $flvec 
     144            } else { 
     145                clearValMarks 
     146            } 
    138147        } 
    139148         
     
    152161        global plotcolor 
    153162        global useColors 
     163        global valMarkElem 
    154164         
    155165        set fileName [.tree label $nodeID]       
     
    222232         
    223233            $graph element delete $filebase 
     234            if { [string equal $filebase $valMarkElem] == 1 } { 
     235                $graph element delete valMarker 
     236                clearValMarks 
     237            } 
    224238         
    225239            set xvec [join "$filebase _xvec" ""] 
     
    352366        global sumvar 
    353367        global monvar 
     368        global valMarkElem 
    354369 
    355370        global graph 
     
    360375        set yval [lindex [array get pointVals y] 1] 
    361376 
     377        set valMarkElem $elem 
    362378 
    363379        if { [string length $elem] != 0 } { 
     
    373389        } 
    374390        } 
     391} 
     392 
     393proc clearValMarks {} { 
     394        uplevel #0 { 
     395                set num4var ""; 
     396                set transvar ""; 
     397                set sumvar ""; 
     398                set monvar ""; 
     399                set valMarkElem ""; 
     400                if { [$graph element exists valMarker] == 1} { 
     401                        $graph element delete valMarker 
     402                } 
     403        } 
     404 
    375405} 
    376406 
Note: See TracChangeset for help on using the changeset viewer.