Select Code to Download

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

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

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

MainLoop;