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');