+
−% SETDEFAULTINDEX Sets the index which points to the default value to the input.
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%
+
−% DESCRIPTION: SETDEFAULTINDEX Sets the index which points to the default
+
−%              value to the input.
+
−%
+
−% CALL:        obj = obj.setDefaultIndex(index);
+
−%
+
−% INPUTS:      obj   - A single param object
+
−%              index - An index to the default option which should to be set.
+
−%
+
−% VERSION:     $Id: setDefaultIndex.m,v 1.2 2011/02/22 15:51:44 hewitson Exp $
+
−%
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−
+
−function p = setDefaultIndex(p, index)
+
−  
+
−  % Check input
+
−  if numel(p) ~= 1
+
−    error('### This method works only with one input parameter object.');
+
−  end
+
−  if ~isnumeric(index) && numel(index) ~= 1
+
−    error('### This method works only with one input index.');
+
−  end
+
−  
+
−  % Make a copy if the user doesn't use the modifier command
+
−  p = copy(p, nargout);
+
−  
+
−  if isa(p.val, 'paramValue')
+
−    if numel(p.val.options) >= index
+
−      p.val.setValIndex(index);
+
−    else
+
−      error('### The number of param-options [%d] is for the new index [%d] not enough.', numel(p.val.options), index);
+
−    end
+
−  else
+
−    warning('!!! This parameter [%s] has no options', p.key);
+
−  end
+
−  
+
−end
+
−