% 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