--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/m/gui/ltpdv/callbacks/ltpdv_poleAdd.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,32 @@
+function ltpdv_poleAdd(varargin)
+
+% Handles
+myh     = varargin{1};
+htab    = varargin{end-1};
+mainfig = varargin{end};
+
+
+% Get freq
+fh = findobj(htab, 'Tag', 'LTPDVfilterPZfreq');
+fstr = get(fh, 'String');
+if ~isempty(fstr)
+   f  = str2num(fstr);
+
+   % Get Q
+   qh = findobj(htab, 'Tag', 'LTPDVfilterPZq');
+   q  = str2num(get(qh, 'String'));
+
+   % Add to pole list
+   poles = getappdata(mainfig, 'FilterPoles');
+   if isempty(q)
+      poles = [poles pz(f)];
+   else
+      poles = [poles pz(f,q)];
+   end
+   setappdata(mainfig, 'FilterPoles', poles);
+
+   % Set pole list
+   ltpdv_set_pole_list(mainfig);
+end
+
+