--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/m/gui/ltpdv/callbacks/ltpdv_poleDelete.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,25 @@
+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);