Mercurial > hg > ltpda

comparison m-toolbox/m/gui/ltpdv/callbacks/ltpdv_poleDelete.m @ 0:f0afece42f48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import.
author Daniele Nicolodi <nicolodi@science.unitn.it>
date Wed, 23 Nov 2011 19:22:13 +0100
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:f0afece42f48
1 function ltpdv_poleDelete(varargin)
2
3 % Handles
4 myh = varargin{1};
5 htab = varargin{end-1};
6 mainfig = varargin{end};
7
8 % Get selection
9 lh = findobj(htab, 'Tag', 'LTPDVfilterPolelist');
10 idx = get(lh, 'Value');
11
12 % Get poles
13 poles = getappdata(mainfig, 'FilterPoles');
14
15 % Make new list
16 ops = [];
17 for j=1:length(poles)
18 if ~ismember(j, idx)
19 ops = [ops poles(j)];
20 end
21 end
22 setappdata(mainfig, 'FilterPoles', ops);
23
24 % Set pole list
25 ltpdv_set_pole_list(mainfig);