my $mw = MainWindow->new();
$mw->protocol(WM_DELETE_WINDOW=>\&exitfile);
my $menuframe = $mw->Frame(-bd=>4, -relief=>'groove')->pack(-side=>'top', -fill=>'x', -expand=>'x');<br>
my $canvasframe = $mw->Frame(-bd=>4, -relief=>'groove')->pack(-side=>'bottom', -fill=>'both', -expand=>'both');

##</code><code>##

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

$canvasframe->focus;

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

MainLoop;