0001 function ltpda_constructor_helper_class(varargin)
0002
0003
0004 mainfig = findobj('Tag', 'LTPDAconstructor_helper');
0005
0006
0007 clh = findobj(mainfig, 'Tag', 'LTPDA_constructor_helper_class');
0008 cltxt = get(clh, 'String');
0009 cl = cltxt{get(clh, 'Value')};
0010
0011 lh = findobj(mainfig, 'Tag', 'LTPDA_constructor_helper_sets');
0012
0013
0014
0015 eval(sprintf('sets = %s(%s, ''Params'');', cl, cl));
0016
0017
0018 if isa(sets, 'plist')
0019 setappdata(mainfig, 'plist', sets);
0020 set(lh, 'Value', 1);
0021 set(lh, 'String', {'Default'});
0022 else
0023 set(lh, 'Value', 1);
0024 set(lh, 'String', sets);
0025 end
0026