Index: tolbase/lib/toltk/graph.tcl
===================================================================
--- tolbase/lib/toltk/graph.tcl	(revision 0bf09a4fbb04ff61fc1ab1207aaca28e18979a51)
+++ tolbase/lib/toltk/graph.tcl	(revision 7b8f6fc7a6a455ecc00e83cb9badb651c626ba43)
@@ -85,4 +85,9 @@
 }
 
+proc rbc::ClearCrosshairs { graph } {
+    rbc::RemoveBindTag $graph crosshairs-$graph
+    $graph crosshairs off
+}
+
 proc rbc::InitStack { graph {mode zoom-frame} } {
     global zoomInfo
@@ -93,5 +98,4 @@
     set zoomInfo($graph,mode) $mode
 }
-
 
 proc rbc::SetZoomScale { graph scale } {
@@ -155,4 +159,6 @@
     $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,4 +259,6 @@
     $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)