// Nicola Zordan, 10:31 3/9/2001
// JavaScript Debug
// Nicola Zordan
// 9 March 2001
// www.NicolaZordan.com
// Nicola@Zordan.net

var e0='document.URL',e;
function EvalDebugEvalField (form) {
var eTmp
//alert(form);
  eTmp=form.EvaluateJavaScriptDebugText.value;
//  eTmp=prompt('Nik Debug Evaluator'+'\n'+'Enter the JavaScript expression you want to debug',e);
//alert('Debug: '+eTmp);
  if (eTmp != null) {
   e=eTmp;
   eHAdd(e,form);
   alert('Nik JavaScriptDebug \n\n'+'Eval: '+e+'\n'+'Result: \n'+eval(e));
  };
};
function DebugEval(StringToEvaluate) {
  return (eval(StringToEvaluate));
};

function eHAdd(newE,form) {
var i,l,o;
 l=form.EvaluateJavaScriptDebugList.length;
 for (i=0;i<l;i++) {
  if (form.EvaluateJavaScriptDebugList[i].value == newE) {
   form.EvaluateJavaScriptDebugList.selectedIndex=i;
   return(null);
  };
 }; 
// o=new Option(''+(l+1)+': '+newE);
 o=new Option(newE);
 o.value=newE;
 form.EvaluateJavaScriptDebugList[l]= o;
 form.EvaluateJavaScriptDebugList.selectedIndex= l;
};

function EvalDebugEvalFieldBack (form) {
var eI;
 eI=form.EvaluateJavaScriptDebugList.selectedIndex;
 eI--;
 if (eI < 0 ) {eI=form.EvaluateJavaScriptDebugList.length-1; };
 form.EvaluateJavaScriptDebugList.selectedIndex=eI;
 EvalDebugEvalFieldSelected (form)
};
function EvalDebugEvalFieldNext (form) {
var eI;
 eI=form.EvaluateJavaScriptDebugList.selectedIndex;
 eI++;
 if (eI >= form.EvaluateJavaScriptDebugList.length ) {eI=0; };
 form.EvaluateJavaScriptDebugList.selectedIndex=eI;
 EvalDebugEvalFieldSelected (form)
};
function EvalDebugEvalFieldSelected (form) {
var eI;
 eI=form.EvaluateJavaScriptDebugList.selectedIndex;
 form.EvaluateJavaScriptDebugText.value=form.EvaluateJavaScriptDebugList[eI].value;
};

function EvalDebugEvalFieldClear (form) {
var eI,o;
 for (eI=0;eI< form.EvaluateJavaScriptDebugList.length; eI++) {
  form.EvaluateJavaScriptDebugList[eI]=null;
 };
// form.EvaluateJavaScriptDebugList.options=new Array();
 eHAdd(e0,form)
 EvalDebugEvalFieldSelected (form);
};


document.write('<form name="JavaScriptDebugForm" action="JavaScript:EvalDebugEvalField(JavaScriptDebugForm)">');
document.write('JavaScript debug:<br>');
document.write('<INPUT TYPE=BUTTON NAME=EvaluateJavaScriptClear value="c" onClick="EvalDebugEvalFieldClear(this.form)">');
document.write('<INPUT TYPE=BUTTON NAME=EvaluateJavaScriptBack value="<" onClick="EvalDebugEvalFieldBack(this.form)">');
document.write('<select name=EvaluateJavaScriptDebugList onChange="EvalDebugEvalFieldSelected(this.form)">');
//document.write('<option value="document.URL" selected>documet.URL</option>');
document.write('</select>');
document.write('<INPUT TYPE=BUTTON NAME=EvaluateJavaScriptNext value=">" onClick="EvalDebugEvalFieldNext(this.form)">');
document.write('<br>');
document.write('<INPUT TYPE=text NAME=EvaluateJavaScriptDebugText value="'+e0+'">');
document.write('<br>');
document.write('<INPUT type=submit 0TYPE=BUTTON NAME=EvaluateJavaScriptDebug value=Execute 0onClick="EvalDebugEvalField(this.form)">');
document.write('</form>');
EvalDebugEvalFieldClear(document.JavaScriptDebugForm);
//document.write('<br>');