Index: tolbase/lib/toltk/bysgraph.tcl
===================================================================
--- tolbase/lib/toltk/bysgraph.tcl	(revision cf594abbdec6a4619bc463c7c68c7e9795627b77)
+++ tolbase/lib/toltk/bysgraph.tcl	(revision af3f4afabde533de8fdabcbd0e22f74235a65ba4)
@@ -543,9 +543,18 @@
   upvar \#0 ${this}::widgets widgets
   upvar \#0 ${this}::data data
-  if [$widgets(gr,$numGraph) inside $x $y] {
-    set t [expr round([$widgets(gr,$numGraph) axis invtransform x $x])]
-    set z [format "%.2f" [$widgets(gr,$numGraph) axis invtransform y $y]]
-    if [info exists ${this}::data(proc,OnGetLabel)] {
-      set label [$data(proc,OnGetLabel) $this $widgets(gr,$numGraph) $t $z]
+
+  set graph $widgets(gr,$numGraph)
+  if { [ $graph inside $x $y ] } {
+    #set t [expr round([$widgets(gr,$numGraph) axis invtransform x $x])]
+    set t [ $graph axis invtransform x $x ]
+    set z [ format "%.2f" [ $graph axis invtransform y $y ] ]
+    if { [ info exists ${this}::data(proc,OnGetLabel) ] } {
+      if { [$graph element closest $x $y infoLine -interpolate yes] } {
+        set nameLine $infoLine(name)
+      } else {
+        set nameLine ""
+      }
+      set label [$data(proc,OnGetLabel) \
+                     $this $graph $nameLine $t $z]
     } else {
       set label "X = $t, Y = $z" 
Index: tolbase/lib/toltk/sergraph.tcl
===================================================================
--- tolbase/lib/toltk/sergraph.tcl	(revision cf594abbdec6a4619bc463c7c68c7e9795627b77)
+++ tolbase/lib/toltk/sergraph.tcl	(revision af3f4afabde533de8fdabcbd0e22f74235a65ba4)
@@ -10,4 +10,28 @@
 namespace eval ::SeriesGraph {
   variable tmpOpt
+}
+
+proc ::SeriesGraph::ShowSerieInfo { Instance graph x y } {
+  upvar \#0 ${Instance}::widgets widgets
+  upvar \#0 ${Instance}::data data
+  
+  if ![$graph element closest $x $y info -interpolate yes] {
+    beep
+    return
+  }
+  parray info
+}
+
+proc ::SeriesGraph::BindSerieInfo { Instance } {
+  upvar \#0 ${Instance}::widgets widgets
+  upvar \#0 ${Instance}::data data
+
+  set graph $widgets(gr,0)
+  bind closest-point-$graph <Control-ButtonPress-2>  \
+      [ string map [list %I $Instance] {
+        ::SeriesGraph::ShowSerieInfo %I %W %x %y
+      } ]
+  blt::AddBindTag $graph closest-point-$graph
+  
 }
 
@@ -38,4 +62,7 @@
   upvar \#0 ${Instance}::widgets widgets
   upvar \#0 ${Instance}::data data
+
+  #::SeriesGraph::BindSerieInfo $Instance
+  #Blt_ClosestPoint $widgets(gr,0)
 
   set data(namespace)            SeriesGraph
@@ -125,5 +152,7 @@
           $grpath line configure l$i-$j -label ""
         } else {
-          $grpath line configure l$i-0 -label [$sergrp serie $i name]
+          set nameSerie [$sergrp serie $i name]
+          $grpath line configure l$i-0 -label $nameSerie
+          set data(labels,l$i) $nameSerie
         }
         incr j
@@ -308,5 +337,5 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-proc ::SeriesGraph::GetLabel { this bltg tick y} {
+proc ::SeriesGraph::GetLabel { this bltg name tick y} {
 # 
 #/////////////////////////////////////////////////////////////////////////////  
@@ -314,14 +343,14 @@
   set gr $data(gr,active)
 
-  if [string is int $tick] {
-    set str ""
-    catch {
-      set str [$data(gr,$gr,sergrp) dating $tick]
-    }
-    set label "t = $str, z = $y"
-  } else  {
-    set label "t = $tick, z = $y"
-  }
-  return $label
+  set t [ expr {round($tick)} ]
+  if { [ catch { $data(gr,$gr,sergrp) dating $t } labelTick ] } {
+    set labelTick $tick
+  }
+  if { [ regexp {(l[0-9])+(-[0-9])*} $name ==> codeLine ] } {
+    set nameLine $data(labels,$codeLine)
+  } else {
+    set nameLine "NO LINE"    
+  }
+  return "$nameLine: ($labelTick,$y)"
 }