+
−% 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 $
+
−%
+
−
+
−function ltpdv_build_class_select(varargin)
+
−
+
−  % Handles
+
−  myh     = varargin{1};
+
−  mainfig = varargin{end};
+
−
+
−  % Fill in the set selector list
+
−  sh = findobj(mainfig, 'Tag', 'LTPDVbuildSetSelect');
+
− 
+
−  % Get the selected class
+
−  cl = ltpdv_build_get_selected_class(mainfig);
+
−  
+
−  % Get info object
+
−  ii = eval([cl '.getInfo']);
+
−  
+
−  % Set sets
+
−  set(sh, 'Value', 1);
+
−  set(sh, 'String', ii.sets);
+
−  
+
−  % Callback
+
−  ltpdv_build_set_select(sh, mainfig)
+
−  
+
−end