/* -------------------------------------------------------------------------- */
/** 
 *    @fileoverview
 *       Common Script Libraries.
 *
 *    @version rev012.2007-09-26
 */
/* -------------------------------------------------------------------------- */


window.undefined = window.undefined;

var BA;
var BA_STATUSMSG;



/* ============================== Common preparations ============================== */

/* --------------- Constructor : BAEnvironment --------------- */

function BAEnvironment() {
	this.debugMode     = false;

	this.rdmAtOnce     = false;

	this.exceptMacIE   = true;

	this.exceptWinIE50 = true;

	var d  = document;
	var di = d.implementation;
	var de = d.documentElement;
	var ua = navigator.userAgent;
	var lp = location.protocol;
	var lh = location.hostname;

	this.url = {};
	this.url.commonDir = BAGetCommonDir('common') || BAGetCommonDir('shared');
	this.url.cssDir    = this.url.commonDir + 'css/';
	this.url.jsDir     = this.url.commonDir + 'js/';

	this.ns = {};
	this.ns.defaultNS  = (de && de.namespaceURI) ? de.namespaceURI : (de && de.tagUrn) ? de.tagUrn : '';
	this.ns.xhtml1     = 'http://www.w3.org/1999/xhtml';
	this.ns.xhtml2     = 'http://www.w3.org/2002/06/xhtml2';
	this.ns.bA         = 'urn:bA';

	this.ua = {};
	this.ua.isGecko    = /Gecko\//    .test(ua);
	this.ua.isSafari   = /AppleWebKit/.test(ua);
	this.ua.isOpera    = Boolean(window.opera);
	this.ua.isIE       = (d.all && !this.ua.isGecko && !this.ua.isSafari && !this.ua.isOpera);
	this.ua.isIE40     = (this.ua.isIE && /MSIE 4\.0/.test(ua));     // IE 4.0x
	this.ua.isIE45     = (this.ua.isIE && /MSIE 4\.5/.test(ua));     // IE 4.5x
	this.ua.isIE50     = (this.ua.isIE && /MSIE 5\.0/.test(ua));     // IE 5.0x
	this.ua.isIE55     = (this.ua.isIE && /MSIE 5\.5/.test(ua));     // IE 5.5x
	this.ua.isIE60     = (this.ua.isIE && /MSIE 6\.0/.test(ua));     // IE 6.0x
	this.ua.isIE70     = (this.ua.isIE && /MSIE 7\.0/.test(ua));     // IE 7.0x
	this.ua.isNN4      = Boolean(d.layers);                          // NN 4.x
	this.ua.isMac      = /Mac/.test(ua);
	this.ua.isWin      = /Win/.test(ua);
	this.ua.isWinIE    = (this.ua.isWin && this.ua.isIE);
	this.ua.isMacIE    = (this.ua.isMac && this.ua.isIE);
	this.ua.isWinIEQM  = this.ua.isWinIE && (!document.compatMode || document.compatMode == 'BackCompat');
	this.ua.isDOMReady = (this.exceptMacIE   && this.ua.isMacIE                  ) ? false                        :
	                     (this.exceptWinIE50 && this.ua.isWinIE && this.ua.isIE50) ? false                        :
	                     (di                                                     ) ? di.hasFeature('HTML', '1.0') :
	                                                                                 (this.ua.isIE && de)         ;
	this.ua.revision   = (this.ua.isIE    ) ? parseFloat(ua.match(/MSIE ([\d\.]+)/)[1])         :
	                     (this.ua.isGecko ) ? parseFloat(ua.match(/; rv:([\d\.]+)/)[1])         :
	                     (this.ua.isSafari) ? parseFloat(ua.match(/AppleWebKit\/([\d\.]+)/)[1]) :
	                     (this.ua.isOpera ) ? parseFloat(ua.match(/Opera.([\d\.]+)/)[1])        :
	                                          0                                                 ;

	this.env = {};
	this.env.isOnline   = (lp == 'http:' || lp == 'https:');
	this.env.referer    = (typeof document.referrer == 'string') ? document.referrer : '';
	this.env.isDOMReady = false;

	this.css = {};
	this.css.revise    = {
//		'Safari'   : this.url.cssDir + 'revise_safari.css',
//		'IE50.Win' : this.url.cssDir + 'revise_ie50_win.css'
	};
}



/* --------------- EventHandler : window.onerror --------------- */

window.onerror = function(message, fileName, lineNumber) {
	if (typeof BA == 'object') {
		if (BA.debugMode) {
			var msg = 'Error: ' + message  + '\n' +
			          'File: '  + fileName + '\n' + 
			          'Line: '  + lineNumber;
			alert(msg);
		}
		return true;
	}
}




/* ==================== Custom methods / Shortage methods of built-in objects ==================== */

/* ----- Function.apply() ----- */

if (!window.encodeURIComponent) {
	window.encodeURIComponent = function(str) {
		return escape(str);
	}
}

/* ----- Function.apply() ----- */

if (!Function.prototype.apply) {
	Function.prototype.apply = function(aThisObject, anArray) {
		if (typeof anArray != 'null' && typeof anArray != 'undefined' && typeof anArray != 'object') {
			throw 'Function.apply: second argument must be an array.';
		} else {
			if (typeof aThisObject != 'object' || !aThisObject) {
				aThisObject = window;
			}
			if (!anArray) {
				anArray = [];
			}
			var prop = '__Function_Apply_stored__';
			var args = [];
			for (var i = 0, n = anArray.length; i < n; i++) {
				args.push('anArray[' + i + ']');
			}

			aThisObject[prop] = this;
			var ret = eval('aThisObject.' + prop + '(' + args.join(',') + ')');
			try {
				delete aThisObject[prop];
			} catch(err) {
				aThisObject[prop] = null;
			}
			return ret;
		}
	}
}

/* ----- Function.call() ----- */

if (!Function.prototype.call) {
	Function.prototype.call = function(aThisObject /* , arg1, arg2 ... */) {
		var args = [];
		for (var i = 1, n = arguments.length; i < n; i++) {
			args.push(arguments[i]);
		}
		return this.apply(aThisObject, args);
	}
}

/* ----- Array.pop() ----- */

if (!Array.prototype.pop) {
	Array.prototype.pop = function() {
		if (!this.length) {
			return null;
		} else {
			var last = this[this.length - 1];
			--this.length;
			return last;
		}
	}
}

/* ----- Array.push() ----- */

if (!Array.prototype.push) {
	Array.prototype.push = function(args) {
		for (var i = 0, n = arguments.length; i < n; i++) {
			this[this.length] = arguments[i];
		}
		return this.length;
	}
}

/* ----- Array.shift() ----- */

if (!Array.prototype.shift) {
	Array.prototype.shift = function() {
		if (!this.length) {
			return null;
		} else {
			this.reverse();
			var ret = this.pop();
			this.reverse();
			return ret;
		}
	}
}

/* ----- Array.unshift() ----- */

if (!Array.prototype.unshift) {
	Array.prototype.unshift = function(args) {
		this.reverse();
		for (var i = arguments.length - 1; i >= 0; i--) {
			this.push(arguments[i]);
		}
		this.reverse();
		return this.length;
	}
}

/* ----- Array.splice() ----- */

if (!Array.prototype.splice) {
	Array.prototype.splice = function(index, howMany /* , element1, element2 ... */) {
		index     = (index < 0) ? Math.max(index + this.length, 0) : Math.min(index, this.length);
		howMany   = Math.min(Math.max(howMany || this.length, 0), this.length - index);
		var left  = this.slice(0, index);
		var right = this.slice(index + howMany);
		var ret   = this.slice(index, index + howMany);
		Array.prototype.slice.call(arguments, 2).forEach(function(item) { left.push(item) });
		this.length = 0;
		this.push.apply(this, left );
		this.push.apply(this, right);
		return ret;
	}
}

/* ----- Array.indexOf() ----- */

if (!Array.prototype.indexOf) {
	Array.prototype.indexOf = function(aSearchElement, aFromIndex) {
		if (typeof aFromIndex != 'number') {
			aFromIndex = 0;
		} else if (aFromIndex < 0) {
			aFromIndex = this.length + aFromIndex;
		}
		for (var i = aFromIndex, n = this.length; i < n; i++) {
			if (this[i] === aSearchElement) {
				return i;
			}
		}
		return -1;
	}
}

/* ----- Array.lastIndexOf() ----- */

if (!Array.prototype.lastIndexOf) {
	Array.prototype.lastIndexOf = function(aSearchElement, aFromIndex) {
		if (typeof aFromIndex != 'number') {
			aFromIndex = this.length - 1;
		} else if (aFromIndex < 0) {
			aFromIndex = this.length + aFromIndex;
		}
		for (var i = aFromIndex; i >= 0; i--) {
			if (this[i] === aSearchElement) {
				return i;
			}
		}
		return -1;
	}
}

