var isDOM=document.getElementById?1:0;
var isIE=document.all?1:0;
var isNS4=navigator.appName=='Netscape'&&!isDOM?1:0;
var isIE4=isIE&&!isDOM?1:0;
var isOp=window.opera?1:0;
var isWin=navigator.platform.indexOf('Win')!=-1?1:0;
var isDyn=isDOM||isIE||isNS4;

function getRef(id, par) {
 par=!par?document:(par.navigator?par.document:par);
 return isIE ? par.all[id] :
  (isDOM ? (par.getElementById?par:par.ownerDocument).getElementById(id) :
  (isNS4 ? par.layers[id] : null));
}

function getSty(id, par) {
 var r=getRef(id, par);
 return r?(isNS4?r:r.style):null;
}

if (!window.LayerObj) var LayerObj = new Function('id', 'par',
 'this.ref=getRef(id, par); this.sty=getSty(id, par); return this');

function getLyr(id, par) { return new LayerObj(id, par) }

function LyrFn(fn, fc) {
 LayerObj.prototype[fn] = new Function('var a=arguments,p=a[0],px=isNS4||isOp?0:"px"; ' +
  'with (this) { '+fc+' }');
}
LyrFn('x','if (!isNaN(p)) sty.left=p+px; else return parseInt(sty.left)');
LyrFn('y','if (!isNaN(p)) sty.top=p+px; else return parseInt(sty.top)');
LyrFn('w','if (p) (isNS4?sty.clip:sty).width=p+px; ' +
 'else return (isNS4?ref.document.width:ref.offsetWidth)');
LyrFn('h','if (p) (isNS4?sty.clip:sty).height=p+px; ' +
 'else return (isNS4?ref.document.height:ref.offsetHeight)');
LyrFn('vis','sty.visibility=p');
LyrFn('clip','if (isNS4) with(sty.clip){left=a[0];top=a[1];right=a[2];bottom=a[3]} ' +
 'else sty.clip="rect("+a[1]+"px "+a[2]+"px "+a[3]+"px "+a[0]+"px)" ');


var CSSmode=document.compatMode;
CSSmode=(CSSmode&&CSSmode.indexOf('CSS')!=-1)||isDOM&&!isIE||isOp?1:0;

if (!window.page) var page = { win: window, minW: 0, minH: 0, MS: isIE&&!isOp,
 db: CSSmode?'documentElement':'body' }

page.winW=function() { with (this) return Math.max(minW, MS?win.document[db].clientWidth:win.innerWidth) }
page.winH=function() { with (this) return Math.max(minH, MS?win.document[db].clientHeight:win.innerHeight) }

page.scrollY=function() { with (this) return MS?win.document[db].scrollTop:win.pageYOffset }

function scrLoad(fName) { with (this) {
 if (!fName || !loaded || !isDyn) return;
 loadingFile = fName;
 if (onbeforeload) onbeforeload();
 if (loadingFile != history[histPos])  {
  histPos++;
  history[histPos] = loadingFile;
  history.length = histPos + 1;
 }
 if (isIE || isDOM) with (bufRef.document) {
  write('<html><body onload="parent.' + myName + '.fileLoaded()">' +
   '<iframe name="nestBuf" src="' + fName + '"></iframe></body></html>');
  close();
  if (!bufRef.nestBuf || (isIE4 && !isWin)) {
   bufRef.location.href = fName;
   setTimeout(myName + '.fileLoaded()', 5000);
  }
 }
 else if (isNS4) {
  if (window.ns4LayerLoading) {
   setTimeout(myName + '.load("' + fName + '")', 100);
   return;
  }
  window.ns4LayerLoading = true;
  div.ref.onload = new Function(myName + '.fileLoaded()');
  div.ref.load(fName, cWidth);
 }
}}


function scrFileLoaded() { with (this) {
 activeScr = null;
 if (isNS4) window.ns4LayerLoading = false;
 if ((isDOM || isIE) && loadingFile) {
  var bufDoc = bufRef.nestBuf ? bufRef.nestBuf.document : bufRef.document;
  if (bufDoc && bufDoc.body) div.ref.innerHTML = bufDoc.body.innerHTML;
  bufRef.location.replace('about:blank');
 }
 loadedFile = loadingFile;
 setTimeout('with(' + myName + ') { scrollTo(0); if (onload) onload() }', 1);
}}

