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 $
0001 % LTPDV_BUILD_BUILDOBJECT callback for the build object button on the build 0002 % panel. 0003 % 0004 % M Hewitson 26-08-08 0005 % 0006 % $Id: ltpdv_build_buildobject.m,v 1.1 2008/09/02 07:51:47 hewitson Exp $ 0007 % 0008 0009 function ltpdv_build_buildobject(varargin) 0010 0011 % Handles 0012 myh = varargin{1}; 0013 mainfig = varargin{end}; 0014 parampanh = findobj(mainfig, 'Tag', 'LTPDVbuildParamsPanel'); 0015 0016 % Get class 0017 cl = ltpdv_build_get_selected_class(mainfig); 0018 0019 % Get parameters 0020 pl = ltpdv_get_params_from_panel(parampanh); 0021 0022 % Build this object 0023 obj = feval(cl, pl); 0024 0025 % Import object 0026 objs = getappdata(mainfig, 'LTPDAobjects'); 0027 setappdata(mainfig, 'LTPDAobjects', [objs {obj}]); 0028 % Refresh object list 0029 ltpdv_refresh_object_list(mainfig); 0030 0031 0032 end