//Scripts développés par Olivier Hondermarck  webmaster@toutjavascript.com

var menu=new CreerMenu("Accès direct aux pages ...","self","-->  ");
// CreerMenu(Titre de la liste déroulante,target,carac)
//   target=nom de la frame ou "self" si c'est la fenetre elle meme, "new" pour une nouvelle fenêtre
//   carac=caracteres à afficher devant les lignes ayant un lien
// Pour ajouter les liens dans les listes, utiliser menu.Add
// Menu.Add(profondeur d'arborescence, texte, page à charger)

menu.Add(1,"Home","http://www.perso.ch/portfolioplongee/index.html");
menu.Add(1,"Faune","http://www.perso.ch/portfolioplongee/faune.htm");
	menu.Add(2,"Dauphins","http://www.perso.ch/portfolioplongee/faune/dauphins.htm");
	menu.Add(2,"Requins","http://www.perso.ch/portfolioplongee/faune/requins.htm");
	menu.Add(2,"Requins baleine","http://www.perso.ch/portfolioplongee/faune/requinsbaleine.htm");
	menu.Add(2,"Raies manta","http://www.perso.ch/portfolioplongee/faune/mantas.htm");
	menu.Add(2,"Otaries et tortues","http://www.perso.ch/portfolioplongee/faune/otaries.htm");
	menu.Add(2,"Anges, perroquets et rascasses","http://www.perso.ch/portfolioplongee/faune/divers.htm");
	menu.Add(2,"Poissons clown","http://www.perso.ch/portfolioplongee/faune/clowns.htm");
	menu.Add(2,"Gobies et blennies","http://www.perso.ch/portfolioplongee/faune/gobies.htm");
	menu.Add(2,"Nudibranches","http://www.perso.ch/portfolioplongee/faune/nudibranches.htm");
	menu.Add(2,"Polypes de corail et gorgones","http://www.perso.ch/portfolioplongee/faune/polypes.htm");
menu.Add(1,"Plongeurs en action","http://www.perso.ch/portfolioplongee/plongeurs.htm");
	menu.Add(2,"Baptème de plongée de Liam","http://www.perso.ch/portfolioplongee/liam.htm");
