//----- VARIABLES -----
var root

//----- FUNCTIONS -----  
function buildMenu()
{
  //Level ID = Father ID, Menu Name, Link to Page
  root     =addToMenuTree(0, " ", "index.html")   //dummy menu point

  menu0    =addToMenuTree(root,  "Eine persönliche Erklärung",                                   "einleitung.html")

  menuA    =addToMenuTree(root,  "A. Die Schweiz setzt sich mit dem EWR auseinander",            "kapitela.html")
   menuA1  =addToMenuTree(menuA, "1. Die Interpretation des EWR",                                "kapitela.html#begin")
    menuA1a=addToMenuTree(menuA1,"a. Die Sicht der Befürworter",                                 "kapitela.html#1a")
    menuA1b=addToMenuTree(menuA1,"b. Die Sicht der Gegner",                                      "kapitela.html#1b")
   menuA2  =addToMenuTree(menuA, "2. Die Lösungssuche",                                          "kapitela.html#2")
    menuA2a=addToMenuTree(menuA2,"a. Die Stellungnahme des Bundesrates",                         "kapitela.html#2a")
    menuA2b=addToMenuTree(menuA2,"b. Gedankliche Grundlagen des Lösungsversuches",               "kapitela.html#2b")
   menuA3  =addToMenuTree(menuA, "3. Ergebnisse",                                                "kapitela.html#3")
    menuA3a=addToMenuTree(menuA3,"a. Die entscheidenden Gesichtspunkte: Wirtschaft, Schweiz, EG","kapitela.html#3a")
    menuA3b=addToMenuTree(menuA3,"b. Die Argumentation",                                         "kapitela.html#3b")
    menuA3c=addToMenuTree(menuA3,"c. Zustand der Gesellschaft",                                  "kapitela.html#3c")
    menuA3d=addToMenuTree(menuA3,"d. Die sinnstiftenden Gegebenheiten",                          "kapitela.html#3d")

  menuB    =addToMenuTree(root,  "B. Europas Weg",                                               "kapitelb.html")
   menuB1  =addToMenuTree(menuB, "1. Sein Ursprung: Kreta",                                      "kapitelb.html#begin")
   menuB2  =addToMenuTree(menuB, "2. Israel",                                                    "kapitelb.html#2")
   menuB3  =addToMenuTree(menuB, "3. Griechenland",                                              "kapitelb.html#3")
    menuB3a=addToMenuTree(menuB3,"a. Göttertaten",                                               "kapitelb.html#3a")
    menuB3b=addToMenuTree(menuB3,"b. Wandlung des Menschen",                                     "kapitelb.html#3b")
    menuB3c=addToMenuTree(menuB3,"c. Das Gemeinschaftswesen",                                    "kapitelb.html#3c")
    menuB3d=addToMenuTree(menuB3,"d. Erträge griechischen Lebens",                               "kapitelb.html#3d")
   menuB4  =addToMenuTree(menuB, "4. Das römische Reich",                                        "kapitelb.html#4")
    menuB4a=addToMenuTree(menuB4,"a. Der archaische Mensch",                                     "kapitelb.html#4a")
    menuB4b=addToMenuTree(menuB4,"b. Zeit der Republik",                                         "kapitelb.html#4b")
    menuB4c=addToMenuTree(menuB4,"c. Zeit der Monarchie",                                        "kapitelb.html#4c")
    menuB4d=addToMenuTree(menuB4,"d. Errungenschaften Roms",                                     "kapitelb.html#4d")
   menuB5  =addToMenuTree(menuB, "5. Christliche Botschaft",                                     "kapitelb.html#5")
    menuB5a=addToMenuTree(menuB5,"a. Der neue Bund",                                             "kapitelb.html#5a")
    menuB5b=addToMenuTree(menuB5,"b. Unser Vater",                                               "kapitelb.html#5b")
    menuB5c=addToMenuTree(menuB5,"c. Aufgabe des Menschen",                                      "kapitelb.html#5c")
    menuB5d=addToMenuTree(menuB5,"d. Urchristliche Gemeinde",                                    "kapitelb.html#5d")
   menuB6  =addToMenuTree(menuB, "6. Wege ins Irdisch – Zeitliche",                              "kapitelb.html#6")
    menuB6a=addToMenuTree(menuB6,"a. Der Weg der Kirche",                                        "kapitelb.html#6a")
    menuB6b=addToMenuTree(menuB6,"b. Der Weg des Menschen",                                      "kapitelb.html#6b")
    menuB6c=addToMenuTree(menuB6,"c. Der Weg des Staates",                                       "kapitelb.html#6c")
   menuB7  =addToMenuTree(menuB, "7. Das 13. Jahrhundert: Höhepunkt und Krisis",                 "kapitelb.html#7")
   menuB8  =addToMenuTree(menuB, "8. Zwischenbilanz",                                            "kapitelb.html#8")
  
  menuC    =addToMenuTree(root,  "C. Weg der Schweiz",                                           "kapitelc.html")
   menuC1  =addToMenuTree(menuC, "1. Zum Ursprung",                                              "kapitelc.html#begin")
    menuC1a=addToMenuTree(menuC1,"a. Mutterboden",                                               "kapitelc.html#1a")
    menuC1b=addToMenuTree(menuC1,"b. Der Mensch",                                                "kapitelc.html#1b")
    menuC1c=addToMenuTree(menuC1,"c. Christianisierung",                                         "kapitelc.html#1c")
   menuC2  =addToMenuTree(menuC, "2. Leben in vorstaatlicher Zeit",                              "kapitelc.html#2")
    menuC2a=addToMenuTree(menuC2,"a. Zwei universale Mächte Europas",                            "kapitelc.html#2a")
    menuC2b=addToMenuTree(menuC2,"b. Religiöses Leben im Volk",                                  "kapitelc.html#2b")
    menuC2c=addToMenuTree(menuC2,"c. Vorstaatlicher Mensch",                                     "kapitelc.html#2c")
    menuC2d=addToMenuTree(menuC2,"d. Herrschaftlicher Feudalismus",                              "kapitelc.html#2d")
    menuC2e=addToMenuTree(menuC2,"e. Gemeinschaft",                                              "kapitelc.html#2e")
   menuC3  =addToMenuTree(menuC, "3. Geburt der Eidgenossenschaft aus der geistigen Urschweiz",  "kapitelc.html#3")
    menuC3a=addToMenuTree(menuC3,"a. Formkräfte",                                                "kapitelc.html#3a")
    menuC3b=addToMenuTree(menuC3,"b. Bundesgemeinschaft",                                        "kapitelc.html#3b")
    menuC3c=addToMenuTree(menuC3,"c. Entfaltung staatlicher Existenz auf dem Weg zum Staatswesen","kapitelc.html#3c")
    menuC3d=addToMenuTree(menuC3,"d. Die Ergebnisse der ersten Phase",                           "kapitelc.html#3d")
   menuC4  =addToMenuTree(menuC, "4. Im Kampf um den Eigenstand: Anpassung und Widerstand",      "kapitelc.html#4")
    menuC4a=addToMenuTree(menuC4,"a. Die lieben Nachbarn",                                       "kapitelc.html#4a")
    menuC4b=addToMenuTree(menuC4,"b. Anpassung und Zusammenarbeit mit ausländischen Mächten",    "kapitelc.html#4b")
    menuC4c=addToMenuTree(menuC4,"c. Wirkungen eidgenössischen Lebens in der Schweiz",           "kapitelc.html#4c")
   menuC5  =addToMenuTree(menuC, "5. Auf dem Weg Europas",                                       "kapitelc.html#5")
    menuC5a=addToMenuTree(menuC5,"a. Verstaatung",                                               "kapitelc.html#5a")
    menuC5b=addToMenuTree(menuC5,"b. Aufklärung",                                                "kapitelc.html#5b")
    menuC5c=addToMenuTree(menuC5,"c. Innere Zustände der Eidgenossenschaft",                     "kapitelc.html#5c")
    menuC5d=addToMenuTree(menuC5,"d. Der Weg der Schweiz im 18. Jahrhundert",                    "kapitelc.html#5d")
    menuC5e=addToMenuTree(menuC5,"e. Verhältnis zum Ausland",                                    "kapitelc.html#5e")
    menuC5f=addToMenuTree(menuC5,"f. Der Sonderfall auf seinem Weg zum Bundesstaat",             "kapitelc.html#5f")
    menuC5g=addToMenuTree(menuC5,"g. Ergebnisse der zweiten Phase, 16.-19. Jahrhundert",         "kapitelc.html#5g")
   menuC6  =addToMenuTree(menuC, "6. Errungenschaftsgemeinschaft Eidgenossenschaft: Zwischenbilanz","kapitelc.html#6")
    menuC6a=addToMenuTree(menuC6,"a. Die Gemeinschaft und der Einzelmensch",                     "kapitelc.html#6a")
    menuC6b=addToMenuTree(menuC6,"b. Früchte des Lebens",                                        "kapitelc.html#6b")
    menuC6c=addToMenuTree(menuC6,"c. Aufgabe der Schweiz",                                       "kapitelc.html#6c")
  
  menuD    =addToMenuTree(root,  "D. Zum Weg Europas in der Neuzeit",                            "kapiteld.html")
   menuD1  =addToMenuTree(menuD, "1. Der Mensch",                                                "kapiteld.html#begin")
   menuD2  =addToMenuTree(menuD, "2. Der Staat",                                                 "kapiteld.html#2")
    menuD2a=addToMenuTree(menuD2,"a. Seine Entwicklung",                                         "kapiteld.html#2a")
    menuD2b=addToMenuTree(menuD2,"b. Seine Ziele",                                               "kapiteld.html#2b")
    menuD2c=addToMenuTree(menuD2,"c. Seine Mittel",                                              "kapiteld.html#2c")
    menuD2d=addToMenuTree(menuD2,"d. Seine Wirkung",                                             "kapiteld.html#2d")
   menuD3  =addToMenuTree(menuD, "3. Die Struktur der Gemeinschaft",                             "kapiteld.html#3")
   menuD4  =addToMenuTree(menuD, "4. Die Botschaft vom Menschenrecht",                           "kapiteld.html#4")
    menuD4a=addToMenuTree(menuD4,"a. Frankreich vor der Revolution",                             "kapiteld.html#4a")
    menuD4b=addToMenuTree(menuD4,"b. Die Grosse Revolution",                                     "kapiteld.html#4b")
    menuD4c=addToMenuTree(menuD4,"c. Zum Ertrag der Französischen Revolution",                   "kapiteld.html#4c")
    menuD4d=addToMenuTree(menuD4,"d. Die deutsche Revolution",                                   "kapiteld.html#4d")
    menuD4e=addToMenuTree(menuD4,"e. Das revolutionäre Europa",                                  "kapiteld.html#4e")
  
  menuE    =addToMenuTree(root,  "E. Der Weg Europas aus der Vogelschau",                        "kapitele.html")
   menuE1  =addToMenuTree(menuE, "1. Sakrale Kosmosordnung",                                     "kapitele.html#begin")
   menuE2  =addToMenuTree(menuE, "2. Die Polis",                                                 "kapitele.html#2")
   menuE3  =addToMenuTree(menuE, "3. Das Imperium Romanum",                                      "kapitele.html#3")
   menuE4  =addToMenuTree(menuE, "4. Das Christentum",                                           "kapitele.html#4")
   menuE5  =addToMenuTree(menuE, "5. Der Staat",                                                 "kapitele.html#5")
   menuE6  =addToMenuTree(menuE, "6. Der europäische Mensch",                                    "kapitele.html#6")
  
  menuF    =addToMenuTree(root,  "F. Europa zwischen Vergangenheit und Zukunft",                 "kapitelf.html")
   menuF1  =addToMenuTree(menuF, "1. Auftrag Europas",                                           "kapitelf.html#begin")
    menuF1a=addToMenuTree(menuF1,"a. Erdenkultur",                                               "kapitelf.html#1a")
    menuF1b=addToMenuTree(menuF1,"b. Selbstgestaltung",                                          "kapitelf.html#1b")
    menuF1c=addToMenuTree(menuF1,"c. Staat",                                                     "kapitelf.html#1c")
   menuF2  =addToMenuTree(menuF, "2. Durchführung des Auftrages",                                "kapitelf.html#2")
    menuF2a=addToMenuTree(menuF2,"a. Vergangenheitselemente",                                    "kapitelf.html#2a")
    menuF2b=addToMenuTree(menuF2,"b. Zukunftskräfte",                                            "kapitelf.html#2b")
   menuF3  =addToMenuTree(menuF, "3. Zeitprobleme harren ihrer Lösung",                          "kapitelf.html#3")
    menuF3a=addToMenuTree(menuF3,"a. Welt – Innenpolitik",                                       "kapitelf.html#3a")
    menuF3b=addToMenuTree(menuF3,"b. Europa auf dem Wege",                                       "kapitelf.html#3b")
    menuF3c=addToMenuTree(menuF3,"c. Der Mensch",                                                "kapitelf.html#3c")
    menuF3d=addToMenuTree(menuF3,"d. Die Gemeinschaft",                                          "kapitelf.html#3d")
    menuF3e=addToMenuTree(menuF3,"e. Der Staat",                                                 "kapitelf.html#3e")
    menuF3f=addToMenuTree(menuF3,"f. Das kulturelle Leben",                                      "kapitelf.html#3f")
    menuF3g=addToMenuTree(menuF3,"g. Die Wirtschaft",                                            "kapitelf.html#3g")
  
  menuG    =addToMenuTree(root,  "G. Die europäische Union",                                     "kapitelg.html")
   menuG1  =addToMenuTree(menuG, "1. Ihr Ursprung",                                              "kapitelg.html#begin")
   menuG2  =addToMenuTree(menuG, "2. Ihre Geschichte",                                           "kapitelg.html#2")
   menuG3  =addToMenuTree(menuG, "3. Kompetenz und Verfahren",                                   "kapitelg.html#3")
   menuG4  =addToMenuTree(menuG, "4. Verwaltungsapparat",                                        "kapitelg.html#4")
   menuG5  =addToMenuTree(menuG, "5. Ihre Folgen",                                               "kapitelg.html#5")
   menuG6  =addToMenuTree(menuG, "6. Zusammenfassende Würdigung",                                "kapitelg.html#6")
    menuG6a=addToMenuTree(menuG6,"a. Erfolge",                                                   "kapitelg.html#6a")
    menuG6b=addToMenuTree(menuG6,"b. Mängel",                                                    "kapitelg.html#6b")
    menuG6c=addToMenuTree(menuG6,"c. Lehren der Geschichte?",                                    "kapitelg.html#6c")
  
  menuH    =addToMenuTree(root,  "H. Europa in der Schweiz  -  Schweiz in Europa",               "kapitelh.html")
   menuH1  =addToMenuTree(menuH, "1. Sieben Jahre ohne EWR",                                     "kapitelh.html#begin")
    menuH1a=addToMenuTree(menuH1,"a. Der Wirtschaftsstandort",                                   "kapitelh.html#1a")
    menuH1b=addToMenuTree(menuH1,"b. Die bilateralen Verhandlungen",                             "kapitelh.html#1b")
    menuH1c=addToMenuTree(menuH1,"c. Der Integrationsbericht des Bundesrates",                   "kapitelh.html#1c")
   menuH2  =addToMenuTree(menuH, "2. Was heisst Europa?",                                        "kapitelh.html#2")
    menuH2a=addToMenuTree(menuH2,"a. Gestalt und Aufgabe",                                       "kapitelh.html#2a")
    menuH2b=addToMenuTree(menuH2,"b. Zwischen Vergangenheit und Zukunft",                        "kapitelh.html#2b")
    menuH2c=addToMenuTree(menuH2,"c. Eine schweizerische Eidgenossenschaft",                     "kapitelh.html#2c")
    menuH2d=addToMenuTree(menuH2,"d. Eine europäische Gemeinschaft",                             "kapitelh.html#2d")
    menuH2e=addToMenuTree(menuH2,"e. Europa in der Schweiz",                                     "kapitelh.html#2e")
   menuH3  =addToMenuTree(menuH, "3. Die Schweiz mit der EU",                                    "kapitelh.html#3")
    menuH3a=addToMenuTree(menuH3,"a. Pionieraufgaben der Schweiz",                               "kapitelh.html#3a")
    menuH3b=addToMenuTree(menuH3,"b. Gegenwärtiger Zustand der Schweiz",                         "kapitelh.html#3b")
    menuH3c=addToMenuTree(menuH3,"c. Die Schweiz als Mitglied der EU",                           "kapitelh.html#3c")
    menuH3d=addToMenuTree(menuH3,"d. Kooperativer 'Alleingang'",                                 "kapitelh.html#3d")
   menuH4  =addToMenuTree(menuH, "4. Gesamtbilanz",                                              "kapitelh.html#4")
  
  menuW    =addToMenuTree(root,  "Ein persönliches Wort",                                        "persoenlich.html")

  menuX    =addToMenuTree(root,  "Über den Autor",                                               "autor.html")

  menuY    =addToMenuTree(root,  "Gesamtes Werk",                                                "gesamteswerk.html")

  menuZ    =addToMenuTree(root,  "Werk herunterladen",                                           "europa_in_der_schweiz.pdf")
}

