Changeset 1133 for trunk/gui/scripts/xyresult.tcl

Timestamp:

Aug 27, 2008, 4:29:33 PM (16 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/xyresult.tcl (modified) (3 diffs)

trunk/gui/scripts/xyresult.tcl

@@ -918 +918 @@
         return;
     }
+    set tip ""
     if {$state == "at"} {
         if {[$g element closest $x $y info -interpolate yes]} {
@@ -933 +934 @@
                 if {[info exists _elem2curve($elem)]} {
                     set curve $_elem2curve($elem)
-                    set tip [$curve hints tooltip]
+                    #set tip [$curve hints tooltip]
+                    set tip [$g element cget $elem -label]
                     if {[info exists info(y)]} {
                         set val [_axis format y dummy $info(y)]
@@ -962 +964 @@
                 if {[info exists _elem2curve($elem)]} {
                     set curve $_elem2curve($elem)
-                    set tip [$curve hints tooltip]
+                    #set tip [$curve hints tooltip]
+                    set tip [$g element cget $elem -label]
                     if {[info exists info(y)]} {
                         set val [_axis format y dummy $info(y)]