/** This is high-level function; REPLACE IT WITH YOUR CODE.
 * It must react to delta being more/less than zero.
 */
function zoomInOut(delta) {
	if (delta >= 0)
		zoomIn()
	else
		zoomOut()
}

function wheel(event){
	var delta = 0;
	if (!event) event = window.event;
	if (event.wheelDelta) {
		delta = event.wheelDelta/120; 
		if (window.opera) delta = -delta;
	} else if (event.detail) {
		delta = -event.detail/3;
	}
	if (delta)
		zoomInOut(delta);
        if (event.preventDefault)
                event.preventDefault();
        event.returnValue = false;
}

/* Initialization code. */
if (window.addEventListener)
	window.addEventListener('DOMMouseScroll', wheel, false);
window.onmousewheel = document.onmousewheel = wheel;

; mouse-wheel scroll events
view/new layout [
	b: box "A Box" forest feel [
		engage: func [face action event] [
			if action = 'scroll-line [
				print ["Scroll line" event/offset]
			]
			if action = 'scroll-page [ ; Ctrl+wheel
				print ["scroll page" event/offset]
			]
		]
	]
]
focus b
do-events