Index: tolbase/lib/toltk/graph.tcl
===================================================================
--- tolbase/lib/toltk/graph.tcl	(revision e946b8841087cd332b2a17a03a6aeb15556a9b01)
+++ tolbase/lib/toltk/graph.tcl	(revision 7ec9cb089cd5389c56238c2f1e94bfa0f1a1bbbc)
@@ -72,4 +72,14 @@
     }
     blt::AddBindTag $graph zoom-$graph
+  }
+}
+
+proc blt::RemoveBindTag { widget args } {
+  set oldTagList [bindtags $widget]
+  foreach tag $args {
+    set index [lsearch $oldTagList $tag]
+    if { $index >= 0 } {
+	bindtags $widget [lreplace $oldTagList $index $index]
+    }
   }
 }
@@ -246,2 +256,20 @@
   set zoomInfo($graph,A,y) $zoomInfo($graph,B,y)
 }
+
+proc blt::ResetScroll { graph } {
+  global zoomInfo
+
+  eval $graph marker delete [$graph marker names "scroll*"]
+  blt::RemoveBindTag $graph scroll-region-$graph
+  set zoomInfo($graph,corner) A  
+}
+
+proc blt::ScrollTitle { graph } {
+    if { [$graph cget -invertxy] } {
+	set coords "-Inf -Inf"
+    } else {
+	set coords "-Inf Inf"
+    }
+    $graph marker create text -name "scrollTitle" -text "scrolling ..." \
+	-coords $coords -bindtags "" -anchor nw
+}