var sp_Event = {

  

    add: function(obj, etype, fp, cap) {

        cap = cap || false;

        if (obj.addEventListener) obj.addEventListener(etype, fp, cap);

        else if (obj.attachEvent) obj.attachEvent("on" + etype, fp);

    }, 



    remove: function(obj, etype, fp, cap) {

        cap = cap || false;

        if (obj.removeEventListener) obj.removeEventListener(etype, fp, cap);

        else if (obj.detachEvent) obj.detachEvent("on" + etype, fp);

    }, 

    

    DOMit: function(e) { 

        e = e? e: window.event; // e IS passed when using attachEvent though ...

        if (!e.target) e.target = e.srcElement;

        // don't seem to work if not using attachEvent (moral: be consistent, use old OR new models)

        if (!e.preventDefault) e.preventDefault = function () { e.returnValue = false; return false; }

        if (!e.stopPropagation) e.stopPropagation = function () { e.cancelBubble = true; }

        return e;

    },

    

    getTarget: function(e) {

        e = sp_Event.DOMit(e); var tgt = e.target; 

        if (tgt.nodeType != 1) tgt = tgt.parentNode; // safari...

        return tgt;

    }

    

}




function addLoadEvent(func) {

    var oldQueue = window.onload? window.onload: function() {};

    window.onload = function() {

        oldQueue();

        func();

    }

}



// horizId only needed for horizontal scrolling

function sp_scrollObj(wndoId, lyrId, horizId) {

    if (!document.getElementById) return;

    var wn = document.getElementById(wndoId);

    this.id = wndoId; sp_scrollObj.col[this.id] = this;

    this.animString = "sp_scrollObj.col." + this.id;

    this.load(lyrId, horizId);

    

    if (wn.addEventListener) {

        wn.addEventListener('DOMMouseScroll', sp_scrollObj.doOnMouseWheel, false);

    } 

    wn.onmousewheel = sp_scrollObj.doOnMouseWheel;

}



sp_scrollObj.col = {}; // collect instances

sp_scrollObj.defaultSpeed = sp_scrollObj.prototype.speed = 100; // default for mouseover or mousedown scrolling

sp_scrollObj.defaultSlideDur = sp_scrollObj.prototype.slideDur = 500; // default duration of glide onclick



// pseudo events 

sp_scrollObj.prototype.on_load = function() {} // when sp_scrollObj initialized or new layer loaded

sp_scrollObj.prototype.on_scroll = function() {}

sp_scrollObj.prototype.on_scroll_start = function() {}

sp_scrollObj.prototype.on_scroll_stop = function() {} // when scrolling has ceased (mouseout/up)

sp_scrollObj.prototype.on_scroll_end = function() {} // reached end



sp_scrollObj.prototype.on_glidescroll = function() {}

sp_scrollObj.prototype.on_glidescroll_start = function() {}

sp_scrollObj.prototype.on_glidescroll_stop = function() {} // destination (to/by) reached

sp_scrollObj.prototype.on_glidescroll_end = function() {} // reached end



sp_scrollObj.prototype.load = function(lyrId, horizId) {

    var wndo, lyr;

    if (this.lyrId) { // layer currently loaded?

        lyr = document.getElementById(this.lyrId);

        lyr.style.visibility = "hidden";

    }

    this.lyr = lyr = document.getElementById(lyrId); // hold this.lyr?

    this.lyr.style.position = 'absolute'; 

    this.lyrId = lyrId; // hold id of currently visible layer

    this.horizId = horizId || null; // hold horizId for update fn

    wndo = document.getElementById(this.id);

    this.y = 0; this.x = 0; this.shiftTo(0,0);

    this.maxY = (lyr.offsetHeight - wndo.offsetHeight > 0)? lyr.offsetHeight - wndo.offsetHeight: 0;

    this.wd = horizId? document.getElementById(horizId).offsetWidth: lyr.offsetWidth;

    this.maxX = (this.wd - wndo.offsetWidth > 0)? this.wd - wndo.offsetWidth: 0;

    lyr.style.visibility = "visible";

    this.ready = true; this.on_load(); 

}



