var aardvarkTools = {

createElement : function(elem,properties) {
var i, s, p, c;
if (typeof(elem)=="string")
	elem = document.createElement(elem);
if (properties) {
	s = properties.style;
	if (s)
		for (i in s)
			elem.style[i] = s[i];
	for (i in properties) {
		p = properties[i];
		if (p != s)
			elem[i] = p;
		}
	}
for (i=2; i<arguments.length; i++) {
	c = arguments[i];
	if (typeof(c) == "string")
		c = document.createTextNode(c);
	elem.appendChild(c);
	}
	

return elem;
},

//-------------------------------------------
setEventHandler : function(elem, type, func) {
if (!elem.aaEvtHandler)
	elem.aaEvtHandler = {};
var td = { func:func, args:[] };
for (var i=3; i<arguments.length; i++)
	td.args[i-3] = arguments[i];
elem.aaEvtHandler[type] = td;
if (aardvarkTools.eventHandlers[type])
	elem[type] = aardvarkTools.eventHandlers[type];
else
	elem[type] = function(evt) {
		return aardvarkTools.eventHandlers.generic(elem, type, ((evt)?evt:window.event));
		};
return elem; // for chaining calls
},

eventHandlers : {
 generic : function(elem, type, evt) {
	var o;
	if ((o=elem.aaEvtHandler) != null) {
		o.event = evt;
		if ((o=o[type]) != null)
			return o.func.apply (elem, o.args);
		}
	return false;	 
	},
 // having common ones declared here saves memory vs. using closures
 onclick : function(evt) {
	 return aardvarkTools.eventHandlers.generic(this, "onclick", ((evt)?evt:window.event));},
 onkeypress : function(evt) {
	 return aardvarkTools.eventHandlers.generic(this, "onkeypress", ((evt)?evt:window.event));},
 onmouseover : function(evt) {
	 return aardvarkTools.eventHandlers.generic(this, "onmouseover",((evt)?evt:window.event));},
 onmouseout : function(evt) {
	 return aardvarkTools.eventHandlers.generic(this, "onmouseout",((evt)?evt:window.event));}
 },

//-------------------------------------------
setTimerFunction : function(milliseconds, callback) {
var id, au = aardvarkTools;
for (id=0; id<au.timeoutData.length; id++)	{
	if (au.timeoutData[id] == null) {
		break;
		}
	}
var td = au.timeoutData[id] = {args:[]};
td.callback = callback;

for (var i=2; i<arguments.length; i++)
	td.args[i-2] = arguments[i];
td.handle = setTimeout ("aardvarkTools.callbackForSetTimeout(" + id + ")", milliseconds);
return id;
},

setTimerFunctionThisObject : function(id, thisObject) {
var td = aardvarkTools.timeoutData[id];
if (td)
	td.thisObject = thisObject;
return id;
},

cancelTimerFunction : function(id) {
var a = aardvarkTools.timeoutData, td = a[id];
if (td) {
	clearTimeout (td.handle);
	if (id == a.length-1)
		a.pop();
	else
		delete a[id];
	}
},

cancelTimerFunctionByFunction : function(func) {
var id, au = aardvarkTools;
for (id=0; id<au.timeoutData.length; id++) {
	if ((td = au.timeoutData[id]) != null && td.callback == func)
		au.cancelTimerFunction (id);
	}
},

callbackForSetTimeout : function(id) {
var	 a = aardvarkTools.timeoutData, td = a[id];
td.callback.apply (td.thisObject, td.args);
if (id == a.length-1)
	a.pop();
else
	delete a[id];
	
},

timeoutData : []
};