yarrg/pantest.tcl

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