/*
///////////////////////////////////////////////////////////////////////

		if (!e) e=window.event;

						if (window.event) {
							window.event.cancelBubble=true;
						}

						if (e.stopPropagation)
							e.stopPropagation();
							
///////////////////////////////////////////////////////////////////////
*/



	function $(id)	{ return document.getElementById(id); }


	function execRS(iScript)
		{
		$("rs_iframe").src=iScript;
		return false;
		}


	function popup (iURL,iHeight,iWidth,iFluid,iStatus)
		{
		var sFluid =(iFluid ?"yes":"no");
		var sStatus=(iStatus?"yes":"no");

		var iWin=window.open(iURL,"popup","dependent,height="+iHeight+",width="+iWidth+",left="+parseInt((screen.width -iWidth )/2)+",top="+parseInt((screen.height-iHeight)/2)+",toolbar=no,menubar=no,scrollbars="+sFluid+",resizable="+sFluid+",location=no,directories=no,status="+sStatus);
		iWin.focus();
		return false;
		}



	var iLibShield = false;
	var iIdFocus =-2;	// -1:no focus	, -2:start	
	var iIdMax   = 0;


	function setLibrary(iLibrary)
		{
		iLibShield = true;
		execRS("action.php5?_library="+iLibrary);
		}


	function insertFunction(iFunction)
		{
		var iValue=iFunction+"( )";
		var iField=$("i_"+iIdFocus);
		iField.focus();

		if (document.selection)		// IE
			{
			var iSel  = document.selection.createRange();
			iSel.text = iValue;

			iField.focus();
			return;
			}

		if (iField.selectionStart || iField.selectionStart=="0")		// MOZILLA/NETSCAPE
			{
			var iStartPos = iField.selectionStart;
			var iEndPos   = iField.selectionEnd;

			iField.value = iField.value.substring(0,iStartPos)
						 + iValue
						 + iField.value.substring(iEndPos,iField.value.length);
			iField.focus();
			iField.selectionStart = iStartPos + iValue.length-2;
			iField.selectionEnd   = iStartPos + iValue.length-1;
			return;
			}

		iField.value += iValue;
		iField.focus();
		}


	function setInfo(iObject,iLabel,iInfo)
		{
		iObject.style.border="1px solid #"+((iLabel=="")?"FFFFFF":"C0C0C0");

		iLabel=iLabel+((iLabel=="")?"":"()  ");
		$("fct_info").innerHTML="<table width='100%'><tr><td nowrap='nowrap'><b>"+iLabel+"</b></td><td>"+iInfo+"</td></tr></table>";
		}


	function setLibInfo(iInfo)
		{
		if ((iInfo=='')
		  && iLibShield)
			return;

		iLibShield = false;
		$("lib_info").innerHTML=iInfo;
		}


	function onInsertClick()
		{
		$("_selected").value=iIdFocus;
		}


	function fold(iDiv,e)
		{
		iDiv_ = 'folder'+(iDiv==1?2:1);
		iDiv  = 'folder'+ iDiv;

		var o=$(iDiv);	iDisplay = o.style.display;

					o.style.display=(iDisplay!="block")?"block":"none";
		o=$(iDiv_);	o.style.display="none";

		execRS("cookie.php?"+iDiv+"="+o.style.display+"&"+iDiv_+"=none");
		restoreFocus(e);
		}


	function DKDown(e)
		{
		var evt  = window.event?event:e;
		var iKey = evt.keyCode?evt.keyCode:evt.charCode;

		if (iKey==38)  {if (iIdFocus==1) {return;}  iId=((iIdFocus==0)?iIdMax:iIdFocus-1);  $("i_"+iId).focus();}
		if (iKey==40)  {if (iIdFocus==0) {return;}  iId=((iIdFocus==iIdMax)?0:iIdFocus+1);  $("i_"+iId).focus();}
		}


	function DKey(e)
		{
		var evt  = window.event?event:e;
		var iKey = evt.keyCode?evt.keyCode:evt.charCode;

		if (evt.keyCode)
			{
			try
				{if (iKey==13)	evt.keyCode=0;}
			catch(ex) {}
			}

		if (iKey==13)  {document.f.submit();}
		}


	function updateResults(iHTML,iId,iResults)
		{
		var o=$("results");
		o.innerHTML = "<table cellpadding='0' cellspacing='0'>"+iHTML+"<tr class='R' id='r_0' onmouseover='DOver(0)' onmouseout='DOut(0)' onclick='DClick(0); event.cancelBubble=true;'><td><table cellpadding='0' cellspacing='0'><tr><td><textarea class='E' name='i_0' id='i_0' onfocus='DFocus(0)' onkeydown='DKDown(event)' onkeypress='DKey(event)' wrap='off'></textarea></td></tr><tr><td><div class='note'>Enter an instruction</div></td></tr></table></td></tr></table>";
		o.scrollTop = o.scrollHeight;

		iIdFocus = -2;
		iIdMax   = iResults;
		doFocus(iId);
		}


	function updateLibrary(iHTML)
		{
		$("library" ).innerHTML=iHTML;
		$("lib_info").innerHTML='';

		if (iIdFocus!=-1)
			doFocus((iIdFocus==-2)?0:iIdFocus);
		}


	function doFocus(iId) {			setTimeout('$("i_"+'+iId	+' ).focus()',250);	}
	function DClick (iId) {						$("i_"  +iId	   ).focus();		}
	function DOver  (iId) { if (iIdFocus==-1 )	$("r_"  +iId).className="ROver";	}
	function DOut   (iId) { if (iIdFocus!=iId)
								{
								o=$("r_"+iId);
								if (o.className!="R")
									o.className ="R";
								}
						  }


	function DFocus(iId)
		{
		if (iIdFocus>=0)	$("r_"+iIdFocus).className="R";
							$("r_"+iId	 ).className="ROver";
		iIdFocus = iId;
		}


	function unfocus()
		{
		if (iIdMax==0)
			{
			$("i_0").focus();
			return;
			}

		if (iIdFocus>=0)
			{
			$("r_"+iIdFocus).className="R";
			$("i_"+iIdFocus).blur();
			}

		iIdFocus=-1;
		}


	function restoreFocus(e)
		{
		e.cancelBubble=true;
		if (iIdFocus>=0)
			$("i_"+iIdFocus).focus();
		}