function setuimenu(status)
%SETUIMENU Turn on/off the menubar

%
% Copyright (c) 1995 by Claudio Rivetti and Mark Young
% claudio@alice.uoregon.edu,    mark@alice.uoregon.edu
%

global Handlefig Showmenu

if nargin >1 
  error('Too many input arguments.');
end

if nargin <1 
  error('Too few input arguments.');
end

uim=finduimenu(Handlefig);

if strcmp(status, 'on')
  if isempty(uim)
    alexmenu;
  end
else
  uim=finduimenu(Handlefig);
  delete(uim);
  %showmenubotton;
end


return