OUTPUT BUFFER:
#!/usr/local/bin/wish toplevel .f frame .f.f pack .f.f canvas .f.f.c -height 10 -width 100 \ -xscrollcommand ".f.sx set" \ -yscrollcommand ".f.f.sy set" \ -scrollregion [list 200 0 1000 1000] scrollbar .f.f.sy -command ".f.f.c yview" pack .f.f.c .f.f.sy -side left -fill y -expand 1 scrollbar .f.sx -orient horizontal -command ".f.f.c xview" pack .f.sx -side bottom -fill x -expand 1 set offset 5 for {set i 0} {$i < 100} {incr i} { set xm [expr $i*100+$offset] set xx [expr ($i+1)*100] .f.f.c create rectangle $xm 10 $xx 110 -fill blue .f.f.c create text $xm 15 -text "$i" }