// Title: Tigra Menu
// Description: Free JavaScript Menu Navigation
// URL: http://www.javascript-menu.com/
// Version: 2.1 (commented source)
// Date: 06/26/2007
// Tech. Support: http://www.softcomplex.com/forum/forumdisplay_29/
// Notes: This script is free. Visit official site for further details.

//Solid null tester
function isNull(val) { return ( val == null || typeof(val) == 'undefined' ); }
function getSafeValue(val,failsafe) { return ( isNull(val) ? ( isNull(failsafe) ? null : failsafe ) : val ); }

// --------------------------------------------------------------------------------
// global collection containing all menus on current page
var A_MENUS = [];

// --------------------------------------------------------------------------------
// menu class
function menu (a_items, a_tpl) {

	// browser check
	if (!document.body || !document.body.style)
		return;

	// store items structure
	this.a_config = a_items;

	// store template structure
	this.a_tpl = a_tpl;

	// get menu id
	this.n_id = A_MENUS.length;

	// declare collections
	this.a_index = [];
	this.a_children = [];

	// assigh methods and event handlers
	this.expand      = menu_expand;
	this.collapse    = menu_collapse;

	this.onclick     = menu_onclick;
	this.onmouseout  = menu_onmouseout;
	this.onmouseover = menu_onmouseover;
	this.onmousedown = menu_onmousedown;
	
	//Custom handlers for manual link activation
	this.onmousemove = menu_onmousemove;

	// default level scope description structure 
	this.a_tpl_def = {
		'block_top'  : 16,
		'block_left' : 16,
		'top'        : 20,
		'left'       : 4,
		'width'      : 120,
		'height'     : 22,
		'hide_delay' : 0,
		'expd_delay' : 0,
		'css'        : {
			'inner' : '',
			'outer' : ''
		}
	};
	
	// assign methods and properties required to imulate parent item
	this.getprop = function (s_key) {
		return this.a_tpl_def[s_key];
	};

	this.o_root = this;
	this.n_depth = -1;
	this.n_x = 0;
	this.n_y = 0;

	// 	init items recursively
	for (n_order = 0; n_order < a_items.length; n_order++)
		new menu_item(this, n_order);

	// register self in global collection
	A_MENUS[this.n_id] = this;

	// make root level visible
	for (var n_order = 0; n_order < this.a_children.length; n_order++)
		this.a_children[n_order].e_oelement.style.visibility = 'visible';
}

// --------------------------------------------------------------------------------
function menu_collapse (n_id) {
	// cancel item open delay
	clearTimeout(this.o_showtimer);

	// by default collapse to root level
	var n_tolevel = (n_id ? this.a_index[n_id].n_depth : 0);
	
	// hide all items over the level specified
	for (n_id = 0; n_id < this.a_index.length; n_id++) {
		var o_curritem = this.a_index[n_id];
		if (o_curritem.n_depth > n_tolevel && o_curritem.b_visible) {
			o_curritem.e_oelement.style.visibility = 'hidden';
			o_curritem.b_visible = false;
		}
	}

	// reset current item if mouse has gone out of items
	if (!n_id)
		this.o_current = null;
}

// --------------------------------------------------------------------------------
function menu_expand (n_id) {

	// expand only when mouse is over some menu item
	if (this.o_hidetimer)
		return;

	// lookup current item
	var o_item = this.a_index[n_id];

	// close previously opened items
	if (this.o_current && this.o_current.n_depth >= o_item.n_depth)
		this.collapse(o_item.n_id);
	this.o_current = o_item;

	// exit if there are no children to open
	if (!o_item.a_children)
		return;

	// show direct child items
	for (var n_order = 0; n_order < o_item.a_children.length; n_order++) {
		var o_curritem = o_item.a_children[n_order];
		o_curritem.e_oelement.style.visibility = 'visible';
		o_curritem.b_visible = true;
	}
}

// --------------------------------------------------------------------------------
function menu_onclick (n_id) {
	var o_item = this.a_index[n_id];
    window._lastMenuItem = o_item;
	var s_link = o_item.a_config[1];
	if (!s_link)
		return true;
		
	if( o_item.isLinkActive )
	{
	    if (String(s_link).toLowerCase().indexOf('javascript:') == 0)
		    return eval(s_link);
	    if (o_item.a_config[2] && o_item.a_config[2]['tw'])
		    window.open(s_link, o_item.a_config[2]['tw']);
	    else
		    window.location = s_link;
	}
	return true;
}

