tell application "Internet Explorer"
	Activate
	do script "
		// 永続スタイルに与える名前
		var bsetPersistStyleLabel = '*Default*';
		// 「HTML の記述で施されてるデザイン効果」の選択肢に与える名前
		var bsetHtmlStyleLabel = '*HTML*';
		// 「スタイル無し」の選択肢につける名前
		var bsetNoStyleLabel = '*NoStyle*'
		// レガシー HTML のデザイン効果をうち消す CSS の所在地 (URL)
		var bsetNoStyleURL = 'http://www.remus.dti.ne.jp/~a-satomi/bunsyorou/MacIE5_benriSet/nostyle.css';

		var bsetPrefix = 'Benriset';
		var bsetScriptName = 'StyleChanger';
		var bsetSuffix = 'SheetItem';
		var bsetStyleChangerId = 'BenrisetStyleChanger';
		bsetMain();

		function bsetMain(){
			if (!bsetIsFirstLaunch()) return;
			bsetStyleChangeSheet();
			document.onclick = bsetToggleVisibility;
		}

		function bsetStyleChangeSheet() {
			// styles[スタイルの名前] = それが有効か否か (true|false)
			// 選択メニューの項目重複を避けるために配列をムダに利用…。
			var styles = [];
			var hasPreferStyle = false;

			// スタイル皆無なら、「HTMLによるデザイン」に名前を与える
			if (document.styleSheets.length == 0 ) styles[bsetHtmlStyleLabel] = true;

			// link要素からスタイルシートを探す
			var OBJs = document.getElementsByTagName('LINK');
			var altNum =1;
			for (var i=0, n=OBJs.length; i<n; i++) {
				bsetShowProgress('Collecting styles from LINK elements', i, n);
				var obj = OBJs.item(i);
				var rel = obj.rel.toLowerCase();
				if (rel == 'stylesheet') {
					hasPreferStyle = (obj.title || hasPreferStyle) ? true : false;
					obj.title = (obj.title) ? obj.title : bsetPersistStyleLabel;
					styles[obj.title] = !obj.disabled;
				} else  if (rel == 'alternate stylesheet') {
					obj.title = (obj.title) ? obj.title : '*Alternate' + altNum + '*';
					styles[obj.title] = false;
					altNum++;
				}
			}

			// style要素を探す
			var OBJs = document.getElementsByTagName('STYLE');
			for (var i=0, n=OBJs.length; i<n; i++ ) {
				bsetShowProgress('Collecting styles from STYLE elements', i, n);
				var obj = OBJs.item(i);
				if (!obj.title) obj.title = bsetPersistStyleLabel;
				styles[obj.title] = !obj.disabled;
			}

			// 「スタイル無し」選択肢用の外部CSSを追加
			var noStyle = document.createStyleSheet(bsetNoStyleURL);
			noStyle.title = bsetNoStyleLabel;
			noStyle.disabled = true;
			styles[bsetNoStyleLabel] = false;

			// 選択メニュー生成
			var rootElement = document.getElementsByTagName('BODY')[0];
			if (!rootElement) rootElement = document.documentElement;
			var cDIV = document.createElement('div');
			var cSELECT = document.createElement('select');
			cDIV.className = bsetPrefix + bsetSuffix;
			cDIV.id = bsetStyleChangerId;
			cSELECT.onchange = bsetStyleChange;
			bsetAppendStyle(cDIV);
			bsetAppendStyle(cSELECT);

			var i=0, n = styles.length;
			for (item in styles) {
				bsetShowProgress('Creating style select menu', i, n);
				if ((item == bsetPersistStyleLabel) && hasPreferStyle ) continue;
				var cOPTION = document.createElement('option');
				cOPTION.text = cOPTION.value = item;
				cOPTION.selected = styles[item];
				cSELECT.add(cOPTION, i); // cSELECT.add(cOPTION, cSELECT.options.item(i)) はクラッシュ
				i++;
			}

			window.status = 'Creating StyleChanger...';
			rootElement.appendChild(cDIV);
			cDIV.appendChild(cSELECT);
			cSELECT.appendChild(document.createElement('option')); // ダミーを置かないと他のoption項目が出ない。謎。
			window.status = '';
		}
		
		function bsetStyleChange() {
			var obj = document.getElementById(bsetStyleChangerId).firstChild;
			var value = obj.options[obj.options.selectedIndex].value;

			for ( i=0, n=document.styleSheets.length; i<n; i++ ) {
				bsetShowProgress('Switching style', i, n)
				var obj = document.styleSheets[i];
				var title =  obj.title;
				obj.disabled = (title == value) ? false : true;
				if (value != bsetNoStyleLabel && title == bsetPersistStyleLabel) obj.disabled = false;
			}
			return false;
		}

		function bsetAppendStyle(obj) {
			switch(obj.tagName) {
				case 'DIV' :
					with (obj.style) {
						margin = '0 !important';
						padding = '0.5em 1em !important';
						background = '#ffffce !important';
						borderWidth = '1px !important';
						borderStyle = 'solid !important';
						borderColor =  '#bbbbbb #999999 #999999 #bbbbbb !important';
						position = 'fixed !important';
						bottom = '2px !important';
						right = '2px !important';
						zIndex = '10000 !important';
						width = 'auto !important';
						textAlign = 'left !important';
						visibility = 'visible !important';
					}
					break;
				case 'SELECT' :
					with (obj.style) {
						margin = '0 !important';
						padding = '0 !important';
						color = 'black !important';
						background = 'white !important';
						borderWidth = '1px !important';
						borderStyle = 'solid !important';
						borderColor =  'black !important';
						fontSize = '10px !important';
						fontWeight = 'normal !important';
						fontStyle = 'normal !important';
					}
					break;
				default: break;
			}
		}
		
		function bsetIsFirstLaunch() {
			var bsetNSURL = 'http://www.remus.dti.ne.jp/~a-satomi/bunsyorou/MacIE5_benriSet.html';
			var flagAttrName = bsetPrefix + ':' + bsetScriptName;
			var applyFlag = document.documentElement.getAttribute(flagAttrName);
			if (!applyFlag) {
				document.documentElement.setAttribute('xmlns:'+bsetPrefix, bsetNSURL);
				document.documentElement.setAttribute(flagAttrName, 'true');
				return true;
			} else {
				window.status = flagAttrName + ' is already applied.';
				return false;
			}
		}
		
		function bsetToggleVisibility() {
			var sheetItems = [];
			var isVisible;
			var OBJs = document.getElementsByTagName('*');
			for (var i=0, n=OBJs.length; i<n; i++) {
				var obj =OBJs.item(i);
				if (obj.className != bsetPrefix + bsetSuffix) continue;
				sheetItems[sheetItems.length] = obj;
				isVisible = (obj.style.visibility == 'visible !important' || isVisible);
			}
			for (var i=0, n=sheetItems.length; i<n; i++)
				sheetItems[i].style.visibility = (isVisible) ? 'hidden !important' : 'visible !important';
		}
		
		function bsetShowProgress(text, currentNo, wholeNo){
			currentNo++;
			window.status = text + ' (' + currentNo + '/' + wholeNo + ')';
			if (currentNo >= wholeNo) window.status = '';
		}
	"
end tell