function scrGo(dir) { with (this) {
 histPos += dir;
 if (histPos < 0) { histPos = 0; return }
 if (histPos >= history.length) { histPos = history.length - 1; return }
 load(history[histPos]);
}}

function scrScrollTo(pos, isStick) { with (this) {
 if (!isDyn || !loaded) return;
 cTop = pos;
 if (!isStick) stickTop = cTop;
 divHeight = div.h() + padTop + padBot;
 if (divHeight == 0) divHeight = 1;
 if (checkBounds) {
  if (cTop + cHeight > divHeight) cTop = divHeight - cHeight;
  if (cTop < 0) cTop = 0;
 }
 div.y(eval(divs[0].y) - cTop + padTop);
 div.clip(0, cTop - padTop, cWidth, cTop - padTop + cHeight);
 thmHeight = Math.ceil(barHeight * (cHeight / divHeight));
 if (thmHeight < minThmHeight) thmHeight = minThmHeight;
 if (thmHeight > barHeight) thmHeight = barHeight;
 thm.h(thmHeight);
 if (onscroll) onscroll();
 if (activeScr || isStick) return;
 var fracDivDown = (cTop / (divHeight - cHeight));
 thm.y(bar.y() + fracDivDown * (barHeight - thmHeight));
}}


function scrScrollBy(amount) { with (this) {
 scrollTo(cTop + amount);
}}


function scrSetScroll(newSpeed, steps) { with (this) {
 if (!loaded) return;
 stepsLeft = steps;
 if (timer) clearInterval(timer);
 timer = setInterval('with (' + myName + ') { ' +
  'if (stepsLeft > 0) { ySpeed += ' + ((newSpeed-ySpeed)/steps) + '; stepsLeft-- } ' +
  'else if (parseInt(ySpeed)==0) {clearInterval(timer);timer=null} scrollBy(ySpeed) }', 50);
}}

function scrThumbDown(evt) { with (this) {
 var evt = evt?evt:window.event;
 activeScr = this;
 dragOffset = (isNS4 ? evt.layerY : page.scrollY() + evt.clientY - thm.y());
 if (onthumbdown) onthumbdown();
 if (timer) clearInterval(timer);
 timer = null;
 return false;
}}

function scrThumbMove(evt) {
 var evt = evt?evt:window.event;
 if (!activeScr) return true;
 else with (activeScr) {
  if ((cTop + cHeight > divHeight) || (thmHeight == barHeight)) return true;
  var thmTop = (isNS4 ? evt.pageY : page.scrollY() + evt.clientY) - dragOffset - bar.y();
  if (thmTop < 0) thmTop = 0;
  if (thmTop + thmHeight > barHeight) thmTop = barHeight - thmHeight;
  thm.y(bar.y() + thmTop);
  stickTop = (divHeight - cHeight) * (thmTop / (barHeight - thmHeight));
  if (stick == 1) scrollTo(stickTop);
  else if (!timer) timer = setInterval(myName + '.stickScroll()', 40);
  return false;
 }
}

function scrStickScroll() { with (this) {
 if (Math.abs(cTop - stickTop) > 1) {
  cTop += (stickTop - cTop) * stick;
  scrollTo(cTop, true);
 }
 else if (cTop != stickTop) {
  cTop = stickTop;
  scrollTo(cTop, true);
 }
}}

function scrThumbUp(evt) {
 if (activeScr) with (activeScr) if (onthumbup) onthumbup();
 activeScr = null;
}

function scrBarClick(evt) { with (this) {
 var evt = evt?evt:window.event;
 clickPos = isNS4 ? evt.pageY : page.scrollY() + evt.clientY;
 if (clickPos < thm.y()) scrollBy(0 - cHeight);
 if (clickPos > (thm.y() + thmHeight)) scrollBy(cHeight);
 if (isNS4) return document.routeEvent(evt);
}}

