Index: tolbase/lib/toltk/graph.tcl
===================================================================
--- tolbase/lib/toltk/graph.tcl	(revision 87b1c4652e16006502efdc352172af083d5602d1)
+++ tolbase/lib/toltk/graph.tcl	(revision 0bf09a4fbb04ff61fc1ab1207aaca28e18979a51)
@@ -20,5 +20,5 @@
       }
       default {
-        
+
       }
     }
@@ -52,7 +52,7 @@
     bind scroll-$graph <ButtonRelease-1> { rbc::SetScrollPoint %W %x %y }
     # este evento posiblemente ya no hara falta
-    bind scroll-$graph <ButtonPress-3> { 
-      if { [%W inside %x %y] } { 
-        rbc::ResetScroll %W 
+    bind scroll-$graph <ButtonPress-3> {
+      if { [%W inside %x %y] } {
+        rbc::ResetScroll %W
       }
     }
@@ -61,12 +61,12 @@
     puts "mode = $mode"
     bind zoom-$graph <ButtonPress-1> { rbc::SetZoomPoint %W %x %y }
-    if { [string equal $mode zoom-frame] } { 
+    if { [string equal $mode zoom-frame] } {
       bind zoom-$graph <ButtonRelease-1> { rbc::SetZoomPoint %W %x %y }
     } else {
       bind zoom-$graph <ButtonRelease-1> ""
     }
-    bind zoom-$graph <ButtonPress-3> { 
-      if { [%W inside %x %y] } { 
-        rbc::ResetZoom %W 
+    bind zoom-$graph <ButtonPress-3> {
+      if { [%W inside %x %y] } {
+        rbc::ResetZoom %W
       }
     }
@@ -80,5 +80,5 @@
     set index [lsearch $oldTagList $tag]
     if { $index >= 0 } {
-	bindtags $widget [lreplace $oldTagList $index $index]
+        bindtags $widget [lreplace $oldTagList $index $index]
     }
   }
@@ -87,8 +87,8 @@
 proc rbc::InitStack { graph {mode zoom-frame} } {
     global zoomInfo
-  
+
     _rbc_InitStack $graph
     # this is to allow zoom in, out scroll
-  
+
     set zoomInfo($graph,mode) $mode
 }
@@ -135,5 +135,5 @@
   }
   set zoomInfo($graph,stack) [linsert $zoomInfo($graph,stack) 0 $cmd]
-  busy hold $graph 
+  busy hold $graph
   # This update lets the busy cursor take effect.
   update
@@ -162,5 +162,5 @@
   ::bayesGraph::GrapOptApplyAxisTicks    $this ${this}::options gr,$gr
   update
-  
+
   busy release $graph
 }
@@ -185,5 +185,5 @@
     set modifier "Any-"
   }
-  bind select-region-$graph <${modifier}Motion> { 
+  bind select-region-$graph <${modifier}Motion> {
     rbc::GetCoords %W %x %y B
     #rbc::MarkPoint $graph B
@@ -191,19 +191,19 @@
   }
   if { $zoomInfo($graph,corner) == "A" } {
-	if { ![$graph inside $x $y] } {
-	    return
-	}
-	# First corner selected, start watching motion events
-
-	#rbc::MarkPoint $graph A
-	rbc::ZoomTitleNext $graph 
-
-	rbc::AddBindTag $graph select-region-$graph
-	set zoomInfo($graph,corner) B
-  } else {
-	# Delete the modal binding
-	rbc::RemoveBindTag $graph select-region-$graph
-	rbc::PushZoom $graph 
-	set zoomInfo($graph,corner) A
+    if { ![$graph inside $x $y] } {
+      return
+    }
+    # First corner selected, start watching motion events
+
+    #rbc::MarkPoint $graph A
+    rbc::ZoomTitleNext $graph
+
+    rbc::AddBindTag $graph select-region-$graph
+    set zoomInfo($graph,corner) B
+  } else {
+    # Delete the modal binding
+    rbc::RemoveBindTag $graph select-region-$graph
+    rbc::PushZoom $graph
+    set zoomInfo($graph,corner) A
   }
 }
@@ -213,23 +213,23 @@
 
     rbc::GetCoords $graph $x $y A
-    bind scroll-region-$graph <Any-Motion> { 
-	rbc::GetCoords %W %x %y B
-	#rbc::MarkPoint $graph B
-	rbc::Scroll %W
+    bind scroll-region-$graph <Any-Motion> {
+        rbc::GetCoords %W %x %y B
+        #rbc::MarkPoint $graph B
+        rbc::Scroll %W
     }
     if { $zoomInfo($graph,corner) == "A" } {
-	if { ![$graph inside $x $y] } {
-	    return
-	}
-	# First corner selected, start watching motion events
-
-	#rbc::MarkPoint $graph A
-	rbc::ScrollTitle $graph 
-
-	rbc::AddBindTag $graph scroll-region-$graph
-	set zoomInfo($graph,corner) B
-    } else {
-	# Delete the modal binding
-      ResetScroll $graph
+        if { ![$graph inside $x $y] } {
+          return
+        }
+        # First corner selected, start watching motion events
+
+        #rbc::MarkPoint $graph A
+        rbc::ScrollTitle $graph
+
+        rbc::AddBindTag $graph scroll-region-$graph
+        set zoomInfo($graph,corner) B
+    } else {
+        # Delete the modal binding
+        ResetScroll $graph
     }
 }
@@ -262,14 +262,14 @@
   eval $graph marker delete [$graph marker names "scroll*"]
   rbc::RemoveBindTag $graph scroll-region-$graph
-  set zoomInfo($graph,corner) A  
+  set zoomInfo($graph,corner) A
 }
 
 proc rbc::ScrollTitle { graph } {
     if { [$graph cget -invertxy] } {
-	set coords "-Inf -Inf"
-    } else {
-	set coords "-Inf Inf"
+        set coords "-Inf -Inf"
+    } else {
+        set coords "-Inf Inf"
     }
     $graph marker create text -name "scrollTitle" -text "scrolling ..." \
-	-coords $coords -bindtags "" -anchor nw
-}
+        -coords $coords -bindtags "" -anchor nw
+}