setuicontrols.m

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

function setuicontrols(status)
%SETUICONTROLS Turn on/off the uicontrols

%
% Copyright (c) 1995 by Claudio Rivetti and Mark Young
% [e-mail],    [e-mail]
%

global Handlefig uic oldstatus 

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

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


if strcmp(status, 'on')
  if isempty(uic) | isempty(oldstatus)
    uic=finduicontrols(Handlefig);
    set(uic, 'visible', 'on');
  else
    for i=1:length(uic)
      set(uic(i), 'visible', onoff(oldstatus(i)));
    end
  end
else
  uic=finduicontrols(Handlefig);
  oldstatus=[];
  for i=1:length(uic)
    oldstatus=[oldstatus onoff(get(uic(i), 'visible'))];
  end
  set(uic, 'visible', 'off');
end

return