view m-toolbox/classes/@repogui2/setWorkspaceObjsList.m @ 43:bc767aaa99a8

CVS Update
author Daniele Nicolodi <nicolodi@science.unitn.it>
date Tue, 06 Dec 2011 11:09:25 +0100
parents f0afece42f48
children
line wrap: on
line source

% 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