/* ----- Array.forEach() ----- */

if (!Array.prototype.forEach) {
	Array.prototype.forEach = function(aCallBack, aThisObject) {
		for (var i = 0, n = this.length; i < n; i++) {
			aCallBack.call(aThisObject, this[i], i, this);
		}
	}
}

/* ----- Array.map() ----- */

if (!Array.prototype.map) {
	Array.prototype.map = function(aCallBack, aThisObject) {
		var ret = [];
		for (var i = 0, n = this.length; i < n; i++) {
			ret.push(aCallBack.call(aThisObject, this[i], i, this));
		}
		return ret;
	}
}

/* ----- Array.filter() ----- */

if (!Array.prototype.filter) {
	Array.prototype.filter = function(aCallBack, aThisObject) {
		var ret = [];
		for (var i = 0, n = this.length; i < n; i++) {
			if (aCallBack.call(aThisObject, this[i], i, this)) {
				ret.push(this[i]);
			}
		}
		return ret;
	}
}

/* ----- Array.some() ----- */

if (!Array.prototype.some) {
	Array.prototype.some = function(aCallBack, aThisObject){
		for (var i = 0, n = this.length; i < n; i++) {
			if (aCallBack.call(aThisObject, this[i], i, this)) return true;
		}
		return false;
	}
}

/* ----- Array.every() ----- */

if (!Array.prototype.every) {
	Array.prototype.every = function(aCallBack, aThisObject){
		for (var i = 0, n = this.length; i < n; i++) {
			if(!aCallBack.call(aThisObject, this[i], i, this)) return false;
		}
		return true;
	}
}

/* ----- Array.equal() ----- */

if (!Array.prototype.equal) {
	Array.prototype.equal = function(anArray) {
		if (!anArray || this.length != anArray.length) {
			return false;
		} else {
			return this.every(function(value, i) {
				return (value === anArray[i]);
			});
		}
	}
}

/* ----- Number.formatNumberBA() ----- */

Number.prototype.formatNumberBA = function(format) {
	if (!format || typeof format != 'string') {
		throw 'Number.formatNumberBA: first argument must be a formatting string.';
	} else {
		var ret       = [];
		var intFormat = format.split('.')[0].split('');
		var decFormat = format.split('.')[1] || '';
		var value     = (decFormat) ? Math.abs(this) : Math.round(Math.abs(this));
		var sign      = (this < 0) ? '-' : '';
		var intValue  = value.toString().split('.')[0].split('');
		do {
			var _value  = intValue .pop() || '';
			var _format = intFormat.pop() || '';
			switch (_format) {
				case '0' : ret.push(_value  ? _value : '0');                        break;
				case '#' : ret.push(_value  ? _value : '' );                        break;
				case ''  : /* exit do-while loop */          intValue = [];         break;
				default  : ret.push(_format               ); intValue.push(_value); break;
			}
		} while (intValue.length > 0 || intFormat.length > 0);
		ret = ret.reverse().join('').replace(/^\D+/, '');
		if (decFormat) {
			var scale     = Math.pow(10, decFormat.length);
			var rounded   = Math.round(value * scale) / scale;
			if (rounded - ret == 1) {
				ret++;
			}
			var decValue  = rounded.toString().split('.')[1] || '0';
			    decValue  = decValue .split('').reverse().join('');
			    decFormat = decFormat.split('').reverse().join('');
			    ret       = ret + '.' + decValue.formatNumberBA(decFormat).split('').reverse().join('');
		}
		if (decFormat.startsWithBA('#') && ret.endsWithBA('.0')) {
			ret = ret.getBeforeBA('.0');
		}
		return sign + ret;
	}
}

/* ----- String.formatNumberBA() ----- */

String.prototype.formatNumberBA = function(format) {
	var num = parseFloat(this, 10);
	if (isNaN(num)) {
		throw 'String.formatNumberBA: this string is not a number string.';
	} else {
		return num.formatNumberBA(format);
	}
}

/* ----- String.formatTextBA() ----- */

String.prototype.formatTextBA = function(strArray) {
	var str = this;
	if (strArray && strArray.constructor == Array) {
		for (var i = 0, n = strArray.length; i < n; i++) {
			str = str.replace(new RegExp('\\$\\{' + i + '\\}', 'g'), strArray[i]);
		}
	}
	return str;
}

/* ----- String.getBeforeBA() ----- */

String.prototype.getBeforeBA = function(str, include) {
	var idx = this.indexOf(str);
	return (idx == -1) ? '' : this.substring(0, idx) + (include ? str : '');
}

/* ----- String.getAfterBA() ----- */

String.prototype.getAfterBA = function(str, include) {
	var idx = this.indexOf(str);
	return (idx == -1) ? '' : (include ? str : '') + this.substring(idx + str.length, this.length);
}

/* ----- String.startsWithBA() ----- */

String.prototype.startsWithBA = function(str) {
	return (this.indexOf(str) == 0);
}

/* ----- String.endsWithBA() ----- */

String.prototype.endsWithBA = function(str) {
	var idx = this.lastIndexOf(str);
	return (idx > -1 && idx + str.length == this.length);
}

/* ----- String.relToAbsBA() ----- */

String.prototype.relToAbsBA = function(base) {
	var b   = base.split('/');
	var t   = this.split('/');
	var ptn = /^(\/|\w+:)/;
	if (!base.match(ptn)) {
		throw 'String.relToAbsBA: first argument must be an absolute path/URL.';
	} else if (this.match(ptn)) {
		return this;
	} else if (this.charAt(0) == '#' || this.charAt(0) == '?') {
		return base + this;
	} else if (t[0] == '.' || t[0] == '..') {
		return t.slice(1, t.length).join('/').relToAbsBA(b.slice(0, b.length - t[0].length).join('/') + '/');
	} else {
		return b.slice(0, b.length - 1).join('/') + '/' + this;
	}
}

/* ----- String.absToRelBA() ----- */

String.prototype.absToRelBA = function(base) {
	var ptn = /^(\/|\w+:)/;
	if (!base.match(ptn)) {
		throw 'String.absToRelBA: first argument must be an absolute path/URL.';
	} else if (!this.match(ptn)) {
		throw 'String.absToRelBA: String must be an absolute path/URL.';
	} else {
		return _compare(base, this) || base;
	}

	function _compare(base, trgt) {
		var b = base.split('/');
		var t = trgt.split('/');
		if (!base) {
			return trgt;
		} else if (!trgt) {
			return _goup(base);
		} else if (b[0] != t[0]) {
			return _goup(base) + trgt;
		} else {
			return arguments.callee(b.slice(1, b.length).join('/'), t.slice(1, t.length).join('/'));
		}
	}
	
	function _goup(path) {
		path = path.split('/');
		path.shift();
		path.forEach(function(elem, idx) { path[idx] = '..' });
		return path.join('/') + '/';
	}
}

/* ----- String.getSanitizedStringBA() ----- */

String.prototype.getSanitizedStringBA = function() {
	var pairs = {
		"&"      : "&amp;",
		"<"      : "&lt;",
		">"      : "&gt;",
		"\u0022" : "&quot;",
		"\u0027" : "&apos;"
	};
	var ret = this;
	for (var key in pairs) {
		ret = ret.replace(new RegExp(key, "g"), pairs[key]);
	}
	return ret;
}






/* ==================== Custom DOM methods for built-in DOM objects ==================== */

/* ---------- Constructor : BADOM (Abstract Class) ---------- */

function BADOM() {
	this.instanceOf = 'BAElement';
}

/* ----- BADOM.addEventListenerBA() ----- */

