//Code 2008-2011 by pigwa
//scroll
function crDv(oid,cnm,l,t){var dv=crEl(d,"div",cnm,"id="+oid+";");if(l){dv.style.left=l;}if(t){dv.style.top=t;}return dv;}
var scrlNs=new Array("snews");
var scrlOs=new Array();
var scrlStlNm="scrl";var scrlW=15;var scrlRM=8;var scrlBrdrPdgnMrgns=4;var scrlS=10;
var scrlT=80;
var upTx="▲";
var dwTx="▼";
var slTx="=";
var whlId;var obj;
function getObjH(o){return parseInt((o.offsetHeight)?o.offsetHeight:((o.clip&&o.clip.height)?o.clip.height:((o.style&&o.style.pixelHeight)?o.style.pixelHeight:null)));}
function getObjT(o){return parseInt((o.offsetTop)?o.offsetTop:((o.clip&&o.clip.top)?o.clip.top:((o.style&&o.style.pixelTop)?o.style.pixelTop:0)));}
function getObjST(o){return parseInt(o.style.top);}
function getObjW(o){return parseInt((o.offsetWidth)?o.offsetWidth:((o.clip&&o.clip.width)?o.clip.width:((o.style&&o.style.pixelWidth)?o.style.pixelWidth:null)));}
function ScrlBr(dCnr,dCnt){var scrlBr=new Object();dCnt.style.overflow="hidden";scrlBr.id=dCnr.id;scrlBr.dCnr=dCnr;scrlBr.dCnt=dCnt;scrlBr.dSrl=crDv("scrlBr"+dCnr.id,"scrlBr",0,getObjT(dCnt));scrlBr.dSrl.style.height=getObjH(dCnt)+"px";scrlBr.btUp=crDv("scrlUp"+dCnr.id,"scrlUp","0","0");scrlBr.btUp.innerHTML=upTx;scrlBr.btDn=crDv("scrlDn"+dCnr.id,"scrlDn","0");scrlBr.btDn.innerHTML=dwTx;scrlBr.btDn.style.bottom="0";scrlBr.dSdr=crDv("scrlRl"+dCnr.id,"scrlRl","0",scrlW+"px");scrlBr.dSdr.innerHTML=slTx;scrlBr.dSdr.style.height=getObjH(dCnt)*(getObjH(dCnt)-2*scrlW)/dCnt.scrollHeight-scrlBrdrPdgnMrgns+"px";scrlBr.dSrl.appendChild(scrlBr.btUp);scrlBr.dSrl.appendChild(scrlBr.btDn);scrlBr.dSrl.appendChild(scrlBr.dSdr);dCnr.insertBefore(scrlBr.dSrl,dCnt);scrlBr.dSdr.style.top=scrlW+getObjH(scrlBr.dSdr)*scrlBr.dCnt.scrollTop/getObjH(scrlBr.dCnt)+"px";scrlBr.ofsY=0;aEv(scrlBr.dSdr,"mousedown",scrlGrab,false);aEv(scrlBr.dSrl,"mouseup",scrlJump,false);aEv(scrlBr.btUp,"mousedown",scrlLckU,false);aEv(scrlBr.btUp,"mouseup",scrlULck,false);aEv(scrlBr.btUp,"mouseout",scrlULck,false);aEv(scrlBr.btDn,"mousedown",scrlLckD,false);aEv(scrlBr.btDn,"mouseup",scrlULck,false);aEv(scrlBr.btDn,"mouseout",scrlULck,false);scrlBr.autoScrl=null;scrlSetVisibility(scrlBr);if("visible"==scrlBr.dSrl.style.visibility){scrlBr.dCnr.onmouseover=function(){whlId=this.id;};scrlBr.dCnr.onmouseout=function(){whlId=null;};aEv(scrlBr.dCnt,"DOMMouseScroll",scrlMouse,false);aEv(scrlBr.dCnt,"mousewheel",scrlMouse,false);}return scrlBr;}
function getESrc(e){return (e.srcElement?e.srcElement:e.target);}
function getScrl4E(e){var id=getESrc(e).id;return scrlOs[id.substring(6,id.length)];}
function scrlSetVisibility(sBr,rs){if(getObjH(sBr.dCnt)<sBr.dCnt.scrollHeight){showO(sBr.dSrl);sBr.dCnt.style.width=(getObjW(sBr.dCnt)-scrlW-scrlRM)+"px";}else{hideO(sBr.dSrl);if(rs){sBr.dCnt.style.width=(getObjW(sBr.dCnt)+scrlW+scrlRM)+"px";}}} 
function scrlRes(o,i,h){for(i=0;i<scrlNs.length;i++){o=scrlOs[scrlNs[i]];if(o){o.dCnt.scrollTop=1+o.dCnt.scrollTop;o.dSrl.style.height=(h=getObjH(o.dCnt))+"px";o.dSrl.style.top=getObjT(o.dCnt);o.dSdr.style.height=h*(h-2*scrlW)/o.dCnt.scrollHeight-scrlBrdrPdgnMrgns+"px";o.dSdr.style.top=scrlW+getObjH(o.dSdr)*o.dCnt.scrollTop/h+"px";}}}
function scrlO(c,s,stp){var nt=getObjST(s)+stp;if(nt<scrlW){nt=scrlW;}else{var sbtm=getObjH(s.parentNode)-scrlW-getObjH(s);if(sbtm<nt){nt=sbtm;}}s.style.top=nt+"px";c.scrollTop=(c.scrollHeight/(getObjH(c)-2*scrlW))*(nt-scrlW);}
function scrlLckU(e,o){if(!o){o=getScrl4E(e);}scrlO(o.dCnt,o.dSdr,-scrlW/2);o.autoScrl=setTimeout("scrlLckU(null,scrlOs['"+o.id+"'])",scrlT);}
function scrlLckD(e,o){if(!o){o=getScrl4E(e);}scrlO(o.dCnt,o.dSdr,scrlW/2);o.autoScrl=setTimeout("scrlLckD(null,scrlOs['"+o.id+"'])",scrlT);}
function scrlULck(e,o){clearTimeout((o=getScrl4E(e)).autoScrl);o.autoScrl=null;}
function scrlJump(e,dY,o,tp){if(!obj){dY=e.layerY;if(!dY){dY=e.offsetY;}o=getScrl4E(e);if(o){if(scrlW<dY&&dY<(tp=getObjST(o.dSdr))){scrlO(o.dCnt,o.dSdr,-((tp-dY)/2));}else if((tp+getObjH(o.dSdr)<dY)&&(dY<getObjH(o.dSrl)-scrlW)){scrlO(o.dCnt,o.dSdr,((dY-getObjH(o.dSdr)-tp)/2));}}}}
function scrlMouse(e,dY,o){if(e.wheelDelta){dY=-e.wheelDelta/120;}else if(e.detail){dY=e.detail/3;}if((o=scrlOs[whlId])){scrlO(o.dCnt,o.dSdr,dY*10);}}
function scrlGrab(e){obj=getScrl4E(e);obj.ofsY=e.clientY;e.cancelBubble=true;if(e.stopPropagation){e.stopPropagation();}if(e.preventDefault){e.preventDefault();}}
function scrlFree(e){obj=null;}
function scrlSlide(e){if(obj){scrlO(obj.dCnt,obj.dSdr,e.clientY-obj.ofsY);obj.ofsY=e.clientY;}return false;}
function chngScrls(){var i;var chld;{var scrlDv=new Array();for(i=scrlNs.length;i;){scrlDv[--i]=d.getElementById(scrlNs[i]);if(scrlDv[i]){var chlds=scrlDv[i].childNodes;for(j=chlds.length;j;){if((chld=chlds[--j])&&chld.className&&0<=chld.className.indexOf(scrlStlNm)){if(!scrlOs[scrlNs[i]]){scrlOs[scrlNs[i]]=ScrlBr(scrlDv[i],chld);}}}}}aEv(d,"mouseup",scrlFree,false);aEv(d,"mousemove",scrlSlide,true);aEv(window,"resize",scrlRes,false);}}

