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;h=e864d0bd722130fc800bdcff64f0ed28b384217a;hp=53d80f1b137da60e8676ab3a9e5816710ef12444;hb=b6919a190cf9ce37ab245d1ec124320ffe49a969;hpb=e20b856b909c253231f872b95a339567e6757d57

diff --git a/yarrg/pantest.tcl b/yarrg/pantest.tcl
index 53d80f1..e864d0b 100755
--- a/yarrg/pantest.tcl
+++ b/yarrg/pantest.tcl
@@ -1,7 +1,12 @@
 #!/usr/bin/wish
 
-source panner.tcl
-namespace import panner::*
+pkg_mkIndex .
+set auto_path [concat . $auto_path]
+
+#source panner.tcl
+#namespace import panner::*
+
+package require panner
 
 set scale 50
 
@@ -12,8 +17,8 @@ for {set x -$scale} {$x < 500} {incr x $scale} {
     }
 }
 
-canvas-scroll-bbox .c
-panner-create .p .c 200 200
+panner::canvas-scroll-bbox .c
+panner::create .p .c 200 200 1
 
-pack .c -expand y -fill both -side left
 pack .p -side right
+pack .c -expand y -fill both -side left