% 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