sp_scrollObj.prototype.shiftTo = function(x, y) {

    if (this.lyr) {

        this.lyr.style.left = (this.x = x) + "px"; 

        this.lyr.style.top = (this.y = y) + "px";

    }

}



sp_scrollObj.prototype.getX = function() { return this.x; }

sp_scrollObj.prototype.getY = function() { return this.y; }



sp_scrollObj.prototype.updateDims = function() {

    var wndo = document.getElementById(this.id);

    var lyr = document.getElementById( this.lyrId );

    this.maxY = (lyr.offsetHeight - wndo.offsetHeight > 0)? lyr.offsetHeight - wndo.offsetHeight: 0;

    this.wd = this.horizId? document.getElementById( this.horizId ).offsetWidth: lyr.offsetWidth;

    this.maxX = (this.wd - wndo.offsetWidth > 0)? this.wd - wndo.offsetWidth: 0;

}



// for mouseover/mousedown scrolling

sp_scrollObj.prototype.initScrollVals = function(deg, speed) {

    if (!this.ready) return; 

    if (this.timerId) {

        clearInterval(this.timerId); this.timerId = 0;

    }

    this.speed = speed || sp_scrollObj.defaultSpeed;

    this.fx = (deg == 0)? -1: (deg == 180)? 1: 0;

    this.fy = (deg == 90)? 1: (deg == 270)? -1: 0;

    this.endX = (deg == 90 || deg == 270)? this.x: (deg == 0)? -this.maxX: 0; 

    this.endY = (deg == 0 || deg == 180)? this.y: (deg == 90)? 0: -this.maxY;

    this.lyr = document.getElementById(this.lyrId);

    this.lastTime = new Date().getTime();

    this.on_scroll_start(this.x, this.y);  

    this.timerId = setInterval(this.animString + ".scroll()", 10);    

}



sp_scrollObj.prototype.scroll = function() {

    var now = new Date().getTime();

    var d = (now - this.lastTime)/1000 * this.speed;

    if (d > 0) { 

        var x = this.x + Math.round(this.fx * d); var y = this.y + Math.round(this.fy * d);

        if ( ( this.fx == -1 && x > -this.maxX ) || ( this.fx == 1 && x < 0 ) || 

                ( this.fy == -1 && y > -this.maxY ) || ( this.fy == 1 && y < 0 ) ) 

       {

            this.lastTime = now;

            this.shiftTo(x, y);

            this.on_scroll(x, y);

        } else {

            clearInterval(this.timerId); this.timerId = 0;

            this.shiftTo(this.endX, this.endY);

            this.on_scroll_end(this.endX, this.endY);

        }

    }

}



// when scrolling has ceased (mouseout/up)

sp_scrollObj.prototype.ceaseScroll = function() {

    if (!this.ready) return;

    if (this.timerId) {

        clearInterval(this.timerId); this.timerId = 0; 

    }

    //this.lyr = null; // discard ref?

    this.on_scroll_stop(this.x, this.y); 

}



// glide onclick scrolling

sp_scrollObj.prototype.initScrollByVals = function(dx, dy, dur) {

    if ( !this.ready || this.sliding ) return;

    this.startX = this.x; this.startY = this.y;

    this.destX = this.destY = this.distX = this.distY = 0;

    if (dy < 0) {

        this.distY = (this.startY + dy >= -this.maxY)? dy: -(this.startY  + this.maxY);

    } else if (dy > 0) {

        this.distY = (this.startY + dy <= 0)? dy: -this.startY;

    }

    if (dx < 0) {

        this.distX = (this.startX + dx >= -this.maxX)? dx: -(this.startX + this.maxX);

    } else if (dx > 0) {

        this.distX = (this.startX + dx <= 0)? dx: -this.startX;

    }

    this.destX = this.startX + this.distX; this.destY = this.startY + this.distY;

    this.glideScrollPrep(this.destX, this.destY, dur);

}