BADOM.prototype.addEventListenerBA = function(type, listener, aThisObject) {
	// preparations.
	if (!type || typeof type != 'string') {
		throw 'BADOM.addEventListenerBA: first argument must be a string (event type).';
	} else if (!listener || typeof listener != 'function') {
		throw 'BADOM.addEventListenerBA: second argument must be a function (event listener).';
	} else if (BA.ua.isOpera && BA.ua.revision < 9.02 && type == 'mousewheel') {
		return;  // Opera before 9.02 has a bug on 'mousewheel' event (user cannot scroll-up by mousewheel).
	} else if (BA.ua.isGecko && type == 'mousewheel') {
		type = 'DOMMouseScroll';
	}

	// create event caller.
	if (!this._callListeners) {
		this._callListeners = function(e) {
			var _this = arguments.callee;
			if (BA.ua.isIE) {
				_e = (e) ? e : window.event;
				e = {};
				var de = document.documentElement;
				var db = document.body;
				e.currentTarget = _this.node;
				if (_e) {
					e.type            = _e.type;
					e.target          = _e.srcElement;
					e.relatedTarget   = (_e.srcElement == e.toElement) ? e.fromElement : e.toElement;
					e.clientX         = _e.clientX;
					e.clientY         = _e.clientY;
					e.pageX           = (de.scrollLeft ? de.scrollLeft : (db ? db.scrollLeft : 0)) + _e.clientX;
					e.pageY           = (de.scrollTop  ? de.scrollTop  : (db ? db.scrollTop  : 0)) + _e.clientY;
					e.charCode        = /* (this.type == 'keypress') ? */ _e.keyCode /* : 0 */;
					e.keyCode         = /* (this.type != 'keypress') ? */ _e.keyCode /* : 0 */;
					e.ctrlKey         = _e.ctrlKey;
					e.shiftKey        = _e.shiftKey;
					e.altKey          = _e.altKey;
					e.metaKey         = _e.metaKey;
					e.detail          = _e.detail;
					e.wheelDelta      = _e.wheelDelta;
					e.stopPropagation = function() { _e.cancelBubble = true  };
					e.preventDefault  = function() { _e.returnValue  = false };
				}
			}

			if (e.target && e.target.nodeType == 3 && BA.ua.isSafari) {
				// in earlier Safari (before 2.0?), a text node is treated as 'event target'...
				e.target.parentNode.dispatchEvent(e);
			} else {

				if (typeof BA == 'object' && typeof BARegisterDOMMethodsTo == 'function') {
					BARegisterDOMMethodsTo(e.target);
					BARegisterDOMMethodsTo(e.currentTarget);
					BARegisterDOMMethodsTo(e.relatedTarget);
				}

				if (BA.ua.isGecko && (e.type == "DOMMouseScroll" || e.type == "mousewheel")) {
					e.wheelDelta = e.detail * -40;
				} else if (BA.ua.isSafari && BA.ua.revision < 412) {
					// preventDefault() doesn't work on Safari before 2.0.4...
					e.preventDefault = function() { this.currentTarget["on" + this.type] = function() { return false } };
				}

				var listeners = _this.listeners[e.type];
				for (var i = 0, n = listeners.length; i < n; i++) {
					listeners[i].func.call(listeners[i].aThisObject, e);
				}
			}
		}
		this._callListeners.node = this;
		this._callListeners.listeners = {};
	}

	if (!this._callListeners.listeners[type]) {
		this._callListeners.listeners[type] = [];
		if (this.addEventListener) {
			if (this == window && type == "load" && BA.ua.isSafari && BA.ua.revision >= 412) {
				// Safari2.0 or greater
				var timer = new BASetInterval(function() {
					if (document.readyState == "loaded" || document.readyState == "complete") {
						timer.clearTimer();
						window._callListeners({ type: "load", target: window, currentTarget: window });
					}
				}, 100);
			} else {
				this.addEventListener(type, this._callListeners, false);
			}
		} else if (this.attachEvent) {
			if (type == "load" && this.window == window) {
				var tag = new BATag("script");
				tag.setAttributeBA("type" , "text/javascript");
				tag.setAttributeBA("src"  , "//:"  );
				tag.setAttributeBA("defer", "defer");
				tag.setAttributeBA("id"   , "__addEventListenerBA_readyDetector__");
				tag.appendChildBA("");
				document.write(tag);
				document.getElementByIdBA("__addEventListenerBA_readyDetector__").addEventListenerBA("readystatechange", function() {
					if (this.readyState == "complete") {
						window._callListeners({ type: "load", target: window, currentTarget: window });
						this.parentNode.removeChild(this);
					}
				});
			} else {
				this.attachEvent("on" + type, this._callListeners);
			}
		} else {
			var exist = this["on" + type];
			if (exist) {
				this._callListeners.listeners[type].push({
					func        : exist,
					aThisObject : this
				});
			}
			this["on" + type] = this._callListeners;
		}
	}

	// register event listener.
	if (!aThisObject) {
		aThisObject = this;
	}

	this._callListeners.listeners[type].push({
		func        : listener,
		aThisObject : aThisObject
	});

	// preparations for BACleanUpEventListeners()
	var nodes = window.BA_EVENTLISTENER_STORED_NODES;
	if (!nodes) {
		nodes = window.BA_EVENTLISTENER_STORED_NODES = [];
	}
	if (nodes.indexOf(this) == -1) {
		nodes.push(this);
	}

}

/* ----- BADOM.removeEventListenerBA() ----- */

BADOM.prototype.removeEventListenerBA = function(type, listener) {
	// preparations.
	if (!type || typeof type != 'string') {
		throw 'BADOM.removeEventListenerBA: first argument must be a string (event type).';
	} else if (!listener || typeof listener != 'function') {
		throw 'BADOM.removeEventListenerBA: second argument must be a function (event listener).';
	} else if (BA.ua.isGecko && type == 'mousewheel') {
		type = 'DOMMouseScroll';
	}

	// remove event listener.
	if (this._callListeners && this._callListeners.listeners[type]) {
		var listeners = this._callListeners.listeners[type];
		if (funcs.indexOf(listener) > -1) {
			funcs.splice(index, 1);
		}
	}
}

/* ----- BADOM.dispatchEventBA() ----- */

BADOM.prototype.dispatchEventBA = function(e) {
	if (!e || typeof e != 'object') {
		throw 'BADOM.dispatchEventBA: first argument must be an Event object.';
	} else if (this.dispatchEvent) {
		this.dispatchEvent(e);
	} else if (this.fireEvent) {
		this.fireEvent('on' + e.type);
	} else if (this['on' + e.type]) {
		this['on' + e.type]();
	}
}



/* ---------- Constructor : BAWindow (Abstract Class) inherits BADOM ---------- */

function BAWindow() { }

BAWindow.prototype = new BADOM;



/* ---------- Constructor : BADocument (Abstract Class) inherits BADOM ---------- */

function BADocument() { }

BADocument.prototype = new BADOM;

/* ----- BADocument.getElementsByTagNameBA() ----- */

BADocument.prototype.getElementsByTagNameBA = function(tagName) {
	var ret = [];
	if (!tagName || typeof tagName != 'string') {
		throw 'BADocument.getElementsByTagNameBA: first argument must be a string (tagName).';
	} else if (tagName == '*') {
		ret = this.getElementsByTagName(tagName);
		if (BA.ua.isIE || ret.length == 0) {
			ret = (document.all && this === document) ?
                  	document.all :
                  	(function(_node) {
                  		var _nodes = _node.childNodes;
                  		var _ret   = [];
                  		for (var i = 0, n = _nodes.length; i < n; i++) {
                  			var __node = _nodes[i];
                  			if (__node.nodeType == 1 && __node.nodeName != '!') {
                  				_ret.push(__node);
                  			}
                  			_ret = _ret.concat(arguments.callee(__node));
                  		}
                  		return _ret;
                  	})(this);
		}
	} else if (tagName.indexOf(':') > -1) {
		var prfx = tagName.split(':')[0];
		var name = tagName.split(':')[1];
		     ret = (BA.ns.defaultNS && this.getElementsByTagNameNS) ?
		           	this.getElementsByTagNameNS(BA.ns[prfx], name) :
		           	this.getElementsByTagName(tagName) ;
		if (ret.length == 0) {
			       ret = (name == '*') ? this.getElementsByTagNameBA(name) : this.getElementsByTagName(name);
			var _nodes = [];
			for (var i = 0, n = ret.length; i < n; i++){
				var _node = ret[i];
				if (BA.ns.defaultNS && _node.namespaceURI == BA.ns[prfx] || _node.tagUrn == BA.ns[prfx]) {
					_nodes.push(_node);
				}
			}
			if (_nodes.length == 0) {
				       ret = (name == '*') ? ret : this.getElementsByTagNameBA('*');
				var _nodes = [];
				for (var i = 0, n = ret.length; i < n; i++) {
					var _node = ret[i];
					var _prfx = _node.nodeName.split(':')[0];
					var _name = _node.nodeName.split(':')[1];
					if (_name && _prfx == prfx && (name == '*' || _name.toLowerCase() == name.toLowerCase())) {
						_nodes.push(_node);
					}
				}
			}
			ret = _nodes;
		}
	} else {
		ret = (BA.ns.defaultNS && this.getElementsByTagNameNS) ?
		      	this.getElementsByTagNameNS(BA.ns.defaultNS, tagName) :
		      	(tagName.match(/^body$/i) && document.body) ?
		      		/* workaround for Netscape7.1 */ [document.body] :
		      		this.getElementsByTagName(tagName) ;
		if (typeof document.documentElement.tagUrn == 'string') {
			var _nodes = [];
			for (var i = 0, n = ret.length; i < n; i++){
				var _node = ret[i];
				if (!_node.tagUrn || _node.tagUrn == BA.ns.defaultNS) {
					_nodes.push(_node);
				}
			}
			ret = _nodes;
		}
	}

	if (ret.constructor != Array) {
		ret = BAConcatNodeList(ret);
	}
	ret.forEach(BARegisterDOMMethodsTo);
	return ret;
}

