Changeset af3f4af in tol for tolbase/lib/toltk/sergraph.tcl

Timestamp:

Feb 21, 2011, 11:03:45 PM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

003b0ec

Parents:

cf594ab

Message:

refs #466, show the name of the closest line in a timeserie graph

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3221 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/sergraph.tcl (modified) (5 diffs)

tolbase/lib/toltk/sergraph.tcl

@@ -10 +10 @@
 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 +62 @@
   upvar \#0 ${Instance}::widgets widgets
   upvar \#0 ${Instance}::data data
+
+  #::SeriesGraph::BindSerieInfo $Instance
+  #Blt_ClosestPoint $widgets(gr,0)
 
   set data(namespace)            SeriesGraph
@@ -125 +152 @@
           $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 +337 @@
 
 #/////////////////////////////////////////////////////////////////////////////
-proc ::SeriesGraph::GetLabel { this bltg tick y} {
+proc ::SeriesGraph::GetLabel { this bltg name tick y} {
 # 
 #/////////////////////////////////////////////////////////////////////////////  
@@ -314 +343 @@
   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)"
 }