4 set auto_path [concat . $auto_path]
7 #namespace import panner::*
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
20 panner::canvas-scroll-bbox .c
21 panner::create .p .c 200 200 1
24 pack .c -expand y -fill both -side left