--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/@repogui/cb_mainfigClose.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,26 @@
+% 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
+
+