--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/@ltpda_uo/processSetterValues.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,52 @@
+% PROCESSSETTERVALUES
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% DESCRIPTION: PROCESSSETTERVALUES.
+%                1. Checks if the value is in the plist
+%                2. Checks if there are more than one value that the number
+%                   of values are the same as the number of objects.
+%                3. Replicate the values to the number of objects.
+%
+% CALL:        [objs, values] = processSetterValues(objs, pls, rest, pName)
+%
+% IMPUTS:      objs:  Array of objects
+%              pls:   Array of PLISTs or empty array
+%              rest:  Cell-array with possible values
+%              pName: Property name of objs
+%
+% VERSION:     $Id: processSetterValues.m,v 1.4 2011/09/17 03:09:37 hewitson Exp $
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+function [objs, values] = processSetterValues(objs, pls, rest, pName)
+  
+  % If pls contains only one plist with the single key of the property name
+  % then set the property with a plist.
+  if length(pls) == 1 && isa(pls, 'plist') && isparam(pls, pName)
+    rest{1} = find(pls, pName);
+  end
+  
+  % Check if the user uses a cell-array for the different values
+  if numel(rest)==1 && iscell(rest{1})
+    rest = rest{1};
+  end
+  
+  % Check the number of value
+  if numel(rest) > 1 && numel(rest) ~= numel(objs)
+    error('### Please specify one %s [n=%d] for each %s [n=%d], either in a plist or direct.', pName, numel(rest), upper(class(objs)), numel(objs));
+  end
+  
+  % Replicate the values in 'rest' to the number of AOs
+  if numel(rest) == 1 && numel(objs) ~= 1
+    u = rest{1};
+    rest = cell(size(objs));
+    if isa(u, 'ltpda_obj')
+      rest = cellfun(@(x){copy(u, 1)}, rest);
+    else
+      rest(:) = {u};
+    end
+  end
+  
+  values = rest;
+  
+end