sp_scrollObj.prototype.initScrollToVals = function(destX, destY, dur) {

    if ( !this.ready || this.sliding ) return;

    this.startX = this.x; this.startY = this.y;

    this.destX = -Math.max( Math.min(destX, this.maxX), 0);

    this.destY = -Math.max( Math.min(destY, this.maxY), 0);

    this.distY = this.destY - this.startY;

    this.distX = this.destX - this.startX;

    this.glideScrollPrep(this.destX, this.destY, dur);

}



sp_scrollObj.prototype.glideScrollPrep = function(destX, destY, dur) {

    this.slideDur = dur || sp_scrollObj.defaultSlideDur;

    this.per = Math.PI/(2 * this.slideDur); this.sliding = true;

    this.lyr = document.getElementById(this.lyrId); 

    this.startTime = new Date().getTime();

    this.timerId = setInterval(this.animString + ".doGlideScroll()",10);

    this.on_glidescroll_start(this.startX, this.startY);

}



sp_scrollObj.prototype.doGlideScroll = function() {

    var elapsed = new Date().getTime() - this.startTime;

    if (elapsed < this.slideDur) {

        var x = this.startX + Math.round( this.distX * Math.sin(this.per*elapsed) );

        var y = this.startY + Math.round( this.distY * Math.sin(this.per*elapsed) );

        this.shiftTo(x, y); 

        this.on_glidescroll(x, y);

    } else {	// if time's up

        clearInterval(this.timerId); this.timerId = 0; this.sliding = false;

        this.shiftTo(this.destX, this.destY);

        //this.lyr = null; 

        this.on_glidescroll_stop(this.destX, this.destY);

        // end of axis reached ? 

        if ( this.distX && (this.destX == 0 || this.destX == -this.maxX) 

          || this.distY && (this.destY == 0 || this.destY == -this.maxY) ) { 

            this.on_glidescroll_end(this.destX, this.destY);

        } 

    }

}



//  resource: http://adomas.org/javascript-mouse-wheel/

sp_scrollObj.handleMouseWheel = function(id, delta) {

    var wndo = sp_scrollObj.col[id];

    var x = wndo.x;

    var y = wndo.y;

    wndo.on_scroll_start(x,y);

    var ny;

    ny = 12  * delta + y

    ny = (ny < 0 && ny >= -wndo.maxY)? ny: (ny < -wndo.maxY)? -wndo.maxY: 0;

    wndo.shiftTo(x, ny);

    wndo.on_scroll(x, ny);

}



sp_scrollObj.doOnMouseWheel = function(e) {

    var delta = 0;

    if (!e) e = window.event;

    if (e.wheelDelta) { /* IE/Opera. */

        delta = e.wheelDelta/120;

        if (window.opera) delta = -delta;

    } else if (e.detail) { // Mozilla 

        delta = -e.detail/3;

    }

    if (delta) { // > 0 up, < 0 down

        sp_scrollObj.handleMouseWheel(this.id, delta);

    }

    if (e.preventDefault) e.preventDefault();

    e.returnValue = false;

}



sp_scrollObj.GeckoTableBugFix = function() {} // no longer need old bug fix



// Get position of el within layer (oCont) sOff: 'left' or 'top'

function sp_getLayerOffset(el, oCont, sOff) {

    var off = "offset" + sOff.charAt(0).toUpperCase() + sOff.slice(1);

    var val = el[off];

    while ( (el = el.offsetParent) != oCont ) 

        val += el[off];

    var clientOff = off.replace("offset", "client");

    if ( el[clientOff] ) val += el[clientOff];

    return val;

}


// two ways to add style sheet for capable browsers

sp_writeStyleSheet = function(file) {

    document.write('<link rel="stylesheet" href="' + file + '" media="screen" />');

}



function sp_addLinkCSS(file) {

    if ( !document.createElement ) return;

    var el = document.createElement("link");

    el.setAttribute("rel", "stylesheet");

    el.setAttribute("type", "text/css");

    el.setAttribute("media", "screen");

    el.setAttribute("href", file);

    document.getElementsByTagName('head')[0].appendChild(el);

}


