function LsimRespObj = pvset(LsimRespObj,varargin)
%PVSET  Set properties of Response Objects.
%
%   RespObj = PVSET(RespObj,'Property1',Value1,'Property2',Value2,...)
%   sets the values of the properties with exact names 'Property1',
%   'Property2',...
%
%   See also SET.

%   Author(s): P. Gahinet and K. Gondoly
%   Copyright 1986-2000 The MathWorks, Inc. 
%   $Revision: 1.13 $ $Date: 2000/06/14 20:10:28 $

ni = nargin;
ContextMenu = get(LsimRespObj.response,'UicontextMenu');
RespObjProp = logical(zeros(ni-1,1));

for i=1:2:ni-1,
   % Set each Property Name/Value pair in turn. 
   Property = varargin{i};
   Value = varargin{i+1};
   if ischar(Value),
      Value = lower(Value);
   end
   
   switch Property
   case 'InputSignal'
      LsimRespObj.InputSignal = Value;
   otherwise
      % PROPERTY is a parent @response property. 
      RespObjProp([i i+1]) = logical(1);
   end % switch Property
end

% Set all @response properties
RespObjProp = find(RespObjProp);
if ~isempty(RespObjProp)
   LsimRespObj.response = pvset(LsimRespObj.response,varargin{RespObjProp});
end

