Tkx::package_require('autoscroll');
...
# Automatically mapped scrollbar
Tkx::__autoscroll__autoscroll($sb);
...
# Fixed scrollbar
Tkx::__autoscroll__unautoscroll($sb);

##</code><code>##

my @results=();
my @id6=();
for my $i(0..100) {$results[$i] = 2*$i;}
&do_canvas4;

##</code><code>##

my @results = map 2*$_, 0 .. 100;
my @id6;
do_canvas4();