--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/m/gui/ltpdv/callbacks/ltpdv_properties_apply.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,37 @@
+% 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 $
+%
+
+function ltpdv_properties_apply(varargin)
+
+  % Handles
+  myh     = varargin{1};
+  oldVals = varargin{end-2};
+  obj     = varargin{end-1};
+  mainfig = varargin{end};
+  panh    = get(myh, 'Parent');
+
+  % go through each label and edit box in order
+  lhs = findobj(panh, 'Style', 'text');
+  ehs = findobj(panh, 'Style', 'edit');
+
+  for kk=numel(lhs):-1:1
+    fcn = get(lhs(kk), 'String');
+    val = get(ehs(kk), 'String');
+
+    % check the value has changed
+    ov = oldVals{numel(lhs)-kk+1};
+    if ~strcmp(val, ov)
+      feval(fcn, obj, val);
+    end
+  end
+
+  % Refresh object list
+  ltpdv_refresh_object_list(mainfig);
+
+  display(obj)
+end
\ No newline at end of file