function ltpdv_tabChanged(varargin)

myh   = varargin{1};
edata = varargin{2};
% get old tab
ti = edata.OldValue;
tabs = get(myh, 'Children');
if ti > 0
  oth  = tabs(ti);

  % Find all java objects below oth
  jobjs = findobj(oth, 'Type','uitabgroup');
  set(jobjs, 'Visible', 'off')

end

if ti > 0
  % get new tab
  ti = edata.NewValue;
  tabs = get(myh, 'Children');
  nth  = tabs(ti);

  % Find all java objects below oth
  jobjs = findobj(nth, 'Type','uitabgroup');
  set(jobjs, 'Visible', 'on');
end
drawnow

h = findobj(myh, 'Tag', 'LTPDVimportTabPanel');
if h~=myh
  set(h, 'SelectedIndex', 1);
end

end