//*************************************************************************************
//    Function:  addToMenuTree(father, menuName, pageLink)                                                        
// Description:  create and initialize the menu structure/tree. the submenus are added 
//               at the end of the father array. if an array have only 6 elements,     
//               therefore no childs, so this is the last menu point menu point in the 
//               menu tree.                                                            
//*************************************************************************************
function addToMenuTree(father, menuName, pageLink)
{
  var menuPoint
    
  menuPoint = new Array()
  menuPoint[0] = 0             // 1/0 menu open/closed
  menuPoint[1] = 0             // menu level
  menuPoint[2] = 0             // # of submenus/children
  menuPoint[3] = menuName      // menu name
  menuPoint[4] = pageLink      // name of HTML page to link to

  if(father==0)                // if this is the dummy root
  {
    menuPoint[0] = 1           // Set to 1 to keep this dummy menu point open
    return menuPoint
  }
  else
  {
    child = menuPoint
    father[father.length] = child
    child[1] = father[1] +1          // child level is one plus father level
    father[2] = father[2] + 1        // increase child count of father
  }
 
  return menuPoint
}

//*************************************************************************************
//    Function:  initializeMenu()                                                      
// Description:  called on load of navigation html page. initializes/prepares menu     
//               structure in memory                                                   
//*************************************************************************************
function initializeMenu()
{
  if (parseInt(navigator.appVersion.substring(0,1))>3)  //only if browser version > 3
  {
    buildMenu()
    drawMenuPage()
  }
}  