/* ----- BADocument.getElementsByClassNameBA() ----- */

BADocument.prototype.getElementsByClassNameBA = function(className, tagName) {
	if (!className || typeof className != 'string') {
		throw 'BADocument.getElementsByClassNameBA: first argument must be a string (className).';
	} else {
		return this.getElementsByTagNameBA(tagName || '*').filter(function(node) {
			return node.hasClassNameBA(className);
		});
	}
}

/* ----- BADocument.getElementsByNameBA() ----- */

BADocument.prototype.getElementsByNameBA = function(name) {
	if (!name || typeof name != 'string') {
		throw 'BADocument.getElementsByNameBA: first argument must be a string (name attribute).';
	} else {
		var ret = document.getElementsByName(name);
		if (ret.constructor != Array) {
			ret = BAConcatNodeList(ret);
			if (BA.ua.isWinIE) {
				var _nodes = ret;
				ret = [];
				for (var i = 0, n = _nodes.length; i < n; i++) {
					if (_nodes[i].getAttributeBA("name") == name) {
						ret.push(_nodes[i]);
					}
				}
			}
		}
		ret.forEach(BARegisterDOMMethodsTo);
		return ret;
	}
}

/* ----- BADocument.getElementByIdBA() ----- */

BADocument.prototype.getElementByIdBA = function(id) {
	if (!id || typeof id != 'string') {
		throw 'BADocument.getElementByIdBA: first argument must be a string (fragment id).';
	} else {
		return BARegisterDOMMethodsTo(document.getElementById(id));
	}
}

/* ----- BADocument.createElementBA() ----- */

BADocument.prototype.createElementBA = function(tagName) {
	if (!tagName || typeof tagName != 'string') {
		throw 'BADocument.createElementBA: first argument must be a string (tagName).';
	} else {
		var node = (BA.ns.defaultNS && document.createElementNS && tagName.match(/:/)) ?
		           	document.createElementNS(BA.ns[tagName.split(':')[0]], tagName.split(':')[1]) :
		           	(BA.ns.defaultNS && document.createElementNS) ?
		           		document.createElementNS(BA.ns.defaultNS, tagName) : 
		           		document.createElement(tagName) ;
		return BARegisterDOMMethodsTo(node);
	}
}

/* ----- BADocument.createDocumentFragmentBA() ----- */

BADocument.prototype.createDocumentFragmentBA = function() {
	if (!document.createDocumentFragment || !BA.ua.isMacIE) {
		return BARegisterDOMMethodsTo(document.createDocumentFragment());
	} else {
		var node = document.createElementBA('ins');
		node.__DOCUMENT_FRAGMENT_BA_NODE__ = true;
		return node;
	}
}

/* ----- BADocument.getStyleSheetsBA() ----- */

BADocument.prototype.getStyleSheetsBA = function() {
	return BAGetStyleSheets();
}



/* ---------- Constructor : BAElement (Abstract Class) inherits BADocument ---------- */

function BAElement() { }

BAElement.prototype = new BADocument;

BAElement.prototype.createElementBA = function() { }

BAElement.prototype.createDocumentFragmentBA = function() { };

BAElement.prototype.getStyleSheetsBA = function() { };

/* ----- BAElement.getAncestorsByTagNameBA() ----- */

BAElement.prototype.getAncestorsByTagNameBA = function(tagName) {
	if (!tagName || typeof tagName != 'string') {
		throw 'BAElement.getAncestorsByTagNameBA: first argument must be a string (tagName).';
	} else if (tagName.indexOf(':') > -1) {
		throw 'BAElement.getAncestorsByTagNameBA: namespace handling is not implemented yet.';
	} else {
		var ret  = [];
		var node = this.parentNode;
		while (node && node != document) {
			ret.push(node);
			node = node.parentNode;
		}
		if (tagName != '*') {
			tagName = tagName.toLowerCase();
			ret     = ret.filter(function(node) { return (tagName == node.nodeName.toLowerCase()) });
		}
		ret.forEach(BARegisterDOMMethodsTo);
		return ret;
	}
}

/* ----- BAElement.getAncestorsByClassNameBA() ----- */

BAElement.prototype.getAncestorsByClassNameBA = function(className, tagName) {
	if (!className || typeof className != 'string') {
		throw 'BAElement.getAncestorsByClassNameBA: first argument must be a string (className).';
	} else {
		return this.getAncestorsByTagNameBA(tagName || '*').filter(function(node) { 
			return node.hasClassNameBA(className);
		});
	}
}

/* ----- BAElement.getParentNodeBA() ----- */

BAElement.prototype.getParentNodeBA = function() {
	return BARegisterDOMMethodsTo(this.parentNode);
}

/* ----- BAElement.getChildNodesBA() ----- */

BAElement.prototype.getChildNodesBA = function() {
	var ret   = [];
	var nodes = this.childNodes;
	for (var i = 0, n = nodes.length; i < n; i++) {
		ret.push(BARegisterDOMMethodsTo(nodes[i]));
	}
	return ret;
}

/* ----- BAElement.appendChildBA() ----- */

BAElement.prototype.appendChildBA = function(content, forceAsHTML) {
	if (typeof content == 'undefined' || typeof content == 'object' && !content) {
		throw 'BAElement.appendChildBA: first argument must be a node or a string or a BATag instance.';
	} else if (content.nodeType == 1 || content.nodeType == 3 || content.nodeType == 11) {
		if (content.__DOCUMENT_FRAGMENT_BA_NODE__) {
			while (content.hasChildNodes()) {
				this.appendChild(content.firstChild);
			}
			return content;
		} else {
			return this.appendChild(content);
		}
	} else if (content.instanceOf == 'BATag' || forceAsHTML) {
		content = content.toString();
		if (document.createRange) {            // Gecko/Safari
			var range = document.createRange();
			range.selectNode(this);
			content = range.createContextualFragment(content); // createContextualFragment() is not standard-DOM?
			this.appendChild(content);
		} else if (this.insertAdjacentHTML) {  // WinIE/MacIE
			this.insertAdjacentHTML('beforeEnd', content);
		} else {                               // Others
			this.innerHTML += content;
		}
		BARegisterDOMMethodsTo(this, true);
		return content;
	} else if (content.toString) {
		content  = content.toString();
		var node = document.createTextNode(content);
		if (this.insertAdjacentText) {         // WinIE/MacIE
			this.insertAdjacentText('beforeEnd', content);
			return node;
		} else {                               // Others
			return this.appendChild(node);
		}
	}
}

/* ----- BAElement.removeChildBA() ----- */

BAElement.prototype.removeChildBA = function(node) {
	if (!node || typeof node.nodeType != 'number') {
		throw 'BAElement.removeChildBA: first argument must be a DOM node.';
	} else {
		return BARegisterDOMMethodsTo(this.removeChild(node));
	}
}

/* ----- BAElement.removeAllChildrenBA() ----- */

BAElement.prototype.removeAllChildrenBA = function() {
	var ret = [];
	while (this.hasChildNodes()) {
		ret.push(this.removeChildBA(this.firstChild));
	}
	return ret;
}

/* ----- BAElement.getInnerTextBA() ----- */

BAElement.prototype.getInnerTextBA = function(includeAlt) {
	var flag = (typeof includeAlt == 'boolean' && includeAlt);
	var txt  = (flag) ? '' : this.innerText || this.textContent || '';
	if (!txt) {
		var ret = [];
		this.getChildNodesBA().forEach(function(node) {
			if (node.hasChildNodes()) {
				ret.push(node.getInnerTextBA());
			} else if (node.nodeType == 3) {
				ret.push(node.nodeValue);
			} else if (flag && node.alt) {
				ret.push(node.alt);
			}
		});
		txt = ret.join('');
	}
	return txt.replace(/\s+/g, ' ');
}

/* ----- BAElement.getAttributeBA() ----- */

BAElement.prototype.getAttributeBA = function(attr) {
	if (!attr || typeof attr != 'string') {
		throw 'BAElement.getAttributeBA: first argument must be a string (atribute name).';
	} else {
		if (BA.ua.isIE && attr == 'class') {
			attr += 'Name';
		}
		var ret = this.getAttribute(attr);
		if (!ret && this.getAttributeNS && attr.match(/:/)) {
			var prfx = attr.split(':')[0];
			var attr = attr.split(':')[1];
			return this.getAttributeNS(BA.ns[prfx], attr)
		}
		return ret;
	}
}

