WIP Tk panner widget

[ypp-sc-tools.main.git] / yarrg / pantest.tcl

diff --git a/yarrg/pantest.tcl b/yarrg/pantest.tcl
new file mode 100755 (executable)
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