Changeset 7ec9cb0 in tol

Timestamp:

Dec 12, 2011, 3:51:13 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

a6ce98d

Parents:

e946b884

Message:

fixes #1354, recovering procedures which were lost in last commit of graph.tcl

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

File:

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

tolbase/lib/toltk/graph.tcl

@@ -72 +72 @@
     }
     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 +256 @@
   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
+}