/* ----- BAElement.setAttributeBA() ----- */

BAElement.prototype.setAttributeBA = function(attr, value) {
	if (!attr || typeof attr != 'string') {
		throw 'BAElement.setAttributeBA: first argument must be a string (atribute name).';
	} else if (attr.match(/:/)) {
		var prfx = attr.split(':')[0];
		var attr = attr.split(':')[1];
		if (this.setAttributeNS && this.namespaceURI || BA.ua.isSafari) {
			this.setAttributeNS(BA.ns[prfx], attr, value);
		} else {
			this.setAttribute('xmlns:' + prfx, BA.ns[prfx]);
			this.setAttribute(prfx + ':' + attr, value);
		}
	} else {
		if (BA.ua.isIE && attr == 'class') attr += 'Name';
		this.setAttribute(attr, value);
	}
}

/* ----- BAElement.hasClassNameBA() ----- */

BAElement.prototype.hasClassNameBA = function(className) {
	if (!className || typeof className != 'string') {
		throw 'BAElement.hasClassNameBA: first argument must be a string (className).';
	} else if (this.nodeType != 1) {
		return false;
	} else {
		return (this.getAttributeBA('class') || '').split(' ').some(function(name) { return (name == className) });
	}
}

/* ----- BAElement.appendClassNameBA() ----- */

BAElement.prototype.appendClassNameBA = function(className) {
	if (!className || typeof className != 'string') {
		throw 'BAElement.appendClassNameBA: first argument must be a string (className).';
	} else if (!this.hasClassNameBA(className)) {
		var cname = (this.getAttributeBA('class') || '').split(' ');
		cname.push(className);
		this.setAttributeBA('class', cname.join(' '));
	}
},

/* ----- BAElement.removeClassNameBA() ----- */

BAElement.prototype.removeClassNameBA = function(className) {
	if (!className || typeof className != 'string') {
		throw 'BAElement.removeClassNameBA: first argument must be a string (className).';
	} else if (this.hasClassNameBA(className)) {
		var cname = this.getAttributeBA('class').split(' ');
		var index = cname.indexOf(className);
		if (index > -1) {
			cname.splice(index, 1);
			this.setAttributeBA('class', cname.join(' '));
		}
	}
}

/* ----- BAElement.normalizeTextNodeBA() ----- */

BAElement.prototype.normalizeTextNodeBA = function(deep) {
	this.getChildNodesBA().forEach(function(node) {
		if (node && node.nodeType == 3) {
			node.nodeValue = node.nodeValue.replace(/^\s+/ , '');
			node.nodeValue = node.nodeValue.replace(/\s+$/ , '');
			node.nodeValue = node.nodeValue.replace(/^\s*$/, '');
		} else if (deep && node.nodeType == 1 && node.hasChildNodes()) {
			node.normalizeTextNodeBA(deep);
		}
	});
}

/* ----- BAElement.getAbsoluteOffsetBA() ----- */

BAElement.prototype.getAbsoluteOffsetBA = function() {
	var offset = { X : this.offsetLeft, Y : this.offsetTop };
	if (this.offsetParent) {
		var op = BARegisterDOMMethodsTo(this.offsetParent).getAbsoluteOffsetBA();
		// IE returns wrong value if 'offsetParent block' is position-relative...
		offset.X += op.X;
		offset.Y += op.Y;
	}
	return offset;
}

/* ----- BAElement.getCurrentStyleBA() ----- */

BAElement.prototype.getCurrentStyleBA = function(property, pseudo) {
	if (!property || typeof property != 'string') {
		throw 'BAElement.getCurrentStyleBA: first argument must be a string (property name).';
	} else {
		try {
			return (window.getComputedStyle) ?
				window.getComputedStyle(this, pseudo)[property] : (this.currentStyle) ?
					this.currentStyle[property] : '';
		} catch (err) { // netscape 7.0x causes exception above.
			return '';
		}
	}
}

/* ----- BAElement.setPositionFixedBA() ----- */

BAElement.prototype.setPositionFixedBA = function(ignoreX, ignoreY, autoHide) {
	if (this.__setPositionFixedBA_applied__) return;
	this.__setPositionFixedBA_applied__ = true;

	ignoreX  = Boolean(ignoreX );
	ignoreY  = Boolean(ignoreY );
	autoHide = Boolean(autoHide);

	var reviseLeft = 0;
	var reviseTop  = 0;
	var oDisplay   = this.getCurrentStyleBA('display');

	if (BA.ua.isWinIE) {
		this.style.display = 'block';
	} else if (BA.ua.isMacIE) {
		var paddingLeft = this.getCurrentStyleBA('paddingLeft');
		var paddingTop  = this.getCurrentStyleBA('paddingTop' );
		if (/px$/.test(paddingLeft)) reviseLeft = -1 * parseFloat(paddingLeft);
		if (/px$/.test(paddingTop )) reviseTop  = -1 * parseFloat(paddingTop );
	}

	this.style.position = (ignoreX || ignoreY || (BA.ua.isWinIE && BA.ua.revision < 7)) ? 'absolute' : 'fixed';
	this.style.left     = (this.getAbsoluteOffsetBA().X + reviseLeft) + 'px';
	this.style.top      = (this.getAbsoluteOffsetBA().Y + reviseTop ) + 'px';
	this.style.right    = 'auto';
	this.style.bottom   = 'auto';
	this.style.margin   = '0';
	if (oDisplay) {
		this.style.display = oDisplay;
	}

	var node = this;
	var timer;
	_movePosition();
	window.addEventListenerBA('scroll', _movePosition);

	function _movePosition(e) {
		if (timer) timer.clearTimer();
		var geom = BAGetGeometry();
		if (!ignoreX && node.style.position == 'absolute') node.style.marginLeft = geom.scrollX + 'px';
		if (!ignoreY && node.style.position == 'absolute') node.style.marginTop  = geom.scrollY + 'px';
		if (autoHide) {
			node.style.visibility = 'hidden'
			timer = new BASetTimeout(function() { node.style.visibility = 'visible' }, 100);
		}
	}
}






/* ---------- Constructor : BAStyleSheet (Abstract Class) ---------- */

function BAStyleSheet() {
	this.instanceOf = 'BAStyleSheet';
}

/* ----- BAStyleSheet.getTitleBA() ----- */

BAStyleSheet.prototype.getTitleBA = function() {
	return this.title || this.__BAStyleTitle__ || '';
}

/* ----- BAStyleSheet.addRuleBA() ----- */

BAStyleSheet.prototype.addRuleBA = function(cssText) {
	if (typeof cssText != 'string' || cssText.indexOf('{') == -1 && cssText.indexOf('{') == -1) {
		throw 'BAStyle.addRuleBA : first argument must be a style rule text.';
	} else {
		var isOldSafari = (BA.ua.isSafari && BA.ua.revision < 522); /* Safari 2.0.x or ealier */
		if (isOldSafari || (!this.insertRule && !this.addRule)) {
			var style = (BA.env.isDOMReady) ? document.createElementBA('style') : new BATag('style');
			style.setAttributeBA('type', 'text/css');
			style.appendChildBA(cssText);
			if (BA.env.isDOMReady) {
				document.getElementsByTagNameBA('head')[0].appendChildBA(style);
			} else {
				document.write(style.toString());
			}
		} else if (this.insertRule) {
			// Std DOM. (opera causes crash?)
			this.insertRule(cssText, this.cssRules.length);
		} else if (this.addRule) {
			// IE
			var selector  = cssText.getBeforeBA('{');
			var predicate = cssText.getAfterBA ('{', true);
			this.addRule(selector, predicate);
		}
	}
}






/* ============================ Common Constructors ============================ */

/* --------------- Constructor : BASetTimeout --------------- */

function BASetTimeout(func, ms, aThisObject) {
	this.storeIndex  = 0;
	this.timer       = null;
	this.storeName   = 'BA_SETTIMEOUT_STOREDFUNC';
	this.removerName = 'BA_SETTIMEOUT_STOREDFUNC_REMOVER';

	if (arguments.length) {
		this.storeFunc(func, ms, aThisObject);
	}
}

