// -*-C-*- //tell emacs to use the C mode

// Title: tigra menu
// Description: See the demo at url
// URL: http://www.softcomplex.com/products/tigra_menu/
// Version: 2.0 (commented source)
// Date: 04-05-2003 (mm-dd-yyyy)
// Contact: feedback@softcomplex.com (specify product title in the subject)
// Tech. Support: http://www.softcomplex.com/forum/forumdisplay.php?fid=40
// Notes: This script is free. Visit official site for further details.

// --------------------------------------------------------------------------------
// 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;

  // 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) {
  // don't go anywhere if item has no link defined
  return Boolean(this.a_index[n_id].a_config[1]);
}

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

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

  // 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'));
}

// --------------------------------------------------------------------------------
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];

  // 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];

  // 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);
  //  this.items[id].switch_style('onmousedown');
}


// --------------------------------------------------------------------------------
// menu item Class
function menu_item (o_parent, n_order) {

  // 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;

  this.n_x = n_order
    ? o_parent.a_children[n_order - 1].n_x + this.getprop('left')
    : o_parent.n_x + this.getprop('block_left');

  this.n_y = n_order
    ? o_parent.a_children[n_order - 1].n_y + this.getprop('top')
    : o_parent.n_y + this.getprop('block_top');

  // generate item's HMTL
  document.write (
                  '<a id="e' + o_root.n_id + '_'
                  + this.n_id +'o" class="' + this.getstyle(0, 0) + '" href="' + this.a_config[1] + '"'
                  + (this.a_config[2] && this.a_config[2]['tw'] ? ' target="'
                     + this.a_config[2]['tw'] + '"' : '') + ' style="position: absolute; top: '
                  + this.n_y + 'px; left: ' + this.n_x + 'px; width: '
                  + this.getprop('width') + 'px; height: '
                  + this.getprop('height') + 'px; 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 + ');"><div  id="e' + o_root.n_id + '_'
                  + this.n_id +'i" class="' + this.getstyle(1, 0) + '">'
                  + this.a_config[0] + "</div></a>\n"
                  );
  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');

  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
                                                  ? ''
                                                  : (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
