% 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