/* Scroll stuff */


// begin absolutely positioned scrollable area object scripts
// Extension developed by David G. Miles
// Original Scrollable Area code developed by Thomas Brattli

function verifyCompatibleBrowser()
{
	this.ver=navigator.appVersion
	this.dom=document.getElementById?1:0

	this.ie5=(this.ver.indexOf("MSIE 5")>-1 && this.dom)?1:0;
	this.ie6=(this.ver.indexOf("MSIE 6")>-1 && this.dom)?1:0;
	this.ie4=(document.all && !this.dom)?1:0;

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

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

bw=new verifyCompatibleBrowser();

var interval = 50;
var amount = 7;

function ConstructObject(obj,nest)
{
	nest=(!nest) ? '':'document.'+nest+'.'
	this.el=bw.dom ? document.getElementById(obj) : bw.ie4 ? document.all[obj]:bw.ns4 ? eval(nest+'document.'+obj) : 0;
	this.css=bw.dom ? document.getElementById(obj).style : bw.ie4 ? document.all[obj].style : bw.ns4?eval(nest+'document.'+obj) : 0;
	this.scrollHeight = bw.ns4 ? this.css.document.height : this.el.offsetHeight;
	this.clipHeight = bw.ns4 ? this.css.clip.height : this.el.offsetHeight;
	this.MoveArea=MoveArea;
	this.MoveTime = MoveTime;
	this.x;
	this.y;
	this.obj = obj + "Object";
	eval(this.obj + "=this");

	return this
}

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

function MoveTime() {

	if (jumpsize > 0) {
		// moving down
		if(this.y > -this.scrollHeight+objContainer.clipHeight)
			this.MoveArea(0, this.y - jumpsize);
	} else {
		// moving up
		if(this.y < 0)
			this.MoveArea(0, this.y - jumpsize);
	}
}

function PerformScroll() {
	if(initialised) {
		objScroller.MoveTime();
	}
	setTimeout("PerformScroll()", interval)
}

function PerformScrollUp(){
	jumpsize = -amount;
}

function PerformScrollDown() {
	jumpsize = amount;
}

function CeaseScroll() {
	jumpsize = 0;
}

var jumpsize = 0;
var initialised;

function InitialiseScrollableArea()
{
	// check that these objects exist in the page
	if (document.getElementById
		&& document.getElementById('scrollTextClipping')
		&& document.getElementById('scrollText')) {

		objContainer=new ConstructObject('scrollTextClipping');
		objScroller=new ConstructObject('scrollText','scrollTextClipping');
		objScroller.MoveArea(0,0);
		objContainer.css.visibility='visible';
		initialised=true;

		PerformScroll();
	}
}
// end absolutely positioned scrollable area object scripts


function setup_page()
{
	InitialiseScrollableArea();
}