Mercurial > hg > ltpda

view m-toolbox/classes/@repogui2/cb_mainfigClose.m @ 0:f0afece42f48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import.
author Daniele Nicolodi <nicolodi@science.unitn.it>
date Wed, 23 Nov 2011 19:22:13 +0100 (2011-11-23)
parents
children
line wrap: on
line source
% CB_MAINFIGCLOSE close callback for repogui2.
% 
% M Hewitson 22-09-08
% 
% $Id: cb_mainfigClose.m,v 1.3 2011/04/08 08:56:36 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, ''repogui2''), clear(''ans''); end');
    
end