menu.Add(1,"Photos d'ambiance","http://www.perso.ch/portfolioplongee/ambiance.htm");
menu.Add(1,"Photos d'épaves","http://www.perso.ch/portfolioplongee/epaves.htm");
menu.Add(1,"Tri par lieu :","");
	menu.Add(2,"Manado, Bunaken","");
		menu.Add(3,"Manado, Bunaken 2009","http://www.perso.ch/portfolioplongee/sites/bunaken.htm");
		menu.Add(3,"Manado, Bunaken 2009, suite","http://www.perso.ch/portfolioplongee/sites/bunaken_2.htm");
		menu.Add(3,"Manado, Bunaken 2009, fin","http://www.perso.ch/portfolioplongee/sites/bunaken_3.htm");
	menu.Add(2,"Caraibes, Guadeloupe","http://www.perso.ch/portfolioplongee/sites/caraibes.htm");
	menu.Add(2,"Djibouti","http://www.perso.ch/portfolioplongee/sites/djibouti.htm");
	menu.Add(2,"Galapagos","http://www.perso.ch/portfolioplongee/sites/galapagos.htm");
	menu.Add(2,"Maldives :","");
		menu.Add(3,"Male sud, Ari, Felidhoo, Nilandhoo croisière 2002","http://www.perso.ch/portfolioplongee/sites/maldives_2002.htm");
		menu.Add(3,"Male sud, Ari, Felidhoo, Nilandhoo croisière 2002, suite","http://www.perso.ch/portfolioplongee/sites/maldives_2002_2.htm");
		menu.Add(3,"Male sud et Felidhoo, croisière 1997","http://www.perso.ch/portfolioplongee/sites/maldives_1997.htm");
		menu.Add(3,"Male sud et Felidhoo, croisière 1997, suite","http://www.perso.ch/portfolioplongee/sites/maldives_1997_2.htm");
	menu.Add(2,"Méditerannée :","");
		menu.Add(3,"Marseille, Bandor","http://www.perso.ch/portfolioplongee/sites/mediterr.htm");
	menu.Add(2,"Mer Rouge :","");
		menu.Add(3,"Hurghada","http://www.perso.ch/portfolioplongee/sites/hurghada.htm");
		menu.Add(3,"Sharm el Sheik, croisière 2001","http://www.perso.ch/portfolioplongee/sites/sharm_el_sheik.htm");
		menu.Add(3,"Sharm el Sheik, croisière 2001, suite","http://www.perso.ch/portfolioplongee/sites/sharm_el_sheik_2.htm");
		menu.Add(3,"Soudan 2003","http://www.perso.ch/portfolioplongee/sites/soudan_2003.htm");
                menu.Add(3,"Soudan 2003, suite","http://www.perso.ch/portfolioplongee/sites/soudan_2003_2.htm");
		menu.Add(3,"Soudan 2004","http://www.perso.ch/portfolioplongee/sites/soudan_2004.htm");
                menu.Add(3,"Soudan 2004, suite","http://www.perso.ch/portfolioplongee/sites/soudan_2004_2.htm");
	menu.Add(2,"Iles Calamian, Philippines","http://www.perso.ch/portfolioplongee/sites/philippines.htm");
	menu.Add(2,"Ile Maurice","http://www.perso.ch/portfolioplongee/sites/maurice.htm");
	menu.Add(2,"Iles Socorro, Mexique","http://www.perso.ch/portfolioplongee/sites/mexique.htm");
	menu.Add(2,"Iles Socorro, Mexique, suite","http://www.perso.ch/portfolioplongee/sites/mexique_2.htm");
	menu.Add(2,"Rangiroa, Polynesie","http://www.perso.ch/portfolioplongee/sites/polynesi.htm");
menu.Add(1,"Dernières modifications du site","http://www.perso.ch/portfolioplongee/nouveautes.htm");
menu.Add(1,"L'auteur, contact","http://www.perso.ch/portfolioplongee/contact.htm");
menu.Add(1,"Liens divers","http://www.perso.ch/portfolioplongee/liens.htm");

function CreerMenu(titre,target,carac) {
	this.nb=0;this.titre=titre;this.target=target;this.carac=carac;
	this.Add=AddObjet;
	this.Aff=AffMenu;
}

function AddObjet(deep,txt,page) {
	var rub = new Object;
	rub.deep=deep;
	rub.txt=txt;
	rub.page=page;
	this[this.nb]=rub;
	this.nb++;
}

function space(i) {var Z="";for (var j=1;j<i;j++){Z+="&nbsp;&nbsp;&nbsp;&nbsp;";}return Z}
function AffMenu() {
	var Z="<FORM name='mf'>";var z="";
	Z+="<SELECT size=1 name='tjs' onChange='Clic(this.form);'><OPTION>"+this.titre+"</OPTION>";
	for (var i=0;i<this.nb;i++) {
		z=""; if ((this[i].page!="")&&(this[i].page!=null)) {z=this.carac}
		Z+="<OPTION value='"+this[i].page+"'>"+space(this[i].deep)+z+this[i].txt+"</OPTION>"
	}
	Z+="</SELECT>";
	Z+="</FORM>";
	document.write(Z);
}

function Clic(f){
	var i=f.elements["tjs"].selectedIndex-1;
	if (i>=0) {
		var page=menu[i].page;
		if ((page!="")&&(page!=null)) {
			if (menu.target=="self") {window.location=page}
			else if (menu.target=="new") {window.open(page,'newf','scrollbars=yes')}
			else {parent.frames[menu.target].window.location=page}
		}
	}
}

function changer(txt) {
	document.forms[0].elements[0].value=txt
}