Select Code to Download

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

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

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