setalexmenu.m

来自「matlab处理图像的一些基本方法。其中有一部分mex程序需要安装编译」· M 代码 · 共 40 行

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
% [e-mail],    [e-mail]
%

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