/*
Extension developed by David G. Miles (www.z3roadster.net/dreamweaver)
Original Scrollable Area code developed by Thomas Brattli
To add more shock to your site, visit www.DHTML Shock.com
*/
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=50;
var loop, timer;

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.up=MoveAreaUp;this.down=MoveAreaDown;
	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;
	var unidades = (typeof this.css.left == "string") ? "px" : 0;
	this.css.left = this.x + unidades;
	this.css.top = this.y + unidades;
}

function MoveAreaDown(move)
{
	var altura = this.scrollHeight;
	if (this.el.offsetHeight) {
		altura = this.el.offsetHeight;
	} else if (this.el.clip && this.el.clip.height) {
		altura = this.el.clip.height;
	} else if (this.el.style && this.el.style.pixelHeight) {
		altura = this.el.style.pixelHeight;
	}
	if(this.y > -altura + 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 PerformScroll(speed)
{
	if(initialised){
		loop=true;
		if(speed>0) objScroller.down(speed)
		else objScroller.up(speed);
	}
}

function CeaseScroll()
{
	loop=false;
	if(timer) clearTimeout(timer);
}

var initialised;
function InitialiseScrollableArea(contenedor, contenido)
{
	objContainer=new ConstructObject(contenedor);
	objScroller=new ConstructObject(contenido,contenedor);
	objScroller.MoveArea(0,0);
	objContainer.css.visibility='visible';
	initialised=true;
}
// end absolutely positioned scrollable area object scripts