BASetTimeout.prototype = {
	storeFunc : function(func, ms, aThisObject) {
		if (!window[this.storeName]) {
			window[this.removerName] = [];
			window[this.storeName]   = [];
			window[this.storeName].remove = function(_idx) {
				this[_idx] = null;
			};
		}

		this.storeIndex = window[this.storeName].push(BACreateDelegate(func, aThisObject));
		this.storeIndex--;
		this.setTimer(ms);
	},

	setTimer : function(ms) {
		var func   = 'window.' + this.storeName + '[' + this.storeIndex + ']()';
		this.timer = (BA.ua.isIE) ?
		             	setTimeout(func, ms, 'JScript') : // workaround to the page weaved with vbscript.
		             	setTimeout(func, ms           ) ;
		this.removeFunc(ms);
	},
	
	clearTimer : function() {
		if (this.timer) {
			this.clearTimerMain();
			clearTimeout(window[this.removerName][this.storeIndex]);
			this.timer = null;
			this.removeFunc(0);
		}
	},

	clearTimerMain : function() {
		clearTimeout(this.timer);
	},

	removeFunc : function(delay) {
		var func   = 'window.' + this.storeName + '.remove(' + this.storeIndex + ')';
		    delay += 1000;
		window[this.removerName][this.storeIndex] = (BA.ua.isIE) ?
		                                            	setTimeout(func, delay, 'JScript') : // workaround to the page weaved with vbscript.
		                                            	setTimeout(func, delay           ) ;
	}
}



/* --------------- Constructor : BASetInterval inherits BASetTimeout --------------- */

function BASetInterval(func, ms, aThisObject) {
	this.storeName   = 'BA_SETINTERVAL_STOREDFUNC';
	this.removerName = 'BA_SETINTERVAL_STOREDFUNC_REMOVER';

	if (arguments.length) {
		this.storeFunc(func, ms, aThisObject);
	}
}

BASetInterval.prototype = new BASetTimeout;

BASetInterval.prototype.setTimer = function(ms) {
	var func   = 'window.' + this.storeName + '[' + this.storeIndex + ']()';
	this.timer = (BA.ua.isIE) ?
	             	setInterval(func, ms, 'JScript') : // workaround to the page weaved with vbscript.
	             	setInterval(func, ms           ) ;
}

BASetInterval.prototype.clearTimerMain = function() {
	clearInterval(this.timer);
}



/* --------------- Constructor : BAStatusDisplay --------------- */

function BAStatusDisplay(node, defaultMsg) {
	this.node         = node;
	this.msg          = '';
	this.defaultMsg   = defaultMsg;
	this.delay        = 0;
	this.sustain      = 0;
	this.delayTimer   = null;
	this.sustainTimer = null;
	
	if (BASingleton(BAEnvironment).env.isDOMReady) {
		this.init()
	}
}

BAStatusDisplay.prototype = {
	init : function() {
		if (!this.node) {
			throw 'BAStatusDisplay.init: element node as display is not supplied.';
		} else {
			if (typeof this.defaultMsg != 'string') {
				this.setDefaultMsg(this.node.getInnerTextBA());
			}
			this.node.removeAllChildrenBA();
			this.node.appendChildBA('');
			this.unset();
		}
	},

	getDefaultMsg : function() {
		return this.defaultMsg;
	},

	setDefaultMsg : function(msg) {
		if (typeof msg != 'string') {
			throw 'BAStatusDisplay.setDefaultMsg: first argument must be an string.';
		} else {
			this.defaultMsg = msg;
			return msg;
		}
	},

	set : function(msg, delay, sustain) {
		if (typeof msg != 'string') {
			throw 'BAStatusDisplay.set: first argument must be an string.';
		} else {
			this.msg     = msg;
			this.delay   = (typeof delay   == 'number' && delay   > 0) ? delay   :  0;
			this.sustain = (typeof sustain == 'number' && sustain > 0) ? sustain :  0;
			if (this.delay > 0) {
				this.delayTimer = new BASetTimeout(this.setProcess, this.delay, this);
			} else {
				this.setProcess();
			}
			return msg;
		}
	},

	unset : function() {
		this.clearTimer();
		this.unsetMsg();
	},

	setProcess : function() {
		this.clearTimer();
		if (this.msg) {
			this.setMsg();
			if (this.sustain > 0) {
				this.sustainTimer = new BASetTimeout(this.unset, this.sustain, this);
			}
		} else {
			this.unset();
		}
	},

	setMsg : function() {
		if (this.node) {
			this.node.removeAllChildrenBA();
			this.node.appendChildBA(this.msg);
		}
	},

	unsetMsg : function() {
		if (this.node) {
			this.node.removeAllChildrenBA();
			this.node.appendChildBA(this.defaultMsg);
		}
	},

	clearTimer : function() {
		if (this.delayTimer  ) this.delayTimer.clearTimer();
		if (this.sustainTimer) this.sustainTimer.clearTimer();
	}
}



/* --------------- Constructor : BAStatusMsg inherits BAStatusDisplay --------------- */

function BAStatusMsg(defaultMsg) {
	this.node         = window.defaultStatus || '';
	this.msg          = '';
	this.defaultMsg   = (typeof defaultMsg == 'string') ? defaultMsg : '';
	this.delay        = 0;
	this.sustain      = 0;
	this.delayTimer   = null;
	this.sustainTimer = null;
}

BAStatusMsg.prototype = new BAStatusDisplay;

BAStatusMsg.prototype.init = function() { }

BAStatusMsg.prototype.setMsg = function() {
	window.status = this.msg;
}

BAStatusMsg.prototype.unsetMsg = function() {
	window.status = this.defaultMsg;
}



/* --------------- Constructor : BATimer --------------- */

function BATimer() { 
	this.reset();
}

BATimer.prototype = {
	reset : function() {
		this.startTime = (new Date()).getTime();
	},
	
	getTime : function() {
		return (new Date()).getTime() - this.startTime;
	},
	
	getSeconds : function() {
		return this.getTime() / 1000;
	}
}



/* --------------- Constructor : BATag --------------- */

function BATag(tagName, attrs) {
	this.tagName    = tagName;
	this.attributes = attrs || {};
	this.childNodes = [];
	this.instanceOf = 'BATag';
}

BATag.prototype = {
	setAttributeBA : function(attrName, value) {
		this.attributes[attrName] = value;
	},

	appendChildBA : function(arg) {
		this.childNodes.push(arg);
	},

	toString : function(debug) {
		var tagOpen    = (debug) ? '&lt;' : '<';
		var tagClose   = (debug) ? '&gt;' : '>';
		var tag        = tagOpen + this.tagName;
		var content    = (this.childNodes.length) ? '' : null;
		for (var i = 0, n = this.childNodes.length; i < n; i++) {
			content += this.childNodes[i].toString(debug);
		}
		for (var attr in this.attributes) {
			tag += ' ' + attr + '="' + this.attributes[attr] + '"';
		}
		tag += (content != null) ?
		       	tagClose + content + tagOpen + '/' + this.tagName + tagClose :
		       	' /' + tagClose;
		return tag;
	}
}



/* -------------------- Constructor : BAObservable -------------------- */

function BAObservable() {
	this.callBackChains = null;
}

BAObservable.prototype.doCallBack = function(name, /* arg1, arg2, ... */ _arguments) {
	if (!this.callBackChains || !this.callBackChains[name]) {
		return null;
	} else {
		var ret;
		var args = [];
		for (var i = 1, n = arguments.length; i < n; i++) {
			args.push(arguments[i]);
		}
		this.callBackChains[name].forEach(function(func) {
			ret = func.apply(null, args);
		});
		return ret;
	}
}

BAObservable.prototype.addCallBack = function(name, func, aThisObject) {
	if (typeof name != 'string' || name == '') {
		throw 'BAObservable.addCallBack: argument \'name\' must be a string as callback name.';
	} else if (typeof func != 'function') {
		throw 'BAObservable.addCallBack: argument \'func\' must be a Function object.';
	} else {
		if (!this.callBackChains) {
			this.callBackChains = {};
		}
		if (!this.callBackChains[name]) {
			this.callBackChains[name] = [];
		}
		if (typeof aThisObject == 'object' && aThisObject != null) {
			this.callBackChains[name].push(BACreateDelegate(func, aThisObject));
		} else {
			this.callBackChains[name].push(func);
		}
	}
}

BAObservable.prototype.removeCallBack = function(name, func) {
	if (typeof name != 'string' || name == '') {
		throw 'BAObservable.removeCallBack: argument \'name\' must be a string as callback name.';
	} else if (typeof func != 'function') {
		throw 'BAObservable.removeCallBack: argument \'func\' must be a Function object.';
	} else {
		var funcs = this.callBackChains[name];
		if (funcs) {
			var index = funcs.indexOf(func);
			if (index > -1) {
				this.callBackChains[name].splice(index, 1);
			}
		}
	}
}

BAObservable.prototype.setCallBack = function() { this.addCallBack.apply(this, arguments) }






/* ======================================== Common Global Functions ======================================== */

/* --------------- Function : BARegisterDOMMethodsTo --------------- */