var ascrl;var ascrlHeight=208;
function autoScrl(dv){var t=dv.scrollTop;dv.scrollTop+=1;if(t==dv.scrollTop){dv.scrollTop=0;}}
function ascrlMouse(e,dY,o){if(ascrl){if(e.wheelDelta){dY=-e.wheelDelta/120;}else if(e.detail){dY=e.detail/3;}ascrl.scrollTop+=dY*10;}}
function autoScrlOn(dv){dv.ascrl=setInterval("autoScrl(d.getElementById('"+dv.id+"'))",scrlT);}
function chngAScrls(){var tchlds=d.getElementById("tnews").childNodes;for(i=tchlds.length;i;){if((chld=tchlds[--i])&&chld.className&&0<=chld.className.indexOf(scrlStlNm)&&!chld.ascrl){chld.id="autoScroll"+i;chld.style.overflow="hidden";chld.style.cursor="move";dsp=crDv("ascrlWht","",0,0);dsp.style.height=ascrlHeight+"px";chld.insertBefore(dsp,chld.childNodes[0]);dsp=crDv("ascrlWht","",0,0);dsp.style.height=ascrlHeight+"px";chld.appendChild(dsp);autoScrlOn(chld);chld.onmouseover=function(){ascrl=this;clearInterval(this.ascrl);};chld.onmouseout=function(){ascrl=null;this.ofsY=null;autoScrlOn(this);};aEv(chld,"mousedown",function(e){ascrl.ofsY=e.clientY;e.cancelBubble=true;if(e.stopPropagation){e.stopPropagation();}if(e.preventDefault){e.preventDefault();}return false;},false);aEv(chld,"mouseup",function(e){ascrl.ofsY=null;e.cancelBubble=true;if(e.stopPropagation){e.stopPropagation();}if(e.preventDefault){e.preventDefault();}return false;},false);aEv(chld,"mousemove",function(e){if(ascrl&&ascrl.ofsY){ascrl.scrollTop+=ascrl.ofsY-e.clientY;ascrl.ofsY=e.clientY;}return false;},false);aEv(chld,"DOMMouseScroll",ascrlMouse,false);aEv(chld,"mousewheel",ascrlMouse,false);}}}
function pScrlsInit(){chngScrls();chngAScrls();}