// standard pascal library functions

function resizeWindow(w,h,force) {
	if (window.innerWidth && window.innerHeight) {
		var wdiff = window.outerWidth - window.innerWidth;
		var hdiff = window.outerHeight - window.innerHeight;
		
		var doit = false;
		if (window.innerWidth < w || force) {
			endw = w + wdiff;
			doit = true;
		} else {
			endw = window.outerWidth;
		}
		if (window.innerHeight < h || force) {
			endh = h + hdiff;
			doit = true;
		} else {
			endh = window.outerHeight;
		}
		if (doit) self.resizeTo(endw,endh);
	}
}

function dw(msg) {
	document.write(msg + "<br />");
}

function debug(msg) {
	var that = document.getElementById('debugDiv');
	if (that) {
		if (msg == "clear") {
			that.innerHTML = "";
		} else {
			if (that.innerHTML == "") that.innerHTML = "debug area";
			if (that.innerHTML.indexOf(msg) > -1) msg += " (dupe)";
			that.innerHTML = msg + "<br />" + that.innerHTML;
		}
	}
}

function randomNum(start,end) {
	var range = end - start + 1;
	var n = Math.floor(Math.random() * (range)) + start;
	return n.toString();
}

function toggle(which) {
	(document.getElementById(which).style.visibility == "hidden")?show(which):hide(which);
}

function show(which) {
	document.getElementById(which).style.visibility = "visible";
}

function hide(which) {
	document.getElementById(which).style.visibility = "hidden";
}

function newImage(path) {
	var img = new Image();
	img.src = path;
	return img;
}

// end pascal library



// Correctly handle PNG transparency in Win IE 5.5 or higher.
// http://homepage.ntlworld.com/bobosola. Updated 02-March-2004

function correctPNG() {
	for(var i=0; i<document.images.length; i++) {
		var img = document.images[i];
		var imgName = img.src.toUpperCase();
		if (imgName.substring(imgName.length-3, imgName.length) == "PNG") {
			var imgID = (img.id) ? "id='" + img.id + "' " : ""
			var imgClass = (img.className) ? "class='" + img.className + "' " : ""
			var imgTitle = (img.title) ? "title='" + img.title + "' " : "title='" + img.alt + "' "
			var imgStyle = "display:block;" + img.style.cssText 
			if (img.align == "left") imgStyle = "float:left;" + imgStyle
			if (img.align == "right") imgStyle = "float:right;" + imgStyle
			if (img.parentElement.href) imgStyle = "cursor:pointer;" + imgStyle		
			var strNewHTML = "<span " + imgID + imgClass + imgTitle
			+ " style=\"" + "width:" + img.width + "px; height:" + img.height + "px;" + imgStyle
			+ "filter:progid:DXImageTransform.Microsoft.AlphaImageLoader"
			+ "(src=\'" + img.src + "\', sizingMethod='scale');\"></span>" 
			img.outerHTML = strNewHTML;
			i = i-1;
		}
	}
	menuReady = true;
}
var	menuReady = false;

if (document.all) {
	window.attachEvent("onload", correctPNG);
} else {
	menuReady = true;
}

var lastn;
var numMenus = 4;
var timers = new Array();
for (var i=0; i<numMenus; i++) {
	timers[i] = null;
}

function showMenu(n) { if (menuReady) {
	lastn = n;
	clearTimeout(timers[n]);
	show('header'+n);
	show('menu'+n);
	for (var i=0; i<numMenus; i++) {
		if (i != n) timedHide(i);
	}
	show('menutable');
}}

function hideMenu(n) { if (menuReady) {
	if (n == null) n = lastn;
	timers[n] = setTimeout("timedHide("+n+")",10);
}}

function timedHide(n) {
	hide('menutable');
	hide('header'+n);
	hide('menu'+n);
}