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