var xIE8Up; // yuck!
/*@cc_on
@if (@_jscript_version > 5.7)
  xIE8Up = true;
@end @*/

var xGecko = window.navigator.product == 'Gecko'; // yuckier!

// xTableHeaderFixed r8, Copyright 2006-2010 Michael Foster (Cross-Browser.com)
// Part of X, a Cross-Browser Javascript Library, Distributed under the terms of the GNU LGPL
function xTableHeaderFixed(tclass, tcon, w)
{
  // Public Method
  this.init = function(tclass, tcon, w)
  {
    _dtor();
    return _ctor(tclass, tcon, w);
  };
  // Constructor Code
  var _i = this, con, tbl, win, cbl = 0, cbt = 0, fp = true, fc = 'xthf-fix-tbl', ac = 'xthf-abs-tbl'; // private properties
  if (tclass) {
    _ctor(tclass, tcon, w);
  }
  // Private Methods
  function _ctor(tclass, tcon, w)
  {
    var i, h, t, htc = (w ? fc : ac);
    tbl = xGetElementsByClassName(tclass, document, 'table');
    con = xGetElementById(tcon);
    if (!tbl || !tbl.length || !con) {
      return false;
    }
    if (!(win = w)) {
      con.scrollTop = 0;
    }
    // Create a header table for each table with tclass.
    for (i = 0; i < tbl.length; ++i) {
      h = tbl[i].tHead;
      if (h) {
        t = document.createElement('table');
        t.className = tclass + ' ' + htc;
        if (tbl[i].cellSpacing !== '') {
          t.cellSpacing = tbl[i].cellSpacing;
        }
        t.appendChild(h.cloneNode(true));
        t.id = tbl[i].xthfHdrTblId = 'xthf-' + tclass + '-' + i;
        document.body.appendChild(t);
      }
      else {
        tbl[i] = null;
      }
    }
    // !!! ???
    if (!w && !xIE8Up && !window.opera) {
      cbl = xGetComputedStyle(con, 'border-left-width', true),
      cbt = xGetComputedStyle(con, 'border-top-width', true);
    }
    //
    _event({type:'resize'});
    xAddEventListener(con, 'scroll', _event, false);
    xAddEventListener(window, 'resize', _event, false);
    xAddEventListener(window, 'unload', _dtor, false);
    return true;
  }
  function _dtor()
  {
    var i, ht;
    if (con) {
      xRemoveEventListener(con, 'scroll', _event);
      xRemoveEventListener(window, 'resize', _event);
      xRemoveEventListener(window, 'unload', _dtor);
      // Remove the header tables from the DOM.
      for (i = 0; i < tbl.length; ++i) {
        ht = xGetElementById(tbl[i].xthfHdrTblId);
        if (ht) {
          document.body.removeChild(ht);
        }
        tbl[i] = null;
      }
      tbl = null;
      con = null;
    }
  }
  function _event(e) // handles scroll and resize events
  {
    var i, r;
    e = e || window.event;
    r = e.type == 'resize';
    for (i = 0; i < tbl.length; ++i) {
      _paint(tbl[i], r);
    }
  }
  function _paint(t, r)
  {
    var i, ht, c1, c2, st, ty, thy, w, sep;
    if (!t) { return; }
    ht = xGetElementById(t.xthfHdrTblId);
    // Hide or show the header table.
    st = xScrollTop(con, win);
    if (win) {
      ty = xPageY(t);
    }
    else {
      ty = t.offsetTop;
    }
    thy = ty + t.rows[0].offsetTop;
    if (st <= thy || st > ty + t.offsetHeight - ht.offsetHeight) {
      ht.style.left = '-2000px'; // hide it
      fp = true; // first-paint after being hidden
      return;
    }
    // Position the header table.
    xLeft(ht, xPageX(t) - xScrollLeft(con, win) + cbl);
    if (!win) {
      xTop(ht, xPageY(con) + cbt);
    }
    if (fp || r) {
      // Resize the header table THs.
      c1 = xGetElementsByTagName('th', t.tHead);
      c2 = xGetElementsByTagName('th', ht.tHead);

//      sep = xGetComputedStyle(t, 'border-collapse') == 'separate';/////////////////

      for (i = 0; i < c1.length; ++i) {

        /////// testing something for table 3 ///////
        w = c1[i].offsetWidth;
//        //if ((xGecko || xIE8Up) && c1[i].colSpan > 1) {
//        if (xGecko && (win || sep) && c1[i].colSpan > 1) {
//          --w; // ???????????????
//        }
        /////////////////////////////////////////////

        xTableHeaderFixed.xWidth(c2[i], w);
      }
      fp = false;
    }
  }
} // end xTableHeaderFixed

// xWidth r8?, Copyright 2001-2010 Michael Foster (Cross-Browser.com)
// Part of X, a Cross-Browser Javascript Library, Distributed under the terms of the GNU LGPL
// This function is currently experimental and used only by xTableHeaderFixed.
xTableHeaderFixed.xWidth = function(e,w)
{
  var pl=0, pr=0, b=0, gcs;
  if (!(e = xGetElementById(e))) return false;
  if (xNum(w)) {
    if (w < 0) w = 0; // return false ???
    else w = Math.round(w);
  }
  else w = -1;
  if (xDef(e.style, e.offsetWidth, e.clientWidth)) {
    if (w >= 0) {
      if (document.compatMode=='CSS1Compat') {
        gcs = xGetComputedStyle;
        pl = gcs(e, 'padding-left', 1);
        pr = gcs(e, 'padding-right', 1);
        b = e.offsetWidth - e.clientWidth;
        if (window.opera && e.tagName.toLowerCase() != 'table') {
          b = Math.round(b / 2); // possibly only for TDs and THs !!! haven't yet finished testing in Opera !!!
        }
        w -= (pl + pr + b);
        if (isNaN(w) || w < 0) return false;
      }
      e.style.width = w + 'px';
    }
    w = e.offsetWidth;
  }
  else  {
    return false;
  }
  return w;
};