yarrg/pantest.tcl

   1 #!/usr/bin/wish
   2
   3 source panner.tcl
   4 namespace import panner::*
   5
   6 set scale 50
   7
   8 canvas .c
   9 for {set x -$scale} {$x < 500} {incr x $scale} {
  10     for {set y -$scale} {$y < 500} {incr y $scale} {
  11         .c create text $x $y -text "${x}x${y}" -anchor sw
  12     }
  13 }
  14
  15 canvas-scroll-bbox .c
  16 panner-create .p .c 200 200 1
  17
  18 pack .p -side right
  19 pack .c -expand y -fill both -side left