function subtabSelect(id) {
//  alert('Selecting '+id);
  var foundp = 0;
/*
  var cwin = window.parent.document.getElementById('Content');
  var cdoc = cwin.contentDocument || parent.frames.Content.document;
  var subtabUL = subtabElt();
  var wasAtId = null;
  if (!subtabUL) {
    highEntry(id); 
    return;
  }
*/
  var subtabUL = document.getElementById('subtabs');
  var cdoc = document;
  elts = subtabUL.getElementsByTagName('li');
  for (var i=0, elt; elt = elts[i]; i++) {
    if (id) {
      if (elt.id.match(id)) {
        elt.className = "chosen";
        foundp = 1;
      } else {
        elt.className = "";        
      }
    } else {
      if (elt.className == "chosen") {
//        Msg('found subtab '+elt.id);
        wasAtId = elt.id;
        if (elts[i+1]) {
          elt.className = "";
          elts[i+1].className = "chosen";
          id = elts[i+1].id;
        } else {
          id = elt.id; //stay at last
        }
        foundp = 1;
        i = elts.length; //(length-1) we're done
      }
    }
  }
  if (!id) { id=elts[0]; }
  else if (!foundp && elts[0]) {
    elts[0].className = "chosen";
    id = elts[0].id;
  }

  var nextElt = elts[i+1];
  if (matches = id.match(/(.*)Tab/)) { id = matches[1]; }
//  Msg('Subtab selected: "'+id+'"');
//  setData('Sim_Subtab_Selected', id);
  var sel = cdoc.getElementById(id);
  var elts = cdoc.getElementsByTagName('div');
  var all = id.match(/Single/);
  for (var i=0, elt; elt = elts[i]; i++) {
    if (elt.className.match(/section/)) { 
      //alert(elt.id+' '+elt.className);
      elt.className = (all || (elt.id.indexOf(id) >= 0))? 
        "chosen section" : "section";
      //Msg(elt.id+': '+elt.className);
    }
    if (elt.className.match(/arrow/)) {
      elt.style.display = all? "none" : "";
    }
  }
/*
  Msg('wasAtId '+wasAtId+' nowAtId '+id);
  if (wasAtId && (wasAtId.indexOf(id) >=0)) {
    Msg('wasAt!');
    return true;
  } else {
    return false;
  }
*/
}