sp_scrollObj.prototype.setUpLoadLinks = function(controlsId) {

    if ( !document.getElementById || !document.getElementsByTagName ) return;

    var wndoId = this.id; var el = document.getElementById(controlsId); 

    var links = el.getElementsByTagName('a');

    var cls, new_cls, parts;

    for (var i=0; links[i]; i++) {

        cls = sp_scrollObj.get_DelimitedClass( links[i].className );

        parts = cls.split('_');

        if ( parts[0] == 'load' ) {

            // more checking here?

            

            new_cls = cls.replace( 'load_', '');

            links[i].className = links[i].className.replace(cls, new_cls);

            sp_Event.add( links[i], 'click', sp_scrollObj.initLayerLoad );

        }

    }

}



sp_scrollObj.prototype.setUpScrollControls = function(controlsId, autoHide, axis) {

    if ( !document.getElementById || !document.getElementsByTagName ) return;

    var wndoId = this.id; var el = document.getElementById(controlsId); 

    if ( autoHide ) {

        sp_scrollObj.handleControlVis(controlsId, wndoId, axis);

        sp_Scrollbar_Co.addEvent( this, 'on_load', function() { sp_scrollObj.handleControlVis(controlsId, wndoId, axis); } );

    }

    var wn = document.getElementById( wndoId );

    // support area too? later

    var links = el.getElementsByTagName('a');

    var cls, new_cls, parts, eType, eAlt, fn, x, y, dur;

    var re, dur_re = /^([\d]+)$/;

    

    // Reminder: doesn't work to set up anonymous functions here, passing arguments, because of closures !

    for (var i=0; links[i]; i++) {

         x = '', y = ''; // restore

        // Get first class with underscores

        cls = sp_scrollObj.get_DelimitedClass( links[i].className );

        parts = cls.split('_'); 

        eType = sp_scrollObj.getEv_FnType( parts[0] );

        switch ( eType ) {

            case 'mouseover' :

            case 'mousedown' :

            re = /^(mouseover|mousedown)_(up|down|left|right)(_[\d]+)?$/;

                // replace mouseover/mousedown in class name with wndoId (eg. wn_left_100)

                if ( re.test(cls) ) { 

                    new_cls = cls.replace( eType, wndoId);

                    links[i].className = links[i].className.replace(cls, new_cls);

                    eAlt = (eType == 'mouseover')? 'mouseout': 'mouseup';

                    sp_Event.add( links[i], eType, sp_scrollObj.initScrollMouse );

                    sp_Event.add( links[i], eAlt, sp_scrollObj.stopScrollMouse );

                    if ( eType == 'mouseover') {

                        sp_Event.add( links[i], 'mousedown', sp_scrollObj.increaseSpeed );

                        sp_Event.add( links[i], 'mouseup', sp_scrollObj.restoreDefaultSpeed );

                    }

                    sp_Event.add( links[i], 'click', 

                        function(e) { if (e && e.preventDefault) e.preventDefault(); return false; } ); 

                }

                continue;

    

            case 'scrollTo' :

                fn = 'scrollTo';

                re = /^(null|end|[\d]+)$/;

                x = re.test( parts[1] )? parts[1]: '';

                y = re.test( parts[2] )? parts[2]: '';

                dur = ( parts[3] && dur_re.test(parts[3]) )? parts[3]: null;

                break;

            case 'scrollBy':// scrollBy_m30_m40, scrollBy_null_m100, scrollBy_100_null

                fn = 'scrollBy';

                re = /^(([m]?[\d]+)|null)$/;

                x = re.test( parts[1] )? parts[1]: '';

                y = re.test( parts[2] )? parts[2]: '';

                dur = ( parts[3] && dur_re.test(parts[3]) )? parts[3]: null;

                break;

            case 'scrollToId': 

                new_cls = wndoId + '_' + links[i].className;

                links[i].className = links[i].className.replace(cls, new_cls);

                sp_Event.add( links[i], 'click', sp_scrollObj.scrollToId );

                continue;

            case 'click': 

                var o = sp_scrollObj.getClickParts(cls);

                fn = o.fn; x = o.x; y = o.y; dur = o.dur;

                break;

        }

        if ( x !== '' && y !== '' ) {

            new_cls = wndoId + '_' + fn + '_' + x + '_' + y + ( dur? '_' + dur: '');

            links[i].className = links[i].className.replace(cls, new_cls);

            sp_Event.add( links[i], 'click', sp_scrollObj.doOnclick );

        }

    }

}



