Home > m > gui > ltpdv > callbacks > ltpdv_delete_objects.m

ltpdv_delete_objects

PURPOSE ^

LTPDV_DELETE_OBJECTS delete the selected objects from the object list

SYNOPSIS ^

function ltpdv_delete_objects(varargin)

DESCRIPTION ^

 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 $

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 function ltpdv_delete_objects(varargin)
0002 
0003 % LTPDV_DELETE_OBJECTS delete the selected objects from the object list
0004 %
0005 % M Hewitson 22-04-08
0006 %
0007 % $Id: ltpdv_delete_objects.m,v 1.1 2008/05/11 10:38:43 hewitson Exp $
0008 %
0009 
0010 % Handles
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 % Get selected rows
0024 rows = getappdata(mainfig, 'ObjectListSelectedRows');
0025 
0026 if clearAll   
0027    % Set new object list
0028    setappdata(mainfig, 'LTPDAobjects', {});
0029 else
0030    % Get current object list
0031    objs = getappdata(mainfig, 'LTPDAobjects');
0032 
0033    % Build index list to keep
0034    a   = 1:length(objs);
0035    idx = a(~ismember(a,rows));
0036    % Set new object list
0037    setappdata(mainfig, 'LTPDAobjects', objs(idx));
0038 end
0039 
0040 
0041 % Refresh object list
0042 ltpdv_refresh_object_list(mainfig);
0043 
0044 % END

Generated on Mon 08-Sep-2008 13:18:47 by m2html © 2003