Changeset 1133 for trunk

Timestamp:

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

Author:

gah

Message:

 

Location:

trunk/gui/scripts

Files:

• xylegend.tcl (modified) (1 diff)
• xyresult.tcl (modified) (3 diffs)

trunk/gui/scripts/xylegend.tcl

@@ -603 +603 @@
             set label [lindex $args 0]
             $itk_component(legend) entry configure $focus_ -label $label
+            set elem [$tree_ label $focus_]
+            $graph_ element configure $elem -label $label
         }
         menu {

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)]