0001
0002
0003
0004
0005
0006
0007
0008
0009 function ltpdv_properties_apply(varargin)
0010
0011
0012 myh = varargin{1};
0013 oldVals = varargin{end-2};
0014 obj = varargin{end-1};
0015 mainfig = varargin{end};
0016 panh = get(myh, 'Parent');
0017
0018
0019 lhs = findobj(panh, 'Style', 'text');
0020 ehs = findobj(panh, 'Style', 'edit');
0021
0022 for kk=numel(lhs):-1:1
0023 fcn = get(lhs(kk), 'String');
0024 val = get(ehs(kk), 'String');
0025
0026
0027 ov = oldVals{numel(lhs)-kk+1};
0028 if ~strcmp(val, ov)
0029 feval(fcn, obj, val);
0030 end
0031 end
0032
0033
0034 ltpdv_refresh_object_list(mainfig);
0035
0036 display(obj)
0037 end