var rwmDebug = false;



// Write out a script tag to load the specified file ONLY if the provided reference is undefined after evaluation.
function rwmIncludeScript(ScriptFile, Reference) {

    if (typeof (eval(Reference)) == "undefined") {
        document.write("<script language=\"javascript\" src=\"" + ScriptFile + "\"></script>");
    }

}


// Neutralise browser event argument handling. Send this the (e) parameter from an event handler.
function rwmEvent(evt) {
    this.event = (evt) ? evt : ((window.event) ? event : null);
    if (this.event) {
        this.element = (this.event.target) ? this.event.target : this.event.srcElement;
        if (this.event.pageX || this.event.pageY) {
            this.x = this.event.pageX;
            this.y = this.event.pageY;
        }
        else if (this.event.clientX || this.event.clientY) {
            this.x = this.event.clientX + document.body.scrollLeft;
            this.y = this.event.clientY + document.body.scrollTop;
        }
    }
}


// Quick'n'dirty debugging. List an object's properties.
function rwmListProperties(obj, popup) {
    var report = "";
    for (i in obj) {
        report += i + " = " + obj[i] + "\n";
    }
    if (popup) {
        var win = window.open("", "props");
        win.document.write(report.replace(/</g, "&lt;").replace(/\n/g, "<br>"));
    }
    return report;
}


function rwmElementPosition(element) {
    /*
    * Crudely determines location of an element.
    * Needs further fudging for IE as values are not right yet!!
    */
    var el = element;
    var x = el.offsetLeft;
    var y = el.offsetTop;
    // this loop builds up a cumulative offset (which might not be bang on!)
    while (el = el.offsetParent) {
        if (rwmDebug) alert("parent element " + el.tagName + " (" + el.id + ") at " + el.offsetLeft + " , " + el.offsetTop);
        x += el.offsetLeft;
        y += el.offsetTop;
    }
    if (rwmDebug) alert("cumulative offset = " + x + " , " + y);
    return { x: x, y: y };
}