LTPDV_REFRESH_OBJECT_LIST sets the object list from the app data. M Hewitson 22-04-08 $Id: ltpdv_refresh_object_list.m,v 1.1 2008/05/11 10:38:43 hewitson Exp $
0001 function ltpdv_refresh_object_list(mainfig) 0002 0003 % LTPDV_REFRESH_OBJECT_LIST sets the object list from the app data. 0004 % 0005 % M Hewitson 22-04-08 0006 % 0007 % $Id: ltpdv_refresh_object_list.m,v 1.1 2008/05/11 10:38:43 hewitson Exp $ 0008 % 0009 0010 objs = getappdata(mainfig, 'LTPDAobjects'); 0011 0012 % Go through object array 0013 data = {}; 0014 for j=1:length(objs) 0015 obj = objs{j}; 0016 if isfield(obj, 'data') 0017 data = [data; {obj.name, [class(obj) '/' class(obj.data)]}]; 0018 else 0019 data = [data; {obj.name, class(obj)}]; 0020 end 0021 end 0022 0023 % Get list handle 0024 lh = findobj(mainfig, 'Tag', 'LTPDVobjList'); 0025 set(lh, 'Data', data); 0026 0027 0028 % END