use strict;

use Tkx;
my $mw = Tkx::widget->new(".");
$mw->g_wm_title("test");
my @results=();
my @id6=();
for my $i(0..100) {$results[$i] = 2*$i;}
&do_canvas4;
Tkx::MainLoop();

sub do_canvas4
{my $canvas4 = $mw->new_tk__canvas(-width => 130, -height => 500,-scrollregion => "0 4 0 2500");
$canvas4->g_grid(-column => 2, -row => 4, -sticky => "nsew");
my $vscroll = $mw->new_tk__scrollbar(-orient => "vertical", -command => [$canvas4, "yview"]);
$vscroll->g_grid(-column => 3, -row => 4, -sticky => "nsew");
$mw->new_ttk__sizegrip()->g_grid(-column => 3, -row => 4, -sticky => "e");
$canvas4->configure(-yscrollcommand => [$vscroll, "set"]);
for my $i(0..60)
	{
	$id6[$i] = $canvas4->create_text(79, 22+$i*26,-text => $results[$i],-font => "fixed 16 bold",-activefill => "red",-fill => "black",-anchor => "e");

#	$canvas4->bind($id6[$i], '<1>' => sub {handle_click3($id6[$i],$i)});  plus also middle and right button bindings in the program
	}
}