X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=yarrg%2Fpantest.tcl;fp=yarrg%2Fpantest.tcl;h=53d80f1b137da60e8676ab3a9e5816710ef12444;hp=0000000000000000000000000000000000000000;hb=e20b856b909c253231f872b95a339567e6757d57;hpb=c915c378bbed129861c419f671913f0113150007

diff --git a/yarrg/pantest.tcl b/yarrg/pantest.tcl
new file mode 100755
index 0000000..53d80f1
--- /dev/null
+++ b/yarrg/pantest.tcl
@@ -0,0 +1,19 @@
+#!/usr/bin/wish
+
+source panner.tcl
+namespace import panner::*
+
+set scale 50
+
+canvas .c
+for {set x -$scale} {$x < 500} {incr x $scale} {
+    for {set y -$scale} {$y < 500} {incr y $scale} {
+	.c create text $x $y -text "${x}x${y}" -anchor sw
+    }
+}
+
+canvas-scroll-bbox .c
+panner-create .p .c 200 200
+
+pack .c -expand y -fill both -side left
+pack .p -side right