+
−% Fill the workspace object list
+
−%
+
−% M Hewitson
+
−%
+
−% $Id: setWorkspaceObjsList.m,v 1.3 2011/04/08 08:56:37 hewitson Exp $
+
−%
+
−function setWorkspaceObjsList(mainfig, objs)
+
−  
+
−  id = findobj(mainfig.handle, 'Tag', 'RepoguiWorkspaceObjsList');
+
−  
+
−  objlist = [];
+
−  for j=1:length(objs)
+
−    obj = objs(j);
+
−    str = sprintf('%s\t\t(%s)', obj.name, obj.class);
+
−    objlist = [objlist cellstr(str)];
+
−  end
+
−  
+
−  set(id, 'Value', 1);
+
−  set(id, 'String', objlist);
+
−end