0001 function ltpdv_filterBrowse(varargin)
0002
0003
0004 myh = varargin{1};
0005 panh = varargin{end-1};
0006 mainfig = varargin{end};
0007
0008
0009 [filename, pathname, filterindex] = uigetfile( ...
0010 {'*.fil', 'LISO Files'; '*.xml', 'LTPDA XML File'; '*.mat', 'MAT-File'}, 'Select Filter File');
0011
0012 if isequal(filename,0) || isequal(pathname,0)
0013 else
0014
0015 fpath = fullfile(pathname, filename);
0016
0017
0018 fbh = findobj(panh, 'Tag', 'LTPDVfilterFileFilename');
0019 set(fbh, 'String', filename);
0020
0021
0022 filt = miir(fpath);
0023 filt.name = filename;
0024
0025
0026 setappdata(panh, 'filter', filt);
0027
0028
0029 fih = findobj(panh, 'Tag', 'LTPDVfilterFileInfo');
0030 set(fih, 'String', display(filt));
0031 end
0032
0033
0034
0035
0036
0037