+
−% SETVALINDEX Sets the property 'valIndex'.
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−%
+
−% DESCRIPTION: Set the property 'valIndex'.
+
−%
+
−% CALL:        obj = obj.setValIndex(idx);
+
−%              obj = setValIndex(obj, idx);
+
−%
+
−% INPUTS:      obj - single paramValue object
+
−%              idx - new index
+
−%
+
−% REMARK:      This method checks if the index is in range of the options
+
−%
+
−% VERSION:     $Id: setValIndex.m,v 1.2 2009/06/17 15:57:57 ingo Exp $
+
−%
+
−%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
−
+
−function varargout = setValIndex(varargin)
+
−
+
−  %%% Check number in inputs
+
−  if nargin ~= 2
+
−    error('### This method accepts only two inputs. The first one must be the object and the second one an integer.');
+
−  end
+
−  
+
−  obj = varargin{1};
+
−  valIdx = varargin{2};
+
−  
+
−  %%% Check the correctness of the inputs
+
−  if ~isa(obj, 'paramValue') || numel(obj) ~= 1
+
−    error('### The first input must be a single paramValue object.');
+
−  end
+
−  if ~isnumeric(valIdx)
+
−    error('### Please specify a integer for the value index.');
+
−  end
+
−
+
−  %%% Check if the new index is in range of the options.
+
−  if valIdx > numel(obj.options)
+
−    error('### The value index [%d] must be inside the range of the options [%d..%d]', valIdx, (numel(obj.options)>0), max(numel(obj.options)))
+
−  end
+
−  
+
−  obj = copy(obj, nargout);
+
−  
+
−  obj.valIndex = valIdx;
+
−
+
−  %%% Prepare output
+
−  varargout{1} = obj;
+
−
+
−end