% CB_SELECT_DB callback when the user selects a database
% 
% M Hewitson 22-09-08
% 
% $Id: cb_select_db.m,v 1.2 2011/04/08 08:56:26 hewitson Exp $
% 
function cb_select_db(varargin)
  
  % Handles
  myh     = varargin{1};
  mainfig = varargin{end};
  
  
  % get selected server
  val = get(myh, 'Value');
  strs = get(myh, 'String');
  db = strs{val};
  
  % Set server
  eh = findobj(mainfig.handle, 'Tag', 'RepoguiDatabaseEdit');
  set(eh, 'string', db);  
  
end