#!/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
}
}
-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