Changeset 215

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:

• sans/utils/bt5/bt5plot/bt5plot (modified) (6 diffs)

sans/utils/bt5/bt5plot/bt5plot

@@ -106 +106 @@
         global images
         global plotcolor
+        global transvar
+        global sumvar
+        global monvar
+        global num4var
 
         set plotcolor 0 
 
         foreach elem [ $graph element show] {
-            $graph element delete $elem
-
-            set xvec [join "$elem _xvec" ""]
-            set countratevec [join "$elem _countratevec" ""]
-            set countvec [join "$elem _countvec" ""]
-            set transvec [join "$elem _transvec" ""]
-            set monvec [join "$elem _monvec" ""]
-            set cvec [join "$elem _cvec" ""]
-            set brvec [join "$elem _brvec" ""]
-            set blvec [join "$elem _blvec" ""]
-            set frvec [join "$elem _frvec" ""]
-            set flvec [join "$elem _flvec" ""]
-        
-            global $xvec $countvec $countratevec $transvec $monvec
-            global $cvec $brvec $blvec $frvec $flvec
+        
+            if { [string equal $elem "valMarker"] != 1} {
+                $graph element delete $elem
+           
+                set xvec [join "$elem _xvec" ""]
+                set countratevec [join "$elem _countratevec" ""]
+                set countvec [join "$elem _countvec" ""]
+                set transvec [join "$elem _transvec" ""]
+                set monvec [join "$elem _monvec" ""]
+                set cvec [join "$elem _cvec" ""]
+                set brvec [join "$elem _brvec" ""]
+                set blvec [join "$elem _blvec" ""]
+                set frvec [join "$elem _frvec" ""]
+                set flvec [join "$elem _flvec" ""]
+        
+                global $xvec $countvec $countratevec $transvec $monvec
+                global $cvec $brvec $blvec $frvec $flvec
             
-            blt::vector destroy $xvec
-            blt::vector destroy $countratevec
-            blt::vector destroy $countvec
-            blt::vector destroy $transvec 
-            blt::vector destroy $monvec
-            blt::vector destroy $cvec
-            blt::vector destroy $brvec
-            blt::vector destroy $blvec
-            blt::vector destroy $frvec
-            blt::vector destroy $flvec
+                blt::vector destroy $xvec
+                blt::vector destroy $countratevec
+                blt::vector destroy $countvec
+                blt::vector destroy $transvec 
+                blt::vector destroy $monvec
+                blt::vector destroy $cvec
+                blt::vector destroy $brvec
+                blt::vector destroy $blvec
+                blt::vector destroy $frvec
+                blt::vector destroy $flvec
+            } else {
+                clearValMarks
+            }
         }
         
@@ -152 +161 @@
         global plotcolor
         global useColors
+        global valMarkElem
         
         set fileName [.tree label $nodeID]      
@@ -222 +232 @@
         
             $graph element delete $filebase
+            if { [string equal $filebase $valMarkElem] == 1 } {
+                $graph element delete valMarker
+                clearValMarks
+            }
         
             set xvec [join "$filebase _xvec" ""]
@@ -352 +366 @@
         global sumvar
         global monvar
+        global valMarkElem
 
         global graph
@@ -360 +375 @@
         set yval [lindex [array get pointVals y] 1]
 
+        set valMarkElem $elem
 
         if { [string length $elem] != 0 } {
@@ -373 +389 @@
         }
         }
+}
+
+proc clearValMarks {} {
+        uplevel #0 {
+                set num4var "";
+                set transvar "";
+                set sumvar "";
+                set monvar "";
+                set valMarkElem "";
+                if { [$graph element exists valMarker] == 1} {
+                        $graph element delete valMarker
+                }
+        }
+
 }