//*************************************************************************************
//    Function:  drawMenuPage()                                                            
// Description:  called to display menu tree. only header of navigation page is created 
//               here, menu points are created recursively by calling drawMenuPoint    
//*************************************************************************************
function drawMenuPage()
{
  //display header of navigation page
  var frameDoc = top.navFrame.window.document
  frameDoc.clear()
  frameDoc.write("<body>\n")
  frameDoc.write("<table height=100 border=0 cellpadding=2 cellspacing=0>\n")
  frameDoc.write("<tr>\n")
  frameDoc.write("<td>\n")
  frameDoc.write("</td>\n")
  frameDoc.write("</tr>\n")
  frameDoc.write("</table>\n\n")

  //display menu points of navigation page
  drawMenu(root, frameDoc)

  frameDoc.close()
}  

//*************************************************************************************
//    Function:  drawMenu(menuPoint, frameDoc)                                                            
// Description:  called from 'drawMenuPage' to display menu points 
//*************************************************************************************
function drawMenu(menuPoint, frameDoc)
{
  var tableheight = 0
  var intend = 0
  var menuLine1 = ""
  var menuLine2 = ""
  var menuLine3 = ""
  var i=0
  
  if (menuPoint[1] > 0)  //only if not 'dummy' root level 
  {  
    tableheight = 42 - (menuPoint[1]) * 10      //table height in pixel 
	frameDoc.write("<table height="+tableheight+" cellpadding=2 cellspacing=0 border=0>\n")
    frameDoc.write("<tr>\n")  
  
    //display graphic with link at left side of menu point text
    frameDoc.write("<td valign=middle nowrap>\n")
    frameDoc.write("<a href='javascript:top.openMenu(\""+menuPoint[3]+"\",\""+menuPoint[4]+"\",\""+menuPoint[1]+"\")' ") 
    frameDoc.write("onMouseOver='window.status=\""+menuPoint[3]+"\";return true' style='text-decoration:none'>")

    intend = (menuPoint[1]) * 10      //intend in in pixel  
    frameDoc.write("<img src='graphics/blank.gif' width="+intend+" height=10 border=0>")    //intend with blank gif  
  
    if (menuPoint[0] == 1)    //open menu point
    {
      if (menuPoint[2] > 0)  //open menu with sub-menus
      {
        frameDoc.write("<img src='graphics/opened.gif' width=10 height=10 border=0>")   //menu point sign
      }
      else                   //open menu without sub-menus
      {
        frameDoc.write("<img src='graphics/blank.gif' width=10 height=10 border=0>")    //intend with blank gif
      }
    }
    else   //closed menu point
    {
      if(menuPoint[2] > 0)   //closed menu with sub-menus   
       {
         frameDoc.write("<img src='graphics/closed.gif' width=10 height=10 border=0>")  //menu point sign
       }
      else
       {
        frameDoc.write("<img src='graphics/blank.gif' width=10 height=10 border=0>")    //intend with blank gif
       } 
    }

    //divide menu point text in two parts/lines if too long
    menuLine1 = menuPoint[3]
    while (menuLine1.length > 31)
    {
      menuLine2 = menuLine1.substring(menuLine1.lastIndexOf(" "),menuLine1.length) + menuLine2
      menuLine1 = menuLine1.substring(0,menuLine1.lastIndexOf(" "))

      while (menuLine2.length > 25)
      {
        menuLine3 = menuLine2.substring(menuLine2.lastIndexOf(" "),menuLine2.length) + menuLine3
        menuLine2 = menuLine2.substring(0,menuLine2.lastIndexOf(" "))
      }
    }

    //display menu point text
    frameDoc.write("<font size=-1><tt>"+menuLine1)
    if (menuLine2 != "")
    {
      frameDoc.write("<br><img src='graphics/blank.gif' width="+(intend+22)+" height=10 border=0>")    //intend with blank gif
      frameDoc.write(menuLine2)

      if (menuLine3 != "")
      {
        frameDoc.write("<br><img src='graphics/blank.gif' width="+(intend+22)+" height=10 border=0>")  //intend with blank gif
        frameDoc.write(menuLine3)
      }
    }
    frameDoc.write("</tt></font></a></td>\n</tr>\n")
    frameDoc.write("</table>\n\n")
  }

  //if menu point is open and more sub-menus exists then display sub-menus recursively
  if ((menuPoint.length > 5) && menuPoint[0]) 
  {
     //display sub-menus
    for (i=5 ; i < menuPoint.length; i++)
    {
      drawMenu(menuPoint[i], frameDoc)
    }
  }

}