function scrLayout() { with (this) {
 if (!isDyn || !loaded) return;
 for (var i = 0; i < divs.length; i++) with (divs[i].lyr) {
  x(eval(divs[i].x)); w(Math.max(0,eval(divs[i].w)));
  if (i) { y(eval(divs[i].y)); h(Math.max(0,eval(divs[i].h))) }
 }
 barHeight = eval(divs[1].h);
 cWidth = eval(divs[0].w);
 cHeight = eval(divs[0].h);
 if (onlayout) onlayout();
 scrollBy(0);
}}

function scrSetup(defaultFile) { with (this) {
 if (!isDyn) return;
 for (var i = 0; i < divs.length; i++)
  divs[i].lyr = getLyr(divs[i].id, eval(divs[i].par));
 div = divs[0].lyr;
 bar = divs[1].lyr;
 thm = divs[2].lyr;
 if (!isNS4) bufRef = eval('window.' + myName + 'Buf');
 if (isNS4) {
  bar.ref.captureEvents(Event.CLICK);
  thm.ref.captureEvents(Event.MOUSEDOWN);
 }
 bar.ref.onclick = new Function('evt', 'return ' + myName + '.barClick(evt)');
 thm.ref.onmousedown = new Function('evt', 'return ' + myName + '.thumbDown(evt)');
 var noSel = new Function('if (activeScr) return false');
 if (isIE) document.onselectstart = noSel;
 else if (isDOM) document.onselect = noSel;
 loaded = true;
 layout();
 if (onsetup) onsetup();
 var fileName = fnSpecific;
 var URL = location.search.substring(1);
 if (URL) {
  URL = URL.split('&');
  for (var i = 0; i < URL.length; i++)
   if (URL[i].split('=')[0] == myName) fileName = unescape(URL[i].split('=')[1]);
 }
 if (fileName) load(fileName)
 else if (defaultFile) load(defaultFile);
 else fileLoaded();
}}

function addProps(obj, data, names, addNull) {
 for (var i = 0; i < names.length; i++) if(i < data.length || addNull) obj[names[i]] = data[i];
}

function DHTMLScroller() {
 var names = ['myName', 'bufRef', 'div', 'bar', 'thm', 'loaded', 'timer',
 'divHeight', 'thmHeight', 'barHeight', 'cHeight', 'cWidth', 'dragOffset',
 'onbeforeload', 'onload', 'onscroll', 'onsetup', 'onlayout', 'onthumbdown', 'onthumbup'];
 addProps(this, arguments, names, true);
 this.cTop = 0;
 this.loadingFile = '';
 this.loadedFile = '';
 this.history = new Array();
 this.histPos = -1;
 this.divs = new Array();
 this.minThmHeight = 25;
 this.padTop = 0;
 this.padBot = 0;
 this.checkBounds = true;
 this.ySpeed = this.stepsLeft = 0;
 this.stick = 1;
 this.stickTop = 0;
 this.load = scrLoad;
 this.fileLoaded = scrFileLoaded;
 this.go = scrGo;
 this.scrollTo = scrScrollTo;
 this.scrollBy = scrScrollBy;
 this.setScroll = scrSetScroll;
 this.thumbDown = scrThumbDown;
 this.stickScroll = scrStickScroll;
 this.barClick = scrBarClick;
 this.setup = scrSetup;
 this.layout = scrLayout;
}

function ScrDiv() {
 addProps(this, arguments, ['id','x','y','w','h','par','lyr'], true);
}