function BARegisterDOMMethodsTo(node, deep) {
	var isValidNodeType;
	try { // prevent exception that raises when 'node' is 'div.anonymous-div' contained by the input nodes in Gecko.
		isValidNodeType = (node.nodeType == 1 || node.nodeType == 11);
	} catch(err) { }
	if (node && node.instanceOf != 'BAElement' && isValidNodeType) {
		for (var i in BAElement.prototype) {
			node[i] = BAElement.prototype[i];
		}
	}
	if (deep === true && deep && node && node.hasChildNodes()) {
		for (var i = 0, n = node.childNodes.length; i < n; i++) {
			arguments.callee(node.childNodes[i], true);
		}
	}
	return node;
}



/* --------------- Function : BAAddOnload --------------- */

function BAAddOnload(func, aThisObject) {
	var target = (BA.ua.isGecko || BA.ua.isOpera) ? document           : window;
	var type   = (BA.ua.isGecko)                  ? 'DOMContentLoaded' : 'load';
	target.addEventListenerBA(type, func, aThisObject);
}



/* --------------- Function : BAAddDuringLoad --------------- */

function BAAddDuringLoad(func, wait, aThisObject) {
	if (!wait) {
		wait = 500;
	}
	var oFunc = arguments.callee;
	if (!oFunc.__store__) {
		oFunc.__store__ = [];
		BAAddOnload(function() {
			oFunc.__store__.forEach(function(timer) {
				timer.clearTimer();
			});
		});
	}
	oFunc.__store__.push(new BASetInterval(func, wait, aThisObject));
	BAAddOnload(func, aThisObject);
}



/* --------------- Function : BAAddOnunload --------------- */

function BAAddOnunload(func) {
	var target = (BA.ua.isOpera) ? document : window;
	target.addEventListenerBA('unload', func);
}



/* --------------- Function : BAGetCommonDir --------------- */

