--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/m/gui/ltpdv/callbacks/ltpdv_build_buildobject.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,32 @@
+% LTPDV_BUILD_BUILDOBJECT callback for the build object button on the build
+% panel.
+%
+% M Hewitson 26-08-08
+%
+% $Id: ltpdv_build_buildobject.m,v 1.1 2008/09/02 07:51:47 hewitson Exp $
+%
+
+function ltpdv_build_buildobject(varargin)
+
+  % Handles
+  myh     = varargin{1};
+  mainfig = varargin{end};
+  parampanh = findobj(mainfig, 'Tag', 'LTPDVbuildParamsPanel');
+
+  % Get class
+  cl = ltpdv_build_get_selected_class(mainfig);
+
+  % Get parameters
+  pl = ltpdv_get_params_from_panel(parampanh);
+
+  % Build this object
+  obj = feval(cl, pl);
+
+  % Import object
+  objs = getappdata(mainfig, 'LTPDAobjects');
+  setappdata(mainfig, 'LTPDAobjects', [objs {obj}]);
+  % Refresh object list
+  ltpdv_refresh_object_list(mainfig);
+
+
+end
\ No newline at end of file