my $canvas1 = $canvasframe->Scrolled('Canvas', -width=>'20i', -height=>'10i', -background=>$papercolour)->pack(-fill=>'both', -expand=>'both');

$canvasframe->focus;

$mw->bind($keypress=>\&$action);

MainLoop;