% CB_MAINFIGCLOSE close callback for repogui.
% 
% M Hewitson 22-09-08
% 
% $Id: cb_mainfigClose.m,v 1.3 2011/04/08 08:56:26 hewitson Exp $
% 

function cb_mainfigClose(varargin)
  
  mainfig = varargin{end};
  
  if ~isempty(mainfig) && isa(mainfig.connection, 'database')
    disp('* closing open database connection');
    close(mainfig.connection);
  end
  
%   disp('* Goodbye from the LTPDA Repository Interface *')
  delete(mainfig.handle)
  delete(mainfig)
  
  % delete 'ans' variable associated with this repogui
  evalin('base', 'if exist(''ans'', ''var'') && isa(ans, ''repogui''), clear(''ans''); end');
    
end