function setalexmenu(flag)
%SETALEXMENU  Enable/Disable the menu items
%
%	SETALEXMENU(FLAG)
%
%	Flag can be 'ON' or 'OFF' 

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

global Handlefig H

if nargin==0
  flag='on';
end

if strcmp(upper(flag), 'ON')==1 | strcmp(upper(flag), 'OFF')==1
  m=findobj(Handlefig, 'label', 'Edit ');
  m=[m;findobj(Handlefig, 'type', 'uimenu', 'label', 'View ')];
  m=[m;findobj(Handlefig, 'type', 'uimenu', 'label', 'Modify ')];
  m=[m;findobj(Handlefig, 'type', 'uimenu', 'label', 'Analyze ')];
  m=[m;findobj(Handlefig, 'type', 'uimenu', 'label', 'Close')];
  m=[m;findobj(Handlefig, 'type', 'uimenu', 'label', 'Save')];
  m=[m;findobj(Handlefig, 'type', 'uimenu', 'label', 'Save As...')];
  m=[m;findobj(Handlefig, 'type', 'uimenu', 'label', 'Export')];

  set(m, 'enable', flag);
  
  m=findobj(Handlefig, 'type', 'uimenu', 'tag', 'NANO2_EXPORT');
  set(m, 'enable', 'off');
  t=getparameter(H, 'File Type', 2);
  if strcmp(t, 'NANO2')
    set(m, 'enable', 'on');
  end

end