my $mw = new MainWindow( -title => "@{$G{reexec}}");
$mw->configure(-menu => my $menubar = $mw->Menu);
my $nb = $mw->NoteBook(-width => $maxwidth)->
    pack(-expand=>1, -fill => 'both');
my $filemenuitem = $menubar->cascade(-label=>'~File');
my $reexecmenuitem = $menubar->command(-label=>'~Re-exec',
                                       -command => \&reexec);
my $closetabmenuitem = 
    $menubar->command(-label => '~Close Tab',
                      -command => sub {
                      my $raised_page_name = $nb->raised();
                      my $raised_page_menu_index = $pages{$raised_page_name};
                      $nb->delete($raised_page_name);
                      ## No inherited delete here:?
                      $filemenuitem->delete($raised_page_menu_index);
                     });