// --------------------------------------------------------------------------------
function menu_onmouseout (n_id) {

	// lookup new item's object	
	var o_item = this.a_index[n_id];
    window._lastMenuItem = o_item;

	// apply rollout
	o_item.e_oelement.className = o_item.getstyle(0, 0);
	o_item.e_ielement.className = o_item.getstyle(1, 0);
	
	// update status line	
	o_item.upstatus(7);

	// run mouseover timer
	this.o_hidetimer = setTimeout('A_MENUS['+ this.n_id +'].collapse();',
		o_item.getprop('hide_delay'));
		
	//Handle release of manual activation
	if( o_item.isLinkManual() && o_item.isLinkActive ) {
	    o_item.SetLinkState(false);
	}
}

// --------------------------------------------------------------------------------
function menu_onmouseover (n_id) {

	// cancel mouseoute menu close and item open delay
	clearTimeout(this.o_hidetimer);
	this.o_hidetimer = null;
	clearTimeout(this.o_showtimer);

	// lookup new item's object	
	var o_item = this.a_index[n_id];
    window._lastMenuItem = o_item;

	// update status line	
	o_item.upstatus();

	// apply rollover
	o_item.e_oelement.className = o_item.getstyle(0, 1);
	o_item.e_ielement.className = o_item.getstyle(1, 1);
	
	// if onclick open is set then no more actions required
	if (o_item.getprop('expd_delay') < 0)
		return;

	// run expand timer
	this.o_showtimer = setTimeout('A_MENUS['+ this.n_id +'].expand(' + n_id + ');',
		o_item.getprop('expd_delay'));

}

// --------------------------------------------------------------------------------
// called when mouse button is pressed on menu item
// --------------------------------------------------------------------------------
function menu_onmousedown (n_id) {
	
	// lookup new item's object	
	var o_item = this.a_index[n_id];
    window._lastMenuItem = o_item;

	// apply mouse down style
	o_item.e_oelement.className = o_item.getstyle(0, 2);
	o_item.e_ielement.className = o_item.getstyle(1, 2);

	this.expand(n_id);
}

// --------------------------------------------------------------------------------
// called when the mouse moves within an item
// --------------------------------------------------------------------------------
function menu_onmousemove (n_id) {
    // lookup new item's object	
	var o_item = this.a_index[n_id];
    window._lastMenuItem = o_item;
    
	//Handle release of manual activation
	if( o_item.isLinkManual() ) {
	    if( !o_item.isLinkActive && window.isCtrlKeyDown())
	        o_item.SetLinkState(true);
	    if( o_item.isLinkActive && !window.isCtrlKeyDown() )
	        o_item.SetLinkState(false);
	}
}

//JW_WJ Potentially IE specific. Mild effort to use Mozilla event handling.
window._ctrlKeyDown = false;
window._lastMenuItem = null;
window.isCtrlKeyDown = function() { return ( !isNull(window._ctrlKeyDown) && window._ctrlKeyDown ); };
function menu_trackKeyDown (e) {
    var eventObject = (window.event ? event : e);
    if( (!window._ctrlKeyDown && eventObject.type == "keydown") || eventObject.type == "mouseover" ) {
        window._ctrlKeyDown = eventObject.ctrlKey;
        if( !isNull(window._lastMenuItem) ) window._lastMenuItem.e_oelement.onmousemove();
    }
    else if( eventObject.type == "keyup" || eventObject.type == "mouseout" || eventObject.type == "blur" ) {
        window._ctrlKeyDown = false;
        if( !isNull(window._lastMenuItem) ) window._lastMenuItem.e_oelement.onmousemove();
    }
}

//JW_WJ IE specific event wrapping. Requires Mozilla wrapping
if( !isNull(document.body.attachEvent) )
{
    document.attachEvent('onkeydown',menu_trackKeyDown);
    document.attachEvent('onkeyup',menu_trackKeyDown);
    document.attachEvent('onmouseout',menu_trackKeyDown);
    document.attachEvent('onblur',menu_trackKeyDown);
    document.attachEvent('onmouseover',menu_trackKeyDown);
}
else if( !isNull(document.body.addEventListener) )
{
    document.addEventListener('keydown',menu_trackKeyDown, false);
    document.addEventListener('keyup',menu_trackKeyDown, false);
    document.addEventListener('mouseout',menu_trackKeyDown, false);
    document.addEventListener('blur',menu_trackKeyDown, false);
    document.addEventListener('mouseover',menu_trackKeyDown, false);
}

