// Extension developed by David G. Miles (www.z3roadster.net/dreamweaver)
// 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.NS6 = (this.dom && parseInt(this.ver) >= 5)? 1:0
	this.NS4 = (document.layers && !this.dom)? 1:0
	this.nav = (this.IE5 || this.IE4 || this.NS6)
	return this
}

nav = new verifyCompatibleBrowser()
var vitesseInit = 50
var loop ; var timer

function ConstructObject(obj,nest) {
	nest = (!nest) ? '':'document.' + nest + '.'
	this.el = (nav.dom)? document.getElementById(obj) : (nav.IE4)? document.all[obj] : (nav.NS4)? eval(nest+'document.'+obj) : 0
	this.css = (nav.dom)? document.getElementById(obj).style : (nav.IE4)? document.all[obj].style : (nav.NS4)? eval(nest+'document.'+obj) : 0
	this.scrollHeight = (nav.NS4)? this.css.document.height : this.el.offsetHeight
	this.clipHeight = (nav.NS4)? this.css.clip.height : this.el.offsetHeight
	this.up = MoveAreaUp
	this.down = MoveAreaDown
	this.MoveArea = MoveArea
	//this.x //"useless expression"
	//this.y //"useless expression"
	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 MoveAreaDown(move) {
	if (this.y >- this.scrollHeight + objContainer.clipHeight) {
		this.MoveArea(0,this.y - move)
		if (loop) setTimeout(this.obj + ".down(" + move + ")",vitesseInit)
	}
}
function MoveAreaUp(move) {
	if (this.y < 0) {
		this.MoveArea(0,this.y - move)
		if (loop) setTimeout(this.obj + ".up(" + move + ")",vitesseInit)
	}
}
function scrollage(vitesseMvt) {
	if (initialised) {
		loop = true
		if (vitesseMvt > 0) objScroller.down(vitesseMvt)
		else objScroller.up(vitesseMvt)
	}
}
function finScroll() {
	loop = false
	if (timer) clearTimeout(timer)
}
var initialised
function initVisioScroll() {
	objContainer = new ConstructObject('divContainer')
	objScroller = new ConstructObject('divContent','divContainer')
	objScroller.MoveArea(0,0)
	objContainer.css.visibility = 'visible'
	initialised = true
}