0001 function ltpdv_delete_objects(varargin)
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011 clearAll = false;
0012 if nargin == 3
0013 myh = varargin{1};
0014 mainfig = varargin{end};
0015 elseif nargin == 4
0016 myh = varargin{1};
0017 mainfig = varargin{end-1};
0018 if strcmp(varargin{end}, 'all')
0019 clearAll = true;
0020 end
0021 end
0022
0023
0024 rows = getappdata(mainfig, 'ObjectListSelectedRows');
0025
0026 if clearAll
0027
0028 setappdata(mainfig, 'LTPDAobjects', {});
0029 else
0030
0031 objs = getappdata(mainfig, 'LTPDAobjects');
0032
0033
0034 a = 1:length(objs);
0035 idx = a(~ismember(a,rows));
0036
0037 setappdata(mainfig, 'LTPDAobjects', objs(idx));
0038 end
0039
0040
0041
0042 ltpdv_refresh_object_list(mainfig);
0043
0044