0001 function ltpdv_filterDelete(varargin)
0002
0003
0004 myh = varargin{1};
0005 htab = varargin{end-1};
0006 mainfig = varargin{end};
0007
0008
0009 fh = findobj(mainfig, 'Tag', 'LTPDVfilterList');
0010 idx = get(fh, 'Value');
0011
0012
0013 filts = getappdata(mainfig, 'Filters');
0014
0015 fo = [];
0016 for j=1:length(filts)
0017 if j~=idx
0018 fo = [fo filts(j)];
0019 end
0020 end
0021
0022 setappdata(mainfig, 'Filters', fo);
0023 set(fh, 'Value', idx-1);
0024
0025 ltpdv_set_filter_list(mainfig);
0026