//*************************************************************************************
//    Function:  openMenu(menuName, pageLink, menuLevel)                                                            
// Description:  called if clicked on menu point 
//*************************************************************************************
function openMenu(menuName, pageLink, menuLevel)
{
  //open clicked menu point
  openMenuPoint(root,menuName,menuLevel)
  
  //show new page in main frame
  top.mainFrame.location=pageLink  

  redrawMenu = setTimeout("drawMenuPage()",100)
}

//*************************************************************************************
//    Function:  openMenuPoint(menuPoint, menuName, menuLevel)                                                            
// Description:  called by openMenu. opens clicked menu point  
//*************************************************************************************
function openMenuPoint(menuPoint, menuName, menuLevel)
{
  var i=0

  //close open menu point on same menu level  
  if ((menuPoint[3]!= menuName) && (menuPoint[1]== menuLevel) && (menuPoint[0]==1))
  { 
    closeMenuPoint(menuPoint)    //close all its submenus 
  } 

  if (menuPoint[3] == menuName)  //menu point to be opened
  {
    //menu point to be opened    
	if ((menuPoint[0]==1) && (menuPoint[2] > 0))  //close menu point if already open
	{
      closeMenuPoint(menuPoint)  //close all its submenus
	}
    else
      menuPoint[0] = 1
  } 
  else
  {
    //other menu point
    for (i=5; i < menuPoint.length ; i++)
      openMenuPoint(menuPoint[i], menuName, menuLevel)
  }
}

//*************************************************************************************
//    Function:  closeMenuPoints(menuPoint)                                                            
// Description:  called by openMenuPoint to close all submenus of closing menu point   
//*************************************************************************************
function closeMenuPoint(menuPoint)
{
  var i=0

  for (i=5; i< menuPoint.length; i++)
    closeMenuPoint(menuPoint[i])

  menuPoint[0] = 0
}