% 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