LTPDV_BUILD_CLASS_SELECT callback when the user selects the class of object to build M Hewitson 26-08-08 $Id: ltpdv_build_class_select.m,v 1.1 2008/09/02 07:51:47 hewitson Exp $
0001 % LTPDV_BUILD_CLASS_SELECT callback when the user selects the class 0002 % of object to build 0003 % 0004 % M Hewitson 26-08-08 0005 % 0006 % $Id: ltpdv_build_class_select.m,v 1.1 2008/09/02 07:51:47 hewitson Exp $ 0007 % 0008 0009 function ltpdv_build_class_select(varargin) 0010 0011 % Handles 0012 myh = varargin{1}; 0013 mainfig = varargin{end}; 0014 0015 % Fill in the set selector list 0016 sh = findobj(mainfig, 'Tag', 'LTPDVbuildSetSelect'); 0017 0018 % Get the selected class 0019 cl = ltpdv_build_get_selected_class(mainfig); 0020 0021 % Get info object 0022 ii = eval([cl '.getInfo']); 0023 0024 % Set sets 0025 set(sh, 'Value', 1); 0026 set(sh, 'String', ii.sets); 0027 0028 % Callback 0029 ltpdv_build_set_select(sh, mainfig) 0030 0031 end