function ltpdv_delete_objects(varargin)% LTPDV_DELETE_OBJECTS delete the selected objects from the object list%% M Hewitson 22-04-08%% $Id: ltpdv_delete_objects.m,v 1.1 2008/05/11 10:38:43 hewitson Exp $%% HandlesclearAll = false;if nargin == 3 myh = varargin{1}; mainfig = varargin{end};elseif nargin == 4 myh = varargin{1}; mainfig = varargin{end-1}; if strcmp(varargin{end}, 'all') clearAll = true; endend% Get selected rowsrows = getappdata(mainfig, 'ObjectListSelectedRows');if clearAll % Set new object list setappdata(mainfig, 'LTPDAobjects', {});else % Get current object list objs = getappdata(mainfig, 'LTPDAobjects'); % Build index list to keep a = 1:length(objs); idx = a(~ismember(a,rows)); % Set new object list setappdata(mainfig, 'LTPDAobjects', objs(idx));end% Refresh object listltpdv_refresh_object_list(mainfig);% END