var activeScr = null;
var mainDiv = new DHTMLScroller('mainDiv');
with (mainDiv) {
 // set main scrolling area sizes: 0=main, 1=scrollbarBG, 2=scrollbarThumb
 // divs[number] = new ScrDiv('id of div below', 'x', 'y', 'width', 'height', 'parent');
 // divs[0] = new ScrDiv('mainDivContent', '50', '50', 'page.winW() - 150', 'page.winH() - 100');
 var omainLeft = 140;
 var omainTop = 90;
 var omainWidth = 590;
 var omainHeight = 360;
 
 var obarLeft = omainLeft+omainWidth+8;
 var obarTop = omainTop+17;
 var obarWidth = 14;
 var obarHtOffset = document.all?-8:8;
 var obarHeight = omainHeight+obarHtOffset-8;
 
 var othumbLeft = obarLeft;
 var othumbTop = '';
 var othumbWidth = obarWidth;
 var othumbHeight = '';
 
 var ouparrowLeft = obarLeft;
 var ouparrowTop = omainTop-19;
 var ouparrowWidth = '';
 var ouparrowHeight = '';
 
 var odnarrowLeft = obarLeft;
 var odnarrowTop = omainTop+omainHeight;
 var odnarrowWidth = '';
 var odnarrowHeight = '';
 
 // divs[0] = new ScrDiv('mainDivContent', '347', '110', '300', '200');
 divs[0] = new ScrDiv('mainDivContent', omainLeft, omainTop, omainWidth, omainHeight);
 divs[1] = new ScrDiv('mainDivBar', obarLeft, obarTop, obarWidth, obarHeight);
 divs[2] = new ScrDiv('mainDivThumb', othumbLeft, othumbTop, othumbWidth, othumbHeight);
 divs[3] = new ScrDiv('mainDivUpArrows', ouparrowLeft, ouparrowTop, ouparrowWidth, ouparrowHeight);
 divs[4] = new ScrDiv('mainDivDownArrows', odnarrowLeft, odnarrowTop, odnarrowWidth, odnarrowHeight);
 page.minW = 400;
 page.minH = 300;
 onload = loadFunction; 
 onlayout = thumbVis;
}

function loadFunction() { with (this) {
 getSty('loadMessage').visibility = 'hidden';
 for (var i = 0; i < divs.length; i++) if (i != 2) divs[i].lyr.vis('visible');
 onlayout();
}}

function thumbVis() { with (this) { 
 divs[2].lyr.vis(div.h() > cHeight ? 'visible' : 'hidden');
}}

window.onload = function() {
 mainDiv.setup();
}

window.onresize = function() {
 ns4BugCheck();
 mainDiv.layout();
}

if (isNS4) document.captureEvents(Event.MOUSEMOVE | Event.MOUSEUP);
document.onmousemove = function(evt) {
 var ret = scrThumbMove(evt);
 return (ret ? (isNS4?document.routeEvent(evt):true) : false);
}

document.onmouseup = function(evt)
{
 scrThumbUp(evt);
 if (isNS4) return document.routeEvent(evt);
}

var nsWinW = window.innerWidth, nsWinH = window.innerHeight;
function ns4BugCheck() {
 if (isNS4 && (nsWinW!=innerWidth || nsWinH!=innerHeight)) {
  var fileName = location.href;
  if (fileName.indexOf('?') != -1) fileName = fileName.substring(0, fileName.indexOf('?'));
  location.href = fileName + '?mainDiv=' + mainDiv.loadedFile;
 }
}

function scrKeyDown(evt) { with (mainDiv) {
 if (!loaded) return;
 var evt = evt?evt:window.event;
 var key = evt.keyCode?evt.keyCode:(evt.charCode?evt.charCode:evt.which);
 if (key==84 || key==116 || key==36) scrollTo(0);         // 'T', 't' or 'Home'
 if (key==83 || key==115 || key==33) scrollBy(0-cHeight); // 'S', 's' or 'PgUp'
 if (key==65 || key==97  || key==38) scrollBy(-10);       // 'A', 'a' or 'Up'
 if (key==90 || key==122 || key==40) scrollBy(10);        // 'Z', 'z' or 'Down'
 if (key==88 || key==120 || key==34) scrollBy(cHeight);   // 'X', 'x' or 'PgDn'
 if (key==66 || key==98  || key==35) scrollTo(divHeight); // 'B', 'b' or 'End'
}}

if (isIE) document.onkeydown = scrKeyDown;
else {
 if (isNS4) document.captureEvents(Event.KEYPRESS);
 document.onkeypress = scrKeyDown;
}

if (isIE) document.onmousewheel = function() {
 mainDiv.scrollBy(event.wheelDelta / -3);
 return false;
}


