<!--


//Default browsercheck, added to all scripts!

function checkBrowser(){

	this.ver=navigator.appVersion

	this.dom=document.getElementById?1:0

	this.ie5=(this.ver.indexOf("MSIE 5")>-1 && this.dom)?1:0;

	this.ie4=(document.all && !this.dom)?1:0;

	this.ns5=(this.dom && parseInt(this.ver) >= 5) ?1:0;

	this.ns4=(document.layers && !this.dom)?1:0;

	this.bw=(this.ie5 || this.ie4 || this.ns4 || this.ns5)

	return this

}

bw=new checkBrowser()

/**************************************************************************

Variables to set.

***************************************************************************/

//Updated: Added left and top variables.

sLeft=0 //The left placement of the menu

sTop=0 //The top placement of the menu


//The height of the menu

sMenuheight=300


//Width of the arrows

sArrowwidth=0


//Scroll speed: (in milliseconds, change this one and the next variable to change the speed)

sScrollspeed=20


//Pixels to scroll per timeout.

sScrollPx=10


/**************************************************************************

Scrolling functions

***************************************************************************/

var tim=0

var noScroll=true

function mLeft(){

	if (!oMenu) return;

	if(!noScroll && oMenu.x<sArrowwidth){

		oMenu.moveBy(sScrollPx,0)

		tim=setTimeout("mLeft()",sScrollspeed)

	}

}

function mRight(){

	if (!oMenu) return;

	if(!noScroll && oMenu.x>-(oMenu.scrollWidth-(pageWidth))-sArrowwidth){

		oMenu.moveBy(-sScrollPx,0)

		tim=setTimeout("mRight()",sScrollspeed)

	}

}

function noMove(){clearTimeout(tim); noScroll=true}

/**************************************************************************

Object part

***************************************************************************/

function makeObj(obj,nest,menu){

	nest=(!nest) ? '':'document.'+nest+'.'										

   	this.css=bw.dom? document.getElementById(obj).style:bw.ie4?document.all[obj].style:bw.ns4?eval(nest+"document.layers." +obj):0;		

	this.evnt=bw.dom? document.getElementById(obj):bw.ie4?document.all[obj]:bw.ns4?eval(nest+"document.layers." +obj):0;		

	this.scrollWidth=bw.ns4?this.css.document.width:this.evnt.offsetWidth

	this.x=(bw.ns4 || bw.ns5)? this.css.left:this.css.pixelLeft;

	this.y=(bw.ns4 || bw.ns5)? this.css.top:this.css.pixelTop;		

	this.moveBy=b_moveBy; this.moveIt=b_moveIt;	this.showIt=b_showIt;this.clipTo=b_clipTo;

	return this

}

function b_moveBy(x,y){this.x=this.x+x; this.y=this.y+y; this.css.left=this.x; this.css.top=this.y}

function b_moveIt(x,y){this.x=x; this.y=y; this.css.left=this.x; this.css.top=this.y}

function b_clipTo(t,r,b,l){

	if(bw.ns4){this.css.clip.top=t; this.css.clip.right=r; this.css.clip.bottom=b; this.css.clip.left=l

	}else this.css.clip="rect("+t+","+r+","+b+","+l+")";

}

function b_showIt(){this.css.visibility="visible"}

/**************************************************************************

Object part end

***************************************************************************/


/**************************************************************************

Init function. Set the placements of the objects here.

***************************************************************************/

function sideInit(){

	//Width of the menu, Currently set to the width of the document.

	//If you want the menu to be 500px wide for instance, just 

	//set the the pageWidth=500 in stead.

	//pageWidth=(bw.ns4 || bw.ns5)?innerWidth:document.body.offsetWidth-20;

	pageWidth=350;

	oBg=new makeObj('divBg')

	oMenu=new makeObj('divMenu','divBg',1)

	oArrowRight=new makeObj('divArrowRight','divBg')

	//Placement

	oBg.moveIt(sLeft,sTop) //Main div, holds all the other divs.

	oMenu.moveIt(sArrowwidth,6)

	oArrowRight.moveIt(pageWidth-sArrowwidth,9)

	//setting the width and the visible area of the links.

	if(bw.dom || bw.ie4){ oBg.css.width=pageWidth; oBg.css.overflow="hidden" }

	oBg.clipTo(0,pageWidth,sMenuheight,0)

}


//executing the init function on pageload.

onload=sideInit;

//-->