function ltpdv_zeroDelete(varargin)

% Handles
myh     = varargin{1};
htab    = varargin{end-1};
mainfig = varargin{end};

% Get selection
lh = findobj(htab, 'Tag', 'LTPDVfilterZerolist');
idx = get(lh, 'Value');

% Get zeros
zeros = getappdata(mainfig, 'FilterZeros');

% Make new list
ops = [];
for j=1:length(zeros)
   if ~ismember(j, idx)
      ops = [ops zeros(j)];
   end
end
setappdata(mainfig, 'FilterZeros', ops);

% Set pole list
ltpdv_set_zero_list(mainfig);
