Fill the workspace object list M Hewitson $Id: setWorkspaceObjsListQL.m,v 1.1 2008/01/22 21:10:23 hewitson Exp $
0001 function setWorkspaceObjsListQL(objs) 0002 0003 % Fill the workspace object list 0004 % 0005 % M Hewitson 0006 % 0007 % $Id: setWorkspaceObjsListQL.m,v 1.1 2008/01/22 21:10:23 hewitson Exp $ 0008 % 0009 0010 id = findobj('Tag', 'workspaceObjsListQL'); 0011 0012 objlist = []; 0013 for j=1:length(objs) 0014 obj = objs(j); 0015 str = sprintf('%s\t\t(%s)', obj.name, obj.class); 0016 objlist = [objlist cellstr(str)]; 0017 end 0018 0019 set(id, 'Value', 1); 0020 set(id, 'String', objlist); 0021 0022