// <![CDATA[

	// vertical slider control
	var slider1 = new Control.Slider('cursor', 'scroll', {
		axis: 'vertical',
		range: $R(0,60),
		values: [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,
				 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,
				 41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60],
		onSlide: function(v) { scrollVertical(v, $('texte'), slider1);  },
		onChange: function(v) { scrollVertical(v, $('texte'), slider1); }
	});
	
	// scroll the element vertically based on its width and the slider maximum value
	function scrollVertical(value, element, slider) {
		//element.scrollTop = Math.round(value/slider.maximum*(element.scrollHeight-element.offsetHeight));
		element.scrollTop = Math.round(value/slider.maximum*(element.scrollHeight-element.offsetHeight));
	}
	
	
	// mouse wheel code from http://adomas.org/javascript-mouse-wheel/
	function handle(delta) {
		slider1.setValueBy(-delta);
	}

	/** Event handler for mouse wheel event. */
	function wheel(event){
		var delta = 0;
		if (!event) /* For IE. */
			event = window.event;
		if (event.wheelDelta) { /* IE/Opera. */
			delta = event.wheelDelta/120;
			/** In Opera 9, delta differs in sign as compared to IE. */
			if (window.opera)
				delta = -delta;
		} else if (event.detail) { /** Mozilla case. */
			/** In Mozilla, sign of delta is different than in IE.
			* Also, delta is multiple of 3.
			*/
			delta = -event.detail/3;
		}

		/** If delta is nonzero, handle it.
		* Basically, delta is now positive if wheel was scrolled up,
		* and negative, if wheel was scrolled down.
		*/
		if (delta)
			handle(delta);

		/** Prevent default actions caused by mouse wheel.
		* That might be ugly, but we handle scrolls somehow
		* anyway, so don't bother here..
		*/
		if (event.preventDefault)
			event.preventDefault();
		
		event.returnValue = false;
	}

	// mozilla
	Event.observe('texte', 'DOMMouseScroll', wheel);
	
	// IE/Opera
	Event.observe('texte', 'mousewheel', wheel);

// ]]>