var menuColor="ddd";
var menuText="black";
var menuHighlight="#0072bc";
var menuHighlightText="white";
var menuSpacing=20;
var timer;

var vm=new Array();
var hl=new Array();
var pr=new Array();

chand=document.all?"hand":"pointer";
document.write("<style>");
document.write("table.menu { z-index:2;color:#c4161c; border: 2px solid #c4161c; background-color: "+menuColor+"; visibility: hidden; position:absolute; cursor: "+chand+" }");
document.write("td.menuitem { z-index:2;padding-left:2ex; height: "+menuSpacing+"px; font-family: MS Sans Serif, Arial, Tahoma, sans-serif; font-size: 8pt;}");
document.write("div {padding:0;margin:0}");
document.write("</style>");


function el(n) {
	if(document.getElementById)
		return document.getElementById(n);
	else
		return document.all[n];
}

function vmfind(t) {
	var i;
	for(i=0;i<vm.length;i++)
		if(vm[i]==t) return i;
	return -1;
}

function vmclear(x) {
	var v=new Array(),e;
	for(i=0;i<=x;i++) v[i]=vm[i];
	for(i=vm.length-1;i>x;i--) {
		e=el(vm[i]);
		if(e && e.className=="menu") {
			e.style.visibility="hidden";
			sethl(vm[i]);
		}
	}
	vm=v;
}

function vmadd(n) {
	vm[vm.length]=n;
}

function setchild(a,b) {
	var i=vmfind(a);
	vmclear(i);
	if(i<0) vmadd(a);
	vmadd(b);
}

function dbg(a) { el("status").innerHTML+=a+", "; }

function cm(e) {
	var c,r,d,t,i,di,c2,j;
	if(window.event) {
		c2=this; r=window.event.toElement;
	} else {
		c2=e.currentTarget; r=e.relatedTarget;
	}

	if(!r) return;

	t=false;
	d=r;
	while(d) {
		di=vmfind(d.id);
		t=t||(di>=0);
		d=d.parentNode;
	}
	if(t==false) {
		if(timer) clearTimeout(timer);
		timer=setTimeout("vmclear(0);",500);
		return;
	}
	
	c=c2;
	while(c) {
		d=r;
		t=false;
		while(d) {
			t=t||c==d;
			di=vmfind(d.id);
			t=t||(di>=0 && di>=vmfind(c.id)-1);
			d=d.parentNode;
		}
		i=vmfind(c.id);
		if(!t) {
			vmclear(i-1);
			c=vm[i-1];
		} else if(i+1<vm.length && i>=0) {
			c=vm[i+1];
		} else {
			return;
		}
	}
}

function hidepop(p) {
	if(timer) clearTimeout(timer);

	var i=vmfind(p);
	if(i>=0) vmclear(i);
}


function popmenu(p,c,x,y) {
	if(timer) clearTimeout(timer);

	var e,xa=0,ya=0,pe;
	var i;
	i=vmfind(c);
	if(i>=0) return;
	pe=el(p);
	if(pe.className=="menu") {
		xa=parseInt(pe.style.left)-4;
		ya=parseInt(pe.style.top);
	} else pe.onmouseout=cm;
	setchild(p,c);
	e=el(c);
	e.style.left=(x+xa)+"px";
	e.style.top=(y+ya)+"px";
	e.style.visibility="visible";
}

var nm,mw,mi;
function addmenu(n,w) {
	nm=n;
	mw=w;
	mi=0;
	document.write("<table class=menu id='"+n+"' style='width: "+w+"px' cellspacing=0 cellpadding=0>");
	hl[nm]=null;
}

function sethl(m,mi) {
	//dbg(m+", "+mi);
	if(mi==hl[m]) return;
	if(hl[m]) {
		el(hl[m]).style.backgroundColor="";
		el(hl[m]).style.color=menuText;
	}
	if(mi) {
		el(mi).style.backgroundColor=menuHighlight;
		el(mi).style.color=menuHighlightText;
	}
	hl[m]=mi;
}

function highlight(e) {
	var c,i;
	if(window.event) {
		c=this;
	} else {
		c=e.currentTarget;
	}
	sethl(pr[c.id],c.id);
}

var ii=0;
function additem(n,a) {
	if(a)
		document.write("<tr valign=center id=mi"+ii+"><td colspan=2 class=menuitem style='width: "+mw+"px' onmouseover='hidepop(\""+nm+"\")' onmousedown='browseto(\""+a+"\")'>"+n+"</td></tr>");
	else
		document.write("<tr valign=center id=mi"+ii+"><td class=menuitem style='width: "+mw+"px' onmouseover='popmenu(\""+nm+"\",\""+n+"\","+mw+","+(mi*menuSpacing)+")'>"+n+"</td><td align=right><img src=images/arrow.gif width=12 height=5></td></tr>");
	mi=mi+1;
	el("mi"+ii).onmouseover=highlight;
	el("mi"+ii).style.color=menuText;
	pr["mi"+ii]=nm;
	ii=ii+1
}

function endmenu() {
	document.write("</div>");
	el(nm).onmouseout=cm;
}

function browseto(a) {
	vmclear(-1);
	el("subframe").src=a;
//	window.open(a,"main");
}