/*
     FILE ARCHIVED ON 0:54:03 May 21, 2013 AND RETRIEVED FROM THE
     INTERNET ARCHIVE ON 1:38:18 Feb 20, 2016.
     JAVASCRIPT APPENDED BY WAYBACK MACHINE, COPYRIGHT INTERNET ARCHIVE.

     ALL OTHER CONTENT MAY ALSO BE PROTECTED BY COPYRIGHT (17 U.S.C.
     SECTION 108(a)(3)).
*/
function scroller(name, divid, delay, incr, pause){

	this.name = name;
	this.div = document.getElementById(divid);
	this.size = Math.abs(parseInt(this.div.style.height));
	this.pos = 0;
	this.nextPos = 0;
	this.delay = delay;
	this.pause = pause;
	this.incr = incr;
	this.timer = 0;
	this.pauseTimer = 0;
	this.wait = true;
	this.relativeY = false;
	this.mouseIsDown = false;
	this.fixedMode = false;
	this.cursor = "move";
		
	this.run = function(){
		if (this.pos <= this.nextPos) {
			var incr;
			/* amortissement */
			if (this.nextPos - this.pos <= this.incr) {
				incr = Math.ceil((this.nextPos - this.pos)/2);
				if (incr > this.incr){
					incr = this.incr;
				} else if (incr == 0) {
					incr = 1;
				}
			} else {
				incr = this.incr;
			}
			this.pos += incr;
			this.div.scrollTop = this.pos;
			if (this.div.scrollTop != this.pos) {
				window.clearInterval(this.timer);
				window.clearInterval(this.pauseTimer);
				this.start();
			}
		} else {
			window.clearInterval(this.timer);
			window.clearInterval(this.pauseTimer);
			this.wait = true;
			this.pauseTimer = window.setTimeout(this.name+'.next()', this.pause);
		}
	}
	
	this.start = function(){
		this.pos = 0;
		this.nextPos = 0;
		window.clearInterval(this.timer);
		window.clearInterval(this.pauseTimer);
		this.pauseTimer = window.setTimeout(this.name+'.next()', this.pause);
	}
	
	this.next = function(){
		this.wait = false;
		this.pos = this.nextPos;
		this.nextPos += this.size;
		window.clearInterval(this.timer);
		window.clearInterval(this.pauseTimer);
		this.timer = window.setInterval(this.name+'.run()', this.delay);
	}
	
	this.stop = function(){
		window.clearInterval(this.timer);
		window.clearInterval(this.pauseTimer);
	}
	
	this.restart = function(){
		this.pos = Math.abs(this.div.scrollTop);
		this.nextPos = 0;
		while(this.nextPos < this.pos) {
			this.nextPos += this.size;
		}
		this.wait = false;
		window.clearInterval(this.timer);
		window.clearInterval(this.pauseTimer);
		this.timer = window.setInterval(this.name+'.run()', this.delay);
	}
	
	this.mouseover = function(e){
		if (!this.fixedMode){
			var relatedElmt;
			if (!e) {
				relatedElmt = window.event.fromElement;
			} else {
				relatedElmt = e.relatedTarget;
			}
			if (!this.relatedIsIn(relatedElmt)) {
				this.div.style.cursor = this.cursor;
				this.stop();
			}
		}
	}
	
	this.mouseout = function(e){
		if (!this.fixedMode){
			var relatedElmt;
			if (!e) {
				relatedElmt = window.event.toElement;
			} else {
				relatedElmt = e.relatedTarget;
			}
			if (!this.relatedIsIn(relatedElmt)) {
				this.div.style.cursor = "default";
				this.restart();
			}
		}
	}
	
	this.mousedown = function(e){
		if (!e) var e = window.event;
		this.relativeY = e.clientY;
		this.mouseIsDown = true;
		return false;
	}
	
	this.mouseup = function(e){
		this.relativeY = false;
		this.mouseIsDown = false;
		return false;
	}
	
	this.mousemove = function(e){
		if (this.mouseIsDown && !this.fixedMode) {
			if (!e) var e = window.event;
			this.scroll(this.relativeY - e.clientY);
			this.relativeY = e.clientY;
		}
	}
	
	this.mouseWheel = function(e, ref){
		if (e) {
			this.scroll(10*e.detail);
			e.preventDefault();
		} else {
			if (ref == this.div) {
				this.scroll(-window.event.wheelDelta);
			}
			return false;
		}
	}
	
	this.scroll = function(l){
		var newPos = this.div.scrollTop + l;
		this.div.scrollTop += l;
		if (newPos > this.div.scrollTop) {
			this.div.scrollTop = newPos - this.div.scrollTop;
		} else if (newPos < this.div.scrollTop) {
			this.div.scrollTop = this.div.scrollHeight - (this.div.scrollTop - newPos);
		}
	}
	
	this.dblclick = function(e){
		if (this.fixedMode) {
			this.cursor = "move";
			this.fixedMode = false;
			this.div.style.MozUserSelect = "none";
			this.div.onselectstart = function(){return false;};
			this.restart();
		} else {
			this.cursor = "text";
			this.fixedMode = true;
			this.div.style.MozUserSelect = "";
			this.div.onselectstart = function(){return true;};
			this.stop();
		}
		this.div.style.cursor = this.cursor;
	}
	
	/* Cherche si l'objet relatif à l'évènement est un sous-élement */
	this.relatedIsIn = function(reltg){
		while (reltg && reltg != this.div && reltg.nodeName != 'BODY')
			reltg= reltg.parentNode;
		if (reltg && reltg == this.div)
			return true;
		return false;
	}
	
	/* Désactive la sélection */
	this.div.style.MozUserSelect = "none";
	this.div.onselectstart = function(){return false;};
	
	if (document.addEventListener) eval("this.div.addEventListener('DOMMouseScroll', function(e){"+this.name+".mouseWheel(e);}, false)");
	else eval("this.div.onmousewheel = function(){return "+this.name+".mouseWheel(0, this);};");
	
	var events = ['mouseover', 'mouseout', 'mousedown', 'mouseup', 'mousemove', 'dblclick'];
	for(ev in events) {
		try{eval("this.div.on"+events[ev]+" = function(e){"+this.name+"."+events[ev]+"(e);}");}
		catch(e){}
	}
	
	this.start();
}