// get info from className (e.g., click_down_by_100)

sp_scrollObj.getClickParts = function(cls) {

    var parts = cls.split('_');

    var re = /^(up|down|left|right)$/;

    var dir, fn, x, y, dur, ar;

    if ( ar = parts[1].match(re) ) { dir = ar[1]; }

    re = /^(to|by)$/; 

    ar = parts[2].match(re);

    fn = (ar[0] == 'to')? 'scrollTo': (ar[0] == 'by')? 'scrollBy': '';

    var val = parts[3]; // value on x or y axis

    if ( parts[4] ) { 

        dur = !isNaN( parts[4] )? parts[4]: null;

    }

   

    if (dir) { // If direction is specified, value on one axis is implied 

        switch (fn) {

            case 'scrollBy' :

                re = /^([\d]+)$/;

                if ( !re.test( val ) ) {

                    x = ''; y = ''; break;

                }

                switch (dir) { // 0 for unspecified axis 

                    case 'up' : x = 0; y = val; break;

                    case 'down' : x = 0; y = 'm' + val; break;

                    case 'left' : x = val; y = 0; break;

                    case 'right' : x = 'm' + val; y = 0;

                 }

                break;

            case 'scrollTo' :

                re = /^(end|[\d]+)$/;

                if ( !re.test( val ) ) {

                    x = ''; y = ''; break;

                }

                switch (dir) { // null for unspecified axis 

                    case 'up' : x = null; y = val; break;

                    case 'down' : x = null; y = (val == 'end')? val: 'm' + val; break;

                    case 'left' : x = val; y = null; break;

                    case 'right' : x = (val == 'end')? val: 'm' + val; y = null;

                 } 

                break;

         }

    }

    return { fn: fn, x: x, y: y, dur: dur }

}



sp_scrollObj.getEv_FnType = function(str) {

    var re = /^(mouseover|mousedown|scrollBy|scrollTo|scrollToId|click)$/;

    if (re.test(str) ) {

        return str;

    }

    return '';

}



// return class name with underscores in it 

sp_scrollObj.get_DelimitedClass = function(cls) {

    if ( cls.indexOf('_') == -1 ) {

        return '';

    }

    var whitespace = /\s+/;

    if ( !whitespace.test(cls) ) {

        return cls;

    } else {

        var classes = cls.split(whitespace); 

        for(var i = 0; classes[i]; i++) { 

            if ( classes[i].indexOf('_') != -1 ) {

                return classes[i];

            }

        }

    }

}



sp_scrollObj.doOnclick = function(e) {

    var tgt = sp_scrollObj.getTargetLink(e);

    var cls = sp_scrollObj.get_DelimitedClass( tgt.className );

    var parts = cls.split('_');

    var wndoId = parts[0];  var fn = parts[1]; 

    var x = parts[2].replace('m', '-'); var y = parts[3].replace('m', '-'); 

    var dur = parts[4] || null;

    var wndo = sp_scrollObj.col[wndoId];

    if (x == 'end') { x = wndo.maxX; }

    if (y == 'end') { y = wndo.maxY; }

    if (x == 'null') { x = wndo.x; }

    if (y == 'null') { y = wndo.y; }

    x = parseInt(x); y = parseInt(y);

    if (fn == 'scrollBy') {

        wndo.initScrollByVals(x, y, dur);

    } else if (fn == 'scrollTo') {

        wndo.initScrollToVals(x, y, dur);

    }

    if (e && e.preventDefault) e.preventDefault();

    return false;

}



