Home > m > gui > ltpdv > callbacks > ltpdv_properties_apply.m

ltpdv_properties_apply

PURPOSE ^

LTPDV_PROPERTIES_APPLY callback for apply button on the object properties

SYNOPSIS ^

function ltpdv_properties_apply(varargin)

DESCRIPTION ^

 LTPDV_PROPERTIES_APPLY callback for apply button on the object properties
 panel.

 M Hewitson 26-08-08

 $Id: ltpdv_properties_apply.m,v 1.1 2008/09/02 07:51:47 hewitson Exp $

CROSS-REFERENCE INFORMATION ^

This function calls: This function is called by:

SOURCE CODE ^

0001 % LTPDV_PROPERTIES_APPLY callback for apply button on the object properties
0002 % panel.
0003 %
0004 % M Hewitson 26-08-08
0005 %
0006 % $Id: ltpdv_properties_apply.m,v 1.1 2008/09/02 07:51:47 hewitson Exp $
0007 %
0008 
0009 function ltpdv_properties_apply(varargin)
0010 
0011   % Handles
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   % go through each label and edit box in order
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     % check the value has changed
0027     ov = oldVals{numel(lhs)-kk+1};
0028     if ~strcmp(val, ov)
0029       feval(fcn, obj, val);
0030     end
0031   end
0032 
0033   % Refresh object list
0034   ltpdv_refresh_object_list(mainfig);
0035 
0036   display(obj)
0037 end

Generated on Mon 08-Sep-2008 13:18:47 by m2html © 2003