// --------------------------------------------------------------------------------
// menu item Class
function menu_item (o_parent, n_order) {
    //Self reference for internal functions
    var me = this;

	// store parameters passed to the constructor
	this.n_depth  = o_parent.n_depth + 1;
	this.a_config = o_parent.a_config[n_order + (this.n_depth ? 3 : 0)];

	// return if required parameters are missing
	if (!this.a_config) return;

	// store info from parent item
	this.o_root    = o_parent.o_root;
	this.o_parent  = o_parent;
	this.n_order   = n_order;

	// register in global and parent's collections
	this.n_id = this.o_root.a_index.length;
	this.o_root.a_index[this.n_id] = this;
	o_parent.a_children[n_order] = this;

	// calculate item's coordinates
	var o_root = this.o_root,
		a_tpl  = this.o_root.a_tpl;

	// assign methods
	this.getprop  = mitem_getprop;
	this.getstyle = mitem_getstyle;
	this.upstatus = mitem_upstatus;

    //JW_WJ Addition from standard. Does not appear IE specific.
    this.CalcX = function(n_parent_x) {
        var n_parent_x = n_parent_x;
        if( isNull(n_parent_x) ) n_parent_x = getSafeValue(me.o_parent.n_x,0); //Make sure we have a value
        
        var b_useWidths = getSafeValue(me.getprop('use_widths'),false); //Makes it so that block_left is an offset from right side of parent
        var n_extraOffset = 0;
        if( b_useWidths && me.n_order != 0)
                n_extraOffset = getSafeValue(me.o_parent.a_children[me.n_order - 1].width,0);
        
        if( me.n_order == 0 ) //Is this the first child>
            return n_parent_x + me.getprop('block_left');
        else
            return me.o_parent.a_children[me.n_order - 1].n_x + n_extraOffset + me.getprop('left');
    };
    
    //JW_WJ Addition from standard. Does not appear IE specific.
    this.CalcY = function(n_parent_y) {
        var n_parent_y = n_parent_y;
        if( isNull(n_parent_y) ) n_parent_y = getSafeValue(me.o_parent.n_y,0); //Make sure we have a value
        
        var b_useHeights = getSafeValue(me.getprop('use_heights'),false); //Makes it so that block_left is an offset from right side of parent
        var n_extraOffset = 0;
        if( b_useHeights && me.n_order != 0 )
                n_extraOffset = getSafeValue(me.o_parent.a_children[me.n_order - 1].height,0);
        if( me.n_order == 0 ) //Is this the first child>
            return n_parent_y + me.getprop('block_top');
        else
            return me.o_parent.a_children[me.n_order - 1].n_y + n_extraOffset + me.getprop('top');
    };
	this.n_x = this.CalcX();
	this.n_y = this.CalcY();
	
	//JW_WJ Addition from standard. Does not appear IE specific.
	this.UpdatePosition = function(x,y) {
	    var x = getSafeValue(x,me.CalcX());
	    var y = getSafeValue(y,me.CalcY());
    
	    me.n_x = x;
	    me.n_y = y;
	    
	    me.e_oelement.style.left = getSafeValue(me.n_x,me.e_oelement.style.left);
	    me.e_oelement.style.top = getSafeValue(me.n_y,me.e_oelement.style.top);
	};


    // generate item's HMTL
	
	
	document.write (
		'<div id="e', o_root.n_id, '_',	this.n_id, 'o" class="', this.getstyle(0, 0), '"', 
		(!isNull(this.a_config[2]) && this.a_config[2]['tt'] ? ' title="' + this.a_config[2]['tt'] + '"' : ''),
		' style="position:absolute;top: ', this.n_y, 'px;left:', this.n_x, 'px;');

    //JW_WJ Addition from standard. Does not appear IE specific.
    if( !getSafeValue(me.getprop('use_heights'),false) ) //If we're not using heights use the absolute definition
        document.write('height:', this.getprop('height'), 'px;');
    if( !getSafeValue(me.getprop('use_widths'),false) ) //If we're not using widths use the absolute definition
		document.write('width:',this.getprop('width'), 'px;');
	
	document.write(
		'visibility:hidden;',' z-index: ', this.n_depth,';" ',
		'onclick="return A_MENUS[', o_root.n_id, '].onclick(', this.n_id,');"',
		' onmouseout="A_MENUS[', o_root.n_id, '].onmouseout(', this.n_id,');"',
		' onmouseover="A_MENUS[', o_root.n_id, '].onmouseover(', this.n_id, ');"',
		' onmousedown="A_MENUS[', o_root.n_id, '].onmousedown(', this.n_id, ');"',
		' onmousemove="A_MENUS[', o_root.n_id, '].onmousemove(',this.n_id, ');"',
		'><div id="e', o_root.n_id, '_', this.n_id, 'i" class="' ,this.getstyle(1, 0), '">',
		this.a_config[0], "</div></div>"
	);

	this.e_ielement = document.getElementById('e' + o_root.n_id + '_' + this.n_id + 'i');
	this.e_oelement = document.getElementById('e' + o_root.n_id + '_' + this.n_id + 'o');
	
	//JW_WJ Addition to account for offsets. Requires Mozilla compatible offset wrappers
	var p = this.e_oelement.parentNode;
	document.body.insertBefore(p.removeChild(this.e_oelement),document.body.firstChild);
	this.width = document.body.firstChild.offsetWidth;
	if( this.width < this.getprop('width') )
	    this.width = this.getprop('width');
	this.e_oelement.style.width = this.width;
	
	this.height = document.body.firstChild.offsetHeight;
	if( this.height < this.getprop('height') )
	    this.height = this.getprop('height');
    this.e_oelement.style.height = this.height;
	p.appendChild(document.body.removeChild(this.e_oelement));
	
	//JW_WJ Addition from standard. Does not appear IE specific.
	//Handle dynamic navigation
	this.isLinkActive = ( !isNull(this.a_config[2]) ? getSafeValue(this.a_config[2]['cursor'],'default') : 'default');
	this.isLinkManual = function()
	                    {
	                        try {
	                            return ( !isNull(this.a_config[2]) && !isNull(this.a_config[2]['manual_link']) && this.a_config[2]['manual_link'] );
	                        } catch(e) {
	                            return false;
	                        }
	                    };
	this.hasLink = function() { return ( !isNull(this.a_config[1]) && this.a_config[1] != "" ); };
	this.SetLinkState = function(b_val) {
	    me.isLinkActive = b_val;
	    if( b_val ) {
	        me.e_oelement.style.cursor = ( !isNull(this.a_config[2]) ? getSafeValue(this.a_config[2]['cursor'],( me.hasLink() ? 'pointer' : 'default' )) : 'default');
	    } else {
	        me.e_oelement.style.cursor = 'default';
	    }
	};
	this.SetLinkState(this.hasLink() && !this.isLinkManual());
  
	this.b_visible = !this.n_depth;

	// no more initialization if leaf
	if (this.a_config.length < 4)
		return;

	// node specific methods and properties
	this.a_children = [];

	// init downline recursively
	for (var n_order = 0; n_order < this.a_config.length - 3; n_order++)
		new menu_item(this, n_order);
}

