function display_current_radio_button()
{
  radio_selection=Theme;
  if (Theme == "Mercury") {
    document.Theme_Selection.theme[0].checked=true;
    chgcell_current(document.getElementById("td_mercury"));
    return;
  }
  else if (Theme == "Earth") {
    document.Theme_Selection.theme[2].checked=true;
    chgcell_current(document.getElementById("td_earth"));
    return;
  }
  else if (Theme == "Mars") {
    document.Theme_Selection.theme[3].checked=true;
    chgcell_current(document.getElementById("td_mars"));
    return;
  }
  else if (Theme == "Neptune") {
    document.Theme_Selection.theme[4].checked=true;
    chgcell_current(document.getElementById("td_neptune"));
    return;
  }
  else if (Theme == "Pluto") {
    document.Theme_Selection.theme[5].checked=true;
    chgcell_current(document.getElementById("td_pluto"));
    return;
  }
  else {
    document.Theme_Selection.theme[1].checked=true;
    chgcell_current(document.getElementById("td_venus"));
    return;
  }
}

function set_radio_button(theme)
{
  if (theme == "Mercury") {
    document.Theme_Selection.theme[0].checked=true;
    if (Theme != "Venus") {
      document.getElementById("td_venus").className='theme_out';
    }
    if (Theme != "Earth") {
      document.getElementById("td_earth").className='theme_out';
    }
    if (Theme != "Mars") {
      document.getElementById("td_mars").className='theme_out';
    }
    if (Theme != "Neptune") {
      document.getElementById("td_neptune").className='theme_out';
    }
    if (Theme != "Pluto") {
      document.getElementById("td_pluto").className='theme_out';
    }
    return;
  }
  if (theme == "Venus") {
    document.Theme_Selection.theme[1].checked=true;
    if (Theme != "Mercury") {
      document.getElementById("td_mercury").className='theme_out';
    }
    if (Theme != "Earth") {
      document.getElementById("td_earth").className='theme_out';
    }
    if (Theme != "Mars") {
      document.getElementById("td_mars").className='theme_out';
    }
    if (Theme != "Neptune") {
      document.getElementById("td_neptune").className='theme_out';
    }
    if (Theme != "Pluto") {
      document.getElementById("td_pluto").className='theme_out';
    }
    return;
  }
  if (theme == "Earth") {
    document.Theme_Selection.theme[2].checked=true;
    if (Theme != "Mercury") {
      document.getElementById("td_mercury").className='theme_out';
    }
    if (Theme != "Venus") {
      document.getElementById("td_venus").className='theme_out';
    }
    if (Theme != "Mars") {
      document.getElementById("td_mars").className='theme_out';
    }
    if (Theme != "Neptune") {
      document.getElementById("td_neptune").className='theme_out';
    }
    if (Theme != "Pluto") {
      document.getElementById("td_pluto").className='theme_out';
    }
    return;
  }
  if (theme == "Mars") {
    document.Theme_Selection.theme[3].checked=true;
    if (Theme != "Mercury") {
      document.getElementById("td_mercury").className='theme_out';
    }
    if (Theme != "Venus") {
      document.getElementById("td_venus").className='theme_out';
    }
    if (Theme != "Earth") {
      document.getElementById("td_earth").className='theme_out';
    }
    if (Theme != "Neptune") {
      document.getElementById("td_neptune").className='theme_out';
    }
    if (Theme != "Pluto") {
      document.getElementById("td_pluto").className='theme_out';
    }
    return;
  }
  if (theme == "Neptune") {
    document.Theme_Selection.theme[4].checked=true;
    if (Theme != "Mercury") {
      document.getElementById("td_mercury").className='theme_out';
    }
    if (Theme != "Venus") {
      document.getElementById("td_venus").className='theme_out';
    }
    if (Theme != "Earth") {
      document.getElementById("td_earth").className='theme_out';
    }
    if (Theme != "Mars") {
      document.getElementById("td_mars").className='theme_out';
    }
    if (Theme != "Pluto") {
      document.getElementById("td_pluto").className='theme_out';
    }
    return;
  }
  if (theme == "Pluto") {
    document.Theme_Selection.theme[5].checked=true;
    if (Theme != "Mercury") {
      document.getElementById("td_mercury").className='theme_out';
    }
    if (Theme != "Venus") {
      document.getElementById("td_venus").className='theme_out';
    }
    if (Theme != "Earth") {
      document.getElementById("td_earth").className='theme_out';
    }
    if (Theme != "Mars") {
      document.getElementById("td_mars").className='theme_out';
    }
    if (Theme != "Neptune") {
      document.getElementById("td_neptune").className='theme_out';
    }
    return;
  }
}

function chgcell_selected(EL,THEME)
{
  var cell=EL;
  if (Theme == THEME) {
    set_radio_button(Theme);
    return;
  }
  cell.className='theme_selected';
}

function chgcell_over(EL,THEME)
{
  var cell=EL;
  if (Theme != THEME) {
    if (cell.className != 'theme_selected') {
      cell.className='theme_over';
    }
  }
}

function chgcell_current(EL,THEME)
{
  var cell=EL;
  if (cell.className != 'theme_selected') {
    cell.className='theme_current';
  }
}

function chgcell_out(EL,THEME)
{
  var cell=EL;
  if (Theme == THEME) {
    return;
  }
  if (cell.className != 'theme_selected') {
    cell.className='theme_out';
  }
}