Changeset 7b8f6fc in tol for tolbase/lib/toltk/graph.tcl

Timestamp:

Nov 28, 2016, 10:42:29 AM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

6f7a669

Parents:

0bf09a4

Message:

Refs #1933
Se redibuja el gráfico tras actualizar los ejes ($graph configure axis ...) ya que según parece con rbc esto no se hace automáticamente.
Se añade el método ClearCrosshairs.
Se soluciona un bug decompilando archivos desde la ventana derecha del inspector.
Se corrige la actualización del inspector según el item seleccionado en el árbol.

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

File:

• tolbase/lib/toltk/graph.tcl (modified) (4 diffs)

tolbase/lib/toltk/graph.tcl

@@ -85 +85 @@
 }
 
+proc rbc::ClearCrosshairs { graph } {
+    rbc::RemoveBindTag $graph crosshairs-$graph
+    $graph crosshairs off
+}
+
 proc rbc::InitStack { graph {mode zoom-frame} } {
     global zoomInfo
@@ -93 +98 @@
     set zoomInfo($graph,mode) $mode
 }
-
 
 proc rbc::SetZoomScale { graph scale } {
@@ -155 +159 @@
     $graph axis configure $axis -min $min -max $max
   }
+  #@! Redibuja el gráfico
+  event generate $graph <Configure>
   # This "update" forces the graph to be redrawn
   set this [::bayesGraph::getInstance $graph]
@@ -253 +259 @@
     $graph axis configure $axis -min $lower -max $upper
   }
+  #@! Redibuja el gráfico
+  event generate $graph <Configure>
   set zoomInfo($graph,A,x) $zoomInfo($graph,B,x)
   set zoomInfo($graph,A,y) $zoomInfo($graph,B,y)