% SETPARAM sets the parameter to the value for the given block.
%
% CALL:    wb.setParam(blockname, key, value)
%
% M Hewitson 13-11-08
%
% $Id: setParam.m,v 1.3 2011/04/08 08:56:32 hewitson Exp $
%
function setParam(wb, blockname, key, value)
  
  % get the block with this name
  b = awtinvoke(wb.mp, 'getBlockByName', blockname);
  
  % Convert the plist to a java plist
  pl = LTPDAworkbench.jpl2mpl(awtinvoke(b, 'getPlist'));
  pl.pset(key,value);
  
  % Convert the plist to a java plist
  jpl = LTPDAworkbench.mpl2jpl(pl);
  
  % set the plist
  awtinvoke(b, 'setPlist', jpl);
  
end