--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/classes/@repogui2/cb_tabChanged.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,21 @@
+% CB_TABCHANGED callback executed when the user changes tabs.
+%
+% M Hewitson 22-09-08
+%
+% $Id: cb_tabChanged.m,v 1.1 2008/09/22 14:28:56 hewitson Exp $
+%
+
+function cb_tabChanged(varargin)
+
+  myh     = varargin{1};
+  edata   = varargin{2};
+  mainfig = varargin{end};
+  
+  % Set tab color
+  set(myh, 'BackgroundColor', mainfig.Gproperties.Gcol{edata.NewValue});
+  % Set status color
+  set(findobj(mainfig.handle, 'Tag', 'RepoguiStatusLabel'), 'BackgroundColor', mainfig.Gproperties.Gcol{edata.NewValue});
+  % Set mainfig color
+  set(mainfig.handle, 'Color', mainfig.Gproperties.Gcol{edata.NewValue});
+  
+end