// Copyright (C) 2010 BROCELIA. All rights reserved.
// Nouvelle version pour mootools 1.2.4

var TfScroll = new Class({
    
    Extends: Fx.Scroll,
    
    Implements: Options,

    vaparla: function(y){
		if (y<0) y = 0;
		else if(y>1) y = 1;
		this.element.scrollTop = y*(this.element.scrollHeight-this.element.offsetHeight);
	},
	
	bouge: function(y){
		return this.element.scrollTo(0, this.element.scrollTop + y);
	}
    
});

var plgscroll_i = 0;
var plgscroll_effets = Array();
var plgscroll_effets2 = Array();

function plgscroll(c, options) {

	var tabSize = options.height ? options.height : 200;//320;

	if(c.scrollHeight>tabSize) {
		// hauteur dépassée => on met une scrollbar

		if(!options.width)			options.width = 10;
		if(!options.top)			options.top = 12;//7;
		if(!options.pageRate)		options.pageRate = 0.80;
		if(!options.thumbHeightMin)	options.thumbHeightMin = 6;

		var i = plgscroll_i;
		var pageSize = Math.round(tabSize * options.pageRate);	// nb px pour le chgt de page
		var trackSize = tabSize-(2*options.top);

		if(!options.thumbHeight || options.thumbHeight=='' || options.thumbHeight==0) {
			options.thumbHeight = Math.ceil(pageSize*trackSize/c.scrollHeight);
			if(options.thumbHeight < options.thumbHeightMin) options.thumbHeight = options.thumbHeightMin;
		}

		var scrollStart = options.top;
		var scrollEnd = tabSize - options.top - options.thumbHeight;
		var scrollHeight = scrollEnd - scrollStart;

		var d = new Element('div');
		d.id = 'botscrollbar'+i;
		d.className = 'botscrollbar';
		if(options.startHidden) d.style.visibility = 'hidden';
		d.style.position = 'absolute';
		d.style.marginLeft = (c.scrollWidth - options.width)+'px';

		// bouton up
		var divUp = new Element('div');
		divUp.className = 'botscrollbar_up';
		divUp.id = 'botscrollbar_up'+i;
		divUp.style.cursor = 'pointer';
		d.appendChild(divUp);

		var divTrack = new Element('div');
		divTrack.id = 'botscrollbar_track'+i;
		divTrack.className = 'botscrollbar_track';
		divTrack.style.height = trackSize+'px';
		d.appendChild(divTrack);

		var divThumb = new Element('div');
		divThumb.id = 'botscrollbar_thumb'+i;
		divThumb.className = 'botscrollbar_thumb';
		divThumb.style.position = 'absolute';
		divThumb.style.top = scrollStart+'px';
		divThumb.style.height = options.thumbHeight+'px';
		divTrack.appendChild(divThumb);

		// bouton down
		var divDown = new Element('div');
		divDown.className = 'botscrollbar_down';
		divDown.id = 'botscrollbar_down'+i;
		divDown.style.cursor = 'pointer';
		d.appendChild(divDown);

		var d2 = document.createElement('div');
		d2.className = 'botscroll_content';
		d2.style.overflow = 'hidden';
		d2.style.height = tabSize+'px';
		d2.style.marginRight = options.width+'px';
		var t;
		while(t=c.firstChild) {
			d2.appendChild(t);
		}

		c.appendChild(d);
		c.appendChild(d2);


		// bug position thumb sous ie
		if(!$chk(divThumb.getStyle('left').toInt())) {
			divThumb.style.left = (divTrack.getLeft()-d.getLeft())+'px';
		}


		// actions
		var pas = Math.round(pageSize*scrollHeight/(d2.scrollHeight-d2.offsetHeight));	// nb de px sur la scrollbar pour le chgt de page
		divUp.addEvent('click', function() {
			plgscroll_effets[i].bouge(-pageSize);
			var from = $('botscrollbar_thumb'+i).getStyle('top').toInt();
			var to = from - pas;
			if(to<scrollStart) to = scrollStart;
			//console.log(from+" "+to);
			plgscroll_effets2[i].start('top', from, to);
		});
		divDown.addEvent('click', function() {
			plgscroll_effets[i].bouge(pageSize);
			var from = $('botscrollbar_thumb'+i).getStyle('top').toInt();
			var to = from + pas;
			if(to>scrollEnd) to = scrollEnd;
			plgscroll_effets2[i].start('top', from, to);
		});

		divTrack.addEvent('mousedown', function(e) {
		    var pageY;
			if(e.event.offsetY)
			    pageY = e.event.offsetY - options.thumbHeight;
			if(e.event.layerY)
			    pageY = e.event.layerY - options.thumbHeight;
			var from = $('botscrollbar_thumb'+i).getStyle('top').toInt();
			var to;
			if(pageY < from) {
				to = from - pas;
				if(to<scrollStart) to = scrollStart;
				plgscroll_effets[i].bouge(-pageSize);
			}
			else {
				to = from + pas;
				if(to>scrollEnd) to = scrollEnd;
				plgscroll_effets[i].bouge(pageSize);
			}
			plgscroll_effets2[i].start('top', from, to);
		});
		
		c.addEvent('mousewheel', function(event) { 
		    event = new Event(event); 
		    var from = $('botscrollbar_thumb'+i).getStyle('top').toInt(); 
		    var to; 
		    if (event.wheel > 0) { 
		        to = from - pas; 
		        if(to<scrollStart) to = scrollStart; 
		        plgscroll_effets[i].bouge(-pageSize); 
		    } 
		    else if (event.wheel < 0) { 
		        to = from + pas;
		        if(to>scrollEnd) to = scrollEnd; 
		        plgscroll_effets[i].bouge(pageSize); 
		    } 
		    plgscroll_effets2[i].start('top', from, to); 
		    event.stop(); 
		});
        

		//eval("divDown.addEvent('dblclick', function() { plgscroll_effets["+i+'].down(); });');

        eval('var onDrag = function() { plgscroll_effets['+i+'].vaparla((parseInt(this.element.style.top.substring(0, this.element.style.top.length-2)) - '+scrollStart+') / '+scrollHeight+'.0); }');
		divThumb.makeDraggable({onDrag:onDrag, modifiers: {y: 'top'}, limit: {y: [scrollStart, scrollEnd], x: [1, 1]}, snap: false});

		plgscroll_effets[i] = new TfScroll(d2);
		plgscroll_effets2[i] = new Fx.Tween(divThumb, {duration: 'short'});
		plgscroll_effets2[i].scrollStart = scrollStart;

		plgscroll_i++;
			
	}
}


