set-menu-bar

• (send a-mred:menu set-menu-bar menu-bar) -> void
      menu-bar : a mred:menu-bar% object

  Sets the ivar menu-bar to menu-bar. This method should only be called by a menu bar that has appended the menu to itself.