function BAGetCommonDir(dirName) {
	var sheets = BAGetStyleSheets();
	var ret    = '';
	if (sheets && sheets[0]) {
		var dir  = '/' + dirName + '/';
		var href = sheets[0].href || '';
		var slashSupplemented;
		if (!href.match(/^(\.\.?\/|\w+:)/) && !href.startsWithBA('/')) {   // if href is not absolute url (workaround for IE)
			href = '/' + href;
			slashSupplemented = true;
		}
		if (href.indexOf(dir) > -1) {
			ret = href.getBeforeBA(dir, true);
			if (!ret.match(/^\w+:/)) {   // if ret is not absolute url (workaround for IE)
				var base = document.getElementsByTagName('base')[0];
				var burl = (base) ? base.href : location.href;
				if (slashSupplemented) {
					ret = ret.substr(1);
				}
				if (ret.startsWithBA('/')) {
					ret = burl.match(/^\w+:\/*[^\/]+/) + ret;
				} else {
					ret = ret.relToAbsBA(burl);
				}
			}
		}
	}
	return ret;
}



/* --------------- Function : BAGetStyleSheets --------------- */

function BAGetStyleSheets() {
	var oSheets = document.styleSheets;
	var rSheets = [];

	if (oSheets) {
		for (var i = 0, n = oSheets.length; i < n; i++) {
			rSheets.push(oSheets[i]);
		}
	}

	// workaround for Safari's lack of title property of the styleSheet object.
	if (rSheets.every(function(sheet) { return (sheet.title === null) })) {
		var sheets = [];
		var nodes  = document.getElementsByTagName('link');
		for (var i = 0, n = nodes.length; i < n; i++) {
			var node = nodes[i];
			var rel  = node.rel  || '';
			var href = node.href || '';

			if (/stylesheet$/i.test(rel)) {
				var matched = rSheets.filter(function(sheet) { return (sheet.href == href) })[0];
				if (matched) {
					matched.__BAStyleTitle__ = node.title;
					sheets.push(matched);
				}
			}
		}
		rSheets = sheets;
	}

	rSheets.forEach(function(sheet) {
		if (sheet.instanceOf != 'BAStyleSheet') {
			for (var i in BAStyleSheet.prototype) {
				sheet[i] = BAStyleSheet.prototype[i];
			}
		}
	});
	return rSheets;
}



/* --------------- Function : BAGetActiveCSSTitle --------------- */

function BAGetActiveCSSTitle() {
	var ret = '';
	document.getStyleSheetsBA().forEach(function(sheet) {
		try {
			var title = sheet.getTitleBA();
		} catch(err) {
			// custom methods of BAStyleSheets are unavailable in MacIE
			var title = sheet.title;
		}
		if (!ret && title && !sheet.disabled) {
			ret = title;
		}
	});
	return ret;
}



/* --------------- Function : BASingleton --------------- */

function BASingleton(_constructor) {
	return _constructor.__BASingleInstance__ || (_constructor.__BASingleInstance__ = new _constructor());
}



/* --------------- Function : BACreateDelegate --------------- */

function BACreateDelegate(func, aThisObject){
	if (typeof func != 'function') {
		throw 'BACreateDelegate: first argument must be a function object.';
	} else {
		return function(){
			return func.apply(aThisObject, arguments);
		};
	}
}



/* --------------- Function : BAAlreadyApplied --------------- */

function BAAlreadyApplied(func) {
	if (!BA.ua.isDOMReady || func.__BAAlreadyApplied__) return true;
	func.__BAAlreadyApplied__ = true;
	return false;
}



/* --------------- Function : BAConcatNodeList --------------- */

function BAConcatNodeList() {
	var nodes = [];
	(function(args) {
		for (var i = 0, n = args.length; i < n; i++) {
			var arg = args[i];
			if (!arg) {
				continue;
			} else if (arg.nodeType == 1) {
				nodes.push(arg);
			} else if (arg.length > 0) {
				arguments.callee(arg);
			}
		}
	})(arguments);
	return nodes;
}



/* --------------- Function : BAPreloadImage --------------- */

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



/* --------------- Function : BAOpenWindow --------------- */

function BAOpenWindow(url, target, width, height, options, moveFlag) {
	if (!target) target = '_blank';
	var optVariations = {
		'exampleTarget1' : 'toolbar=yes,location=yes,directories=yes,status=yes,menubar=yes,scrollbars=yes,resizable=yes',
		'exampleTarget2' : 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no'
	}
	options = options || optVariations[target] || '';
	width += (options.match('scrollbars=yes')) ? 16 : 0;
	if (width && height) options = 'width=' + width + ',height=' + height + (options ? ',' + options : '');
	var newWin = window.open(url, target, options);
	newWin.focus();
	if (moveFlag) newWin.moveTo(0, 0);
	if (window.event) window.event.returnValue = false;
	return newWin;
}



/* --------------- Function : BAOpenFullscreenWindow --------------- */

function BAOpenFullscreenWindow(url, target, options) {
	options = options || 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no';
	return BAOpenWindow(url, target, screen.availWidth, screen.availHeight, options, true);
}



/* --------------- Function : BAAppendJS --------------- */

function BAAppendJS(src) {
	if (!src || typeof src != 'string') {
		throw 'BAAppendJS: first argument must be a string as URL.';
	} else {
		var E = new BATag('script');
		E.setAttributeBA('type', 'text/javascript');
		E.setAttributeBA('src' , src.replace(/~/g, '%7E'));
		E.appendChildBA ('');
		document.write(E.toString());
	}
}



/* --------------- Function : BAAppendCSS --------------- */

function BAAppendCSS(href, title, media) {
	if (!href || typeof href != 'string') {
		throw 'BAAppendCSS: first argument must be a string as URL.';
	} else if (title && typeof title != 'string') {
		throw 'BAAppendCSS: second argument must be a string as CSS title';
	} else if (media && typeof title != 'string') {
		throw 'BAAppendCSS: third argument must be a string as CSS media type.';
	} else {
		var act = BAGetActiveCSSTitle();
		var E   = new BATag('link');
		E.setAttributeBA('rel'  , (!title || !act || title == act) ? 'stylesheet' : 'alternate stylesheet');
		E.setAttributeBA('type' , 'text/css');
		E.setAttributeBA('media', media || 'all');
		E.setAttributeBA('href' , href.replace(/~/g, '%7E'));
		if (title) E.setAttributeBA('title', title);
		document.write(E.toString());
	}
}



/* --------------- Function : BAAppendStateClassName --------------- */

function BAAppendStateClassName(className) {
	if (typeof className != 'string' || !className) {
		throw 'BASetStateClassName: argument must be a string.';
	} else {
		var body = document.getElementsByTagNameBA('body')[0];
		if (!body) {
			throw 'BASetStateClassName: <body> element not exists.';
		} else {
			body.appendClassNameBA(className);
		}
	}
}



/* --------------- Function : BARemoveStateClassName --------------- */

function BARemoveStateClassName(className) {
	if (typeof className != 'string' || !className) {
		throw 'BASetStateClassName: argument must be a string.';
	} else {
		var body = document.getElementsByTagNameBA('body')[0];
		if (!body) {
			throw 'BASetStateClassName: <body> element not exists.';
		} else {
			body.removeClassNameBA(className);
		}
	}
}



/* --------------- Function : BAGetGeometry --------------- */

function BAGetGeometry(e) {
	var w = window;
	var d = document.documentElement;
	var b = document.getElementsByTagNameBA('body')[0];
	var isWinIEqm   = BA.ua.isWinIEQM;
	var isMacIE     = BA.ua.isMacIE;
	var isOldSafari = (BA.ua.isSafari && BA.ua.revision < 522); /* Safari 2.0.x or ealier */

	if (!arguments.callee.__geom__) {
		arguments.callee.__geom__ = {};
	}
	var geom       = arguments.callee.__geom__;

	geom.scrollX   = w.scrollX     || d.scrollLeft || b.scrollLeft || 0;
	geom.scrollY   = w.scrollY     || d.scrollTop  || b.scrollTop  || 0;
	geom.windowW   = w.innerWidth  || (isMacIE ? b.scrollWidth  : d.offsetWidth );
	geom.windowH   = w.innerHeight || (isMacIE ? b.scrollHeight : d.offsetHeight);
	geom.pageW     = (isMacIE) ? d.offsetWidth  : (isWinIEqm) ? b.scrollWidth  : d.scrollWidth ;
	geom.pageH     = (isMacIE) ? d.offsetHeight : (isWinIEqm) ? b.scrollHeight : d.scrollHeight;
	geom.windowX   = (!e) ? (geom.windowX  ||  0) : e.clientX - ( isOldSafari ? geom.scrollX : 0);
	geom.windowY   = (!e) ? (geom.windowY  ||  0) : e.clientY - ( isOldSafari ? geom.scrollY : 0);
	geom.mouseX    = (!e) ? (geom.mouseX   ||  0) : e.clientX + (!isOldSafari ? geom.scrollX : 0);
	geom.mouseY    = (!e) ? (geom.mouseY   ||  0) : e.clientY + (!isOldSafari ? geom.scrollY : 0);
	geom.nodeName  = (!e) ? (geom.nodeName || '') : e.target.nodeName;
	geom.zoom      = _getZoomRatio();
	geom.scrollBar = _getScrollBarWidth();

	if (BA.debugMode) {
		var arr = [geom.windowW, geom.windowH, geom.pageW , geom.pageH , geom.windowX, geom.windowY ,
		           geom.scrollX, geom.scrollY, geom.mouseX, geom.mouseY, geom.zoom   , geom.nodeName];
		var msg = '[Debug Mode] window: ${0} x ${1} | page: ${2} x ${3} | scroll: ${6}, ${7} | pos(view): ${4}, ${5} | pos(abs): ${8}, ${9} | zoom: ${10} | node: ${11}';
		BA_STATUSMSG.set(msg.formatTextBA(arr));
	}

	return geom;

	function _getZoomRatio() {
		var per = 1;
		if (BA.ua.isIE70) {
			if (isWinIEqm) {
				per = d.offsetWidth / b.offsetWidth;
			} else {
				var id   = 'BAGetGeometry_getZoomRatio_testNode';
				var node = document.getElementByIdBA(id);
				if (!node) {
					var node = document.createElementBA('ins');
					node.id = id;
					node.style.position = 'absolute';
					node.style.top      = '-10000px';
					node.style.left     = '0';
					node.style.width    = (d.scrollWidth * 10) + 'px';
					b.appendChildBA(node);
				}
				node.style.display = 'block';
				per = d.scrollWidth / node.offsetWidth;
				node.style.display = 'none';
			}
		}
		return per;
	}

	function _getScrollBarWidth() {
		var id   = 'BAGetGeometry_getScrollBarWidth_testNode';
		var node = document.getElementByIdBA(id);
		if (!node) {
			node = document.createElementBA('ins');
			node.id = id;
			node.style.display    = 'block';
			node.style.visibility = 'hidden';
			node.style.overflow   = 'scroll';
			node.style.position   = 'absolute';
			node.style.border     = 'none';
			node.style.top        = node.style.left    = '-10000px';
			node.style.width      = node.style.height  = '100px';
			node.style.margin     = node.style.padding = '0';
			b.appendChildBA(node);
		}
		return (node.offsetWidth - node.clientWidth);
	}
}



/* --------------- Function : BASetWording --------------- */

function BASetWording(expression, str) {
	if (typeof expression != 'string' || typeof str != 'string') {
		throw 'BASetWording: argument type must be string.';
	} else if (!expression) {
		throw 'BASetWording: not enough arguments.';
	} else {
		var props  = expression.split('.');
		var target = 'window';
		while (props.length > 1) {
			var type    = null;
			    target += '.' + props.shift();
			try {
				type = (typeof eval(target));
			} catch(err) { }
			switch (type) {
				case 'undefined' :
					eval(target + ' = {}');
					break;
				case 'object' :
					break;
				default  : 
					throw 'BASetWording: specified expression is unavailable.';
					return;
			}
		}
		var type = null;
		try {
			type = typeof eval('window.' + expression);
		} catch(err) {
			throw 'BASetWording: specified expression is unavailable.';
		}
		if (type == 'undefined' || type == 'string') {
			eval(expression + ' = "' + str + '"');
		}
	}
}






/* =============== Startup Functions (non-DOM / pre onload) =============== */

/* ----- BARegisterDOMMethods ----- */

function BARegisterDOMMethods() {
	// register to Window object
	for (var name in BAWindow.prototype) {
		window[name] = BAWindow.prototype[name];
	}

	// register to Document object
	for (var name in BADocument.prototype) {
		document[name] = BADocument.prototype[name];
	}

	// register to Element objects
	if (BA.rdmAtOnce) {
		if ((typeof Node == 'object' || typeof Node == 'function') && Node.prototype) {
			for (var name in BAElement.prototype) {
				Node.prototype[name] = BAElement.prototype[name];
			}
		} else {
			BAAddOnload(function() {
				document.getElementsByTagNameBA('*').forEach(BARegisterDOMMethodsTo);
			});
		}
	}
}

/* ----- BAAppendReviseCSS ----- */

function BAAppendReviseCSS() {
	var title = BAGetActiveCSSTitle();
	for (var key in BA.css.revise) {
		var conds = key.split('.');
		if (conds.every(function(cond) { return BA.ua['is' + cond] })) {
			BAAppendCSS(BA.css.revise[key], title);
		}
	}
}






/* =============== Startup Functions (DOM / post onload) =============== */

/* ----- BAStartGeometryMeasure ----- */

function BAStartGeometryMeasure() {
	if (BAAlreadyApplied(arguments.callee)) return;

	BAGetGeometry();
	document.addEventListenerBA('mousemove' , BAGetGeometry);
	document.addEventListenerBA('mousewheel', BAGetGeometry);
}

/* ----- BAScrollToFragmentIDTarget ----- */

function BAScrollToFragmentIDTarget() {
	if (BAAlreadyApplied(arguments.callee)) return;
	if (!BA.ua.isSafari || !BA.css.revise.Safari) return;

	var target = location.hash                   || '';
	    target = target.split('#')[1]            || '';
	    target = document.getElementById(target) || null;
	if (target) {
		window.scrollTo(0, target.getAbsoluteOffsetBA().Y);
	}
}






/* =============== Postprocess Functions (DOM / onunload) =============== */

/* ----- BACleanUpEventListeners ----- */

function BACleanUpEventListeners() {
	if (BA_EVENTLISTENER_STORED_NODES) {
		BA_EVENTLISTENER_STORED_NODES.forEach(function(node) {
			var callListeners = node._callListeners.listeners;
			for (var type in callListeners) {
				if (node.removeEventListener) {
					node.removeEventListener(type, node._callListeners, false);
				} else if (node.detachEvent) {
					node.detachEvent("on" + type, node._callListeners);
				}
				this["on" + type] = null;
			}
			node._callListeners = null;
		});
		window.BA_EVENTLISTENER_STORED_NODES = null
	}
}






/* ============================== Main ============================== */

BA           = BASingleton(BAEnvironment);
BA_STATUSMSG = BASingleton(BAStatusMsg);

if (BA.ua.isDOMReady) {
	BARegisterDOMMethods();
	BAAppendReviseCSS();

	BAAddOnload(function() {
		BA.env.isDOMReady = true;
//		BAStartGeometryMeasure();
//		BAScrollToFragmentIDTarget();
//		BAAppendStateClassName('dom-enabled');
	});

	BAAddOnunload(function() {
		BACleanUpEventListeners();
	});
}