function ltpdv_poleDelete(varargin)

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

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

% Get poles
poles = getappdata(mainfig, 'FilterPoles');

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

% Set pole list
ltpdv_set_pole_list(mainfig);
