var btnidx=0;

function putTextButton(url, title, classname)
		{
		wl('<a href="'+url+'" class="'+classname+'">'+title+'</a>');
		}
		
		
function putImageButton(url, title, image)
		{
		var	btnid='menu'+btnidx;
		
		putImageButtonId(btnid, url, title, image);
		btnidx++;
		}


function putImageButtonId(id, url, title, image)
		{
		var	base, ext;
		var i;


		i = image.lastIndexOf('.');
		base = image.substring(0, i);
		ext = image.substring(i);

		//wlbr('id = '+id);
		//wlbr('image = '+image);
		//wlbr('base = '+base);
		//wlbr('ext = '+ext);

		var imageOver = base+'-over'+ext;
		var imageDown = base+'-down'+ext;

		w('<a href="'+url+'">');
		w('<img border="0" id="'+id+'" align="bottom" src="'+image+'" alt="'+title+'"');
		w(' onmouseover="setButtonImage(\''+id+'\', \''+imageOver+'\')"');
		w(' onmouseout="setButtonImage(\''+id+'\', \''+image+'\')"');
		w(' onmousedown="setButtonImage(\''+id+'\', \''+imageDown+'\')"');
		w(' onmouseup="setButtonImage(\''+id+'\', \''+imageOver+'\')"');
		w('>');
		wl('</a>');
		//w(' ');
		}


function setButtonImage(id, image)
		{
		var	iobj;

		iobj = FP_getObjectByID(id);
		if (iobj) iobj.src = image;
		}


function preloadImages()
		{
		var d=document,a=arguments;
		
		if(!d.imageArray) d.imageArray=new Array();
		for (var i=0; i<a.length; i++)
			{
			d.imageArray[i]=new Image;
			d.imageArray[i].src=a[i];
			}
		}


function FP_swapImg() {//v1.0
 var doc=document,args=arguments,elm,n; doc.$imgSwaps=new Array(); for(n=2; n<args.length;
 n+=2) { elm=FP_getObjectByID(args[n]); if(elm) { doc.$imgSwaps[doc.$imgSwaps.length]=elm;
 elm.$src=elm.src; elm.src=args[n+1]; } }
}

function FP_preloadImgs() {//v1.0
 var d=document,a=arguments; if(!d.FP_imgs) d.FP_imgs=new Array();
 for(var i=0; i<a.length; i++) { d.FP_imgs[i]=new Image; d.FP_imgs[i].src=a[i]; }
}

function FP_getObjectByID(id,o) {//v1.0
 var c,el,els,f,m,n; if(!o)o=document; if(o.getElementById) el=o.getElementById(id);
 else if(o.layers) c=o.layers; else if(o.all) el=o.all[id]; if(el) return el;
 if(o.id==id || o.name==id) return o; if(o.childNodes) c=o.childNodes; if(c)
 for(n=0; n<c.length; n++) { el=FP_getObjectByID(id,c[n]); if(el) return el; }
 f=o.forms; if(f) for(n=0; n<f.length; n++) { els=f[n].elements;
 for(m=0; m<els.length; m++){ el=FP_getObjectByID(id,els[n]); if(el) return el; } }
 return null;
}