// --------------------------------------------------------------------------------
// reads property from template file, inherits from parent level if not found
// ------------------------------------------------------------------------------------------
function mitem_getprop (s_key) {

	// check if value is defined for current level
	var s_value = null,
		a_level = this.o_root.a_tpl[this.n_depth];

	// return value if explicitly defined
	if (a_level)
		s_value = a_level[s_key];

	// request recursively from parent levels if not defined
	return (s_value == null ? this.o_parent.getprop(s_key) : s_value);
}
// --------------------------------------------------------------------------------
// reads property from template file, inherits from parent level if not found
// ------------------------------------------------------------------------------------------
function mitem_getstyle (n_pos, n_state) {

	var a_css = this.getprop('css');
	var a_oclass = a_css[n_pos ? 'inner' : 'outer'];

	// same class for all states	
	if (typeof(a_oclass) == 'string')
		return a_oclass;

	// inherit class from previous state if not explicitly defined
	for (var n_currst = n_state; n_currst >= 0; n_currst--)
		if (a_oclass[n_currst])
			return a_oclass[n_currst];
}

// ------------------------------------------------------------------------------------------
// updates status bar message of the browser
// ------------------------------------------------------------------------------------------
function mitem_upstatus (b_clear) {
	window.setTimeout("window.status=unescape('" + (b_clear
		? ''
		: (!isNull(this.a_config[2]) && this.a_config[2]['sb']
			? escape(this.a_config[2]['sb'])
			: escape(this.a_config[0]) + (this.a_config[1]
				? ' ('+ escape(this.a_config[1]) + ')'
				: ''))) + "')", 10);
}

// --------------------------------------------------------------------------------
// that's all folks