--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/@LTPDAworkbench/setParam.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,24 @@
+% 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