Mercurial > hg > ltpda
comparison m-toolbox/m/gui/ltpdv/callbacks/ltpdv_build_buildobject.m @ 0:f0afece42f48
Import.
author | Daniele Nicolodi <nicolodi@science.unitn.it> |
---|---|
date | Wed, 23 Nov 2011 19:22:13 +0100 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:f0afece42f48 |
---|---|
1 % LTPDV_BUILD_BUILDOBJECT callback for the build object button on the build | |
2 % panel. | |
3 % | |
4 % M Hewitson 26-08-08 | |
5 % | |
6 % $Id: ltpdv_build_buildobject.m,v 1.1 2008/09/02 07:51:47 hewitson Exp $ | |
7 % | |
8 | |
9 function ltpdv_build_buildobject(varargin) | |
10 | |
11 % Handles | |
12 myh = varargin{1}; | |
13 mainfig = varargin{end}; | |
14 parampanh = findobj(mainfig, 'Tag', 'LTPDVbuildParamsPanel'); | |
15 | |
16 % Get class | |
17 cl = ltpdv_build_get_selected_class(mainfig); | |
18 | |
19 % Get parameters | |
20 pl = ltpdv_get_params_from_panel(parampanh); | |
21 | |
22 % Build this object | |
23 obj = feval(cl, pl); | |
24 | |
25 % Import object | |
26 objs = getappdata(mainfig, 'LTPDAobjects'); | |
27 setappdata(mainfig, 'LTPDAobjects', [objs {obj}]); | |
28 % Refresh object list | |
29 ltpdv_refresh_object_list(mainfig); | |
30 | |
31 | |
32 end |