// 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.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 verifyCompatibleBrowser() 
 
 
var speed=40 
 
var loop, timer
 
function ConstructObject(obj,nest){
	w = 0;
    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.scrollWidth=width
    this.clipHeight=bw.ns4?this.css.clip.height:this.el.offsetHeight
	this.clipWidth=bw.ns4?this.css.clip.width:this.el.offsetWidth
	
    this.up=MoveAreaUp;
	this.down=MoveAreaDown;
	this.left=MoveAreaLeft;
	this.right=MoveAreaRight; 
	this.top=MoveToTop;
    this.MoveArea=MoveArea; 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 + "px";
    this.css.top = this.y + "px";
} 
 
function MoveAreaDown(move){
	if(this.y>-this.scrollHeight+objContainer.clipHeight){ 
    this.MoveArea(0,this.y-move) 
    if(loop) setTimeout(this.obj+".down("+move+")",speed) 
	} 
} 
function MoveAreaUp(move){ 
	if(this.y<0){ 
    this.MoveArea(0,this.y-move) 
    if(loop) setTimeout(this.obj+".up("+move+")",speed) 
	} 
}

function MoveAreaLeft(move){
	if ( this.x < 0 ) { 
		this.MoveArea(this.x-move, 0);
		if(loop) setTimeout(this.obj + ".left(" + move + ")", speed)
	} 
}

function MoveAreaRight(move){
	if ( -this.x < this.scrollWidth - objContainer.clipWidth ) {
		this.MoveArea(this.x-move, 0);
		if(loop) setTimeout(this.obj + ".right(" + move + ")", speed)
	} 
}
 
function PerformScroll(speed) {
	if (initialised) { 
		loop=true;
		if (speed > 0) objScroller.down(speed);
		else objScroller.up(speed);
	} 
}

function PerformHScroll(speed) {
	if (initialised) { 
		loop=true;
		if (speed > 0) objScroller.right(speed);
		else objScroller.left(speed);
	} 
}

function toTop() {
		objScroller.top();
}

function MoveToTop() {
	this.x = 0;
	this.y = 0;
	
	this.css.top = "0px";
	this.css.left = "0px";
}
 
function CeaseScroll(){ 
    loop=false;
    if ( timer ) clearTimeout( timer ) ;
} 
var initialised;
var width;
function InitialiseScrollableArea(){ 
    objContainer=new ConstructObject('divContainer') 
    objScroller=new ConstructObject('divContent','divContainer') 
    objScroller.MoveArea(0,0) 
    objContainer.css.visibility='visible' 
    initialised=true; 
}
function InitialiseScrollableArea(container, content) {
	objContainer=new ConstructObject(container)
    objScroller=new ConstructObject(content,container) 
    objScroller.MoveArea(0,0) 
    objContainer.css.visibility='visible' 
    initialised=true;
}
function InitialiseScrollableArea(container, content, w) {
	width = w;
	objContainer=new ConstructObject(container)
    objScroller=new ConstructObject(content,container) 
    objScroller.MoveArea(0,0) 
    objContainer.css.visibility='visible' 
    initialised=true;
}
// end absolutely positioned scrollable area object scripts