$menubar = $top->Menu(-menuitems => $menuitems);
    $top->configure(-menu => $menubar);