/** va jusqu'à l'objet dont l'id est passé en paramètre
 *  si il y a une scrollbar autour, on lance les effets pour y aller
 *  sinon il ne se passe rien
 *  @param id id de l'objet dom qui doit être en haut de la zone de scroll ou name de l'ancre
 */
function oe_scroll_goTo(id) {
	if(plgscroll_i<=0) return false;
	var done = false;
	for(var i=0;i<plgscroll_i;i++) {
		var e = plgscroll_effets[i].element.getElementById(id);
		if(e) {
			_oe_scroll_goTo(i, e);
			done = true;
		} else {
			plgscroll_effets[i].element.getElements('a').each(
				function(a) {
                    if (navigator.userAgent.indexOf("Firefox")!= -1) // bug IE 7
				    {
    				    if(a.name == id) {
					        if(a.getTop()>a.parentNode.getTop()+15)	 {
						        _lr_scroll_goTo(i, a);
					        } else {
						        _lr_scroll_goTo(i, a.parentNode);
					        }
					        done = true;
					    }
				    }
				    else 
				    {					        
				        done = true;
				    }				
				}
			);
		}
	}
	return done;
}

function _oe_scroll_goTo(i, e) {
	var x = $(e).getTop() - plgscroll_effets[i].element.getTop();
	var from = plgscroll_effets2[i].element.getStyle('top').toInt();
	var to = plgscroll_effets2[i].element.parentNode.offsetHeight * x / plgscroll_effets[i].element.scrollHeight;
	if(to<0) to = 0;
	else if(to>plgscroll_effets2[i].element.parentNode.offsetHeight - plgscroll_effets2[i].element.offsetHeight) {
		to = plgscroll_effets2[i].element.parentNode.offsetHeight - plgscroll_effets2[i].element.offsetHeight;
	}

	to += plgscroll_effets2[i].scrollStart.toInt();

	plgscroll_effets[i].scrollTo(0, x);
	plgscroll_effets2[i].start('top', from, to);
}



/* si une ancre est demandée dans l'url on s'y rend après le chargement de la page
 * attention : il y a encore un bug d'affichage de la zone de scroll sous firefox dans ce cas
 * ajoute la fonction à tout les liens commencant par #
 */

window.addEvent('load', function() {
	if(location.hash && location.hash.length>0) {
		setTimeout('oe_scroll_goTo(location.hash.substring(1));', 300);
	}
	$$('a').each(function(a) {
		if(a.href && a.href.length>location.href.length+2 && a.href.indexOf('#')==location.href.length) {
			a.onclick = function() {
				return !oe_scroll_goTo(a.href.substring(location.href.length+1));
			};
		}
	});
});