/*
aqtree3clickable.js
Converts an unordered list to an explorer-style tree, with clickable
icons
To make this work, simply add one line to your HTML:
and then make the top UL of your nested unordered list of class
"aqtree3clickable".
That's it. No registration function, nothing.
http://www.kryogenix.org/code/browser/aqlists/
Stuart Langridge, November 2002
sil@kryogenix.org
Inspired by Aaron's labels.js (http://youngpup.net/demos/labels/) and Dave Lindquist's menuDropDown.js (http://www.gazingus.org/dhtml/?id=109)
*/
addEvent(window, "load", makeTreesC);
function makeTreesC() {
 // We don't actually need createElement, but we do
 // need good DOM support, so this is a good check.
 if (!document.createElement) return;
 
 uls = document.getElementsByTagName("ul");
 for (uli=0;uli<uls.length;uli++) {
 ul = uls[uli];
 if (ul.nodeName == "UL" && ul.className == "aqtree3clickable") {
 processULELC(ul);
 }
 }
}
function processULELC(ul) {
 if (!ul.childNodes &#124;&#124; ul.childNodes.length == 0) return;
 // Iterate LIs
 for (var itemi=0;itemi<ul.childnodes.length;itemi++) {
 var item = ul.childNodes[itemi];
 if (item.nodeName == "LI") {
 // Iterate things in this LI
 var a;
 var subul;
	 subul = "";
 for (var sitemi=0;sitemi<item.childnodes.length;sitemi++) {
 var sitem = item.childNodes[sitemi];
 switch (sitem.nodeName) {
 case "A": a = sitem; break;
 case "UL": subul = sitem; 
 processULELC(subul);
 break;
 }
 }
 if (subul) {
 associateELC(a,subul);
 } else {
 a.parentNode.className = "aq3bullet";
 }
 }
 }
}
function associateELC(a,ul) {
 if (a.parentNode.className.indexOf('aq3open') == -1)
 a.parentNode.className = 'aq3closed';
 a.onclick = function () {
 this.parentNode.className = (this.parentNode.className=='aq3open') ? "aq3closed" : "aq3open";
 return false;
 }
}
/* Utility functions */
function addEvent(obj, evType, fn){
 /* adds an eventListener for browsers which support it
 Written by Scott Andrew: nice one, Scott */
 if (obj.addEventListener){
 obj.addEventListener(evType, fn, false);
 return true;
 } else if (obj.attachEvent){
	var r = obj.attachEvent("on"+evType, fn);
 return r;
 } else {
	return false;
 }
}
</div><div class="naked_ctrl">
<form action="/index.cgi/speech" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="https://www.kryogenix.org/code/browser/aqlists/aqtree3clickable.js">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="https://www.kryogenix.org/code/browser/aqlists/aqtree3clickable.js" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech" selected="selected">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>