// wn_scrollToId_smile, wn_scrollToId_smile_100, wn_scrollToId_smile_lyr1_100

sp_scrollObj.scrollToId = function(e) {

    var dur;

    var tgt = sp_scrollObj.getTargetLink(e);

    var cls = sp_scrollObj.get_DelimitedClass( tgt.className );

    var parts = cls.split('_');

    var wndoId = parts[0];  var wndo = sp_scrollObj.col[wndoId];

    var el = document.getElementById( parts[2] );

    if (el) {

        if ( parts[3] ) {

            if ( isNaN(parts[3]) ) { // Check for and load the layer 

                var id = parts[3];

                if ( document.getElementById(id) && wndo.lyrId != id ) {

                    sp_scrollObj.col[wndoId].load(id);

                }

                dur = parts[4] && !isNaN(parts[4])? parts[4]: null;

            } else {

                dur = parts[3];

            }

        }

        var lyr = document.getElementById(wndo.lyrId);

        var x = sp_getLayerOffset(el, lyr, 'left');

        var y = sp_getLayerOffset(el, lyr, 'top');

        wndo.initScrollToVals(x, y, dur);

    }

    if (e && e.preventDefault) e.preventDefault();

    return false;

}



sp_scrollObj.increaseSpeed = function(e) {

    var wndoId = sp_scrollObj.getWndoIdFromClass(e);

    sp_scrollObj.col[wndoId].speed *= 3;

}



sp_scrollObj.restoreDefaultSpeed = function(e) {

    var wndoId = sp_scrollObj.getWndoIdFromClass(e);

    sp_scrollObj.col[wndoId].speed = sp_scrollObj.prototype.speed;

    if (e && e.preventDefault) e.preventDefault();

    return false;

}



sp_scrollObj.initScrollMouse = function(e) {

    var tgt = sp_scrollObj.getTargetLink(e);

    var cls = sp_scrollObj.get_DelimitedClass( tgt.className );

    var parts = cls.split('_'); // eg. wn_down_100

    var wndoId = parts[0];  var dir = parts[1];  

    var speed = parts[2] || null; 

    var deg = dir == 'up'? 90: dir == 'down'? 270: dir == 'left'? 180: dir == 'right'? 0: null;

    if ( deg != null ) {

        sp_scrollObj.col[wndoId].initScrollVals(deg, speed);

    }

}



sp_scrollObj.stopScrollMouse = function(e) {

    var wndoId = sp_scrollObj.getWndoIdFromClass(e);

    sp_scrollObj.col[wndoId].ceaseScroll();

}



sp_scrollObj.initLayerLoad = function(e) {

    var tgt = sp_scrollObj.getTargetLink(e);

    var cls = sp_scrollObj.get_DelimitedClass( tgt.className );

    //alert(cls)

    var parts = cls.split('_'); 

    var wndoId = parts[0]; var lyrId = parts[1]; var horizId = parts[2]? parts[2]: null;

    sp_scrollObj.col[wndoId].load(lyrId, horizId);

    if (e && e.preventDefault) e.preventDefault();

    return false;

}



sp_scrollObj.getWndoIdFromClass = function(e) {

    var tgt = sp_scrollObj.getTargetLink(e);

    var cls = sp_scrollObj.get_DelimitedClass( tgt.className );

    return cls.slice(0, cls.indexOf('_') );

}



sp_scrollObj.getTargetLink = function(e) {

    sp_Event.DOMit(e);

    var tgt = e.target;

    do {

        if ( tgt.tagName == 'A' ) {

            return tgt;

        }

    } while ( tgt = tgt.parentNode)

    return '';

}



sp_scrollObj.handleControlVis = function(controlsId, wndoId, axis) {

    var wndo = sp_scrollObj.col[wndoId];

    var el = document.getElementById(controlsId);

    if ( ( axis == 'v' && wndo.maxY > 0 ) || ( axis == 'h' && wndo.maxX > 0 ) ) {

        el.style.visibility = 'visible';

    } else {

        el.style.visibility = 'hidden';

    }

}