X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fpantest.tcl;h=b13326e9c3bd1a604fd7283824891644e3d1162d;hb=a886cd415dfc89ea1f563b1517b6a0ddebdcc4c3;hp=53d80f1b137da60e8676ab3a9e5816710ef12444;hpb=e20b856b909c253231f872b95a339567e6757d57;p=ypp-sc-tools.db-test.git

diff --git a/yarrg/pantest.tcl b/yarrg/pantest.tcl
index 53d80f1..b13326e 100755
--- a/yarrg/pantest.tcl
+++ b/yarrg/pantest.tcl
@@ -13,7 +13,7 @@ for {set x -$scale} {$x < 500} {incr x $scale} {
 }
 
 canvas-scroll-bbox .c
-panner-create .p .c 200 200
+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