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

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

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