0001 function ltpdv_tabChanged(varargin)
0002
0003 myh = varargin{1};
0004 edata = varargin{2};
0005
0006 ti = edata.OldValue;
0007 tabs = get(myh, 'Children');
0008 if ti > 0
0009 oth = tabs(ti);
0010
0011
0012 jobjs = findobj(oth, 'Type','uitabgroup');
0013 set(jobjs, 'Visible', 'off')
0014
0015 end
0016
0017 if ti > 0
0018
0019 ti = edata.NewValue;
0020 tabs = get(myh, 'Children');
0021 nth = tabs(ti);
0022
0023
0024 jobjs = findobj(nth, 'Type','uitabgroup');
0025 set(jobjs, 'Visible', 'on');
0026 end
0027 drawnow
0028
0029 h = findobj(myh, 'Tag', 'LTPDVimportTabPanel');
0030 if h~=myh
0031 set(h, 'SelectedIndex', 1);
0032 end
0033
0034 end