mlhaufe/SEEK.hta

## SEEK.hta
<!doctype html>
<html>
<!-- ref: <https://groups.google.com/group/comp.lang.javascript/browse_thread/thread/684ad16518c837a2/fbfd4c2610bc8832?show_docid=fbfd4c2610bc8832> -->
    <head>
        <meta charset="utf-8" />
        <hta:application
            applicationname="SEEK"
            version="1.0">
        <title>SEEK</title>
        <style type="text/css">
            html{
                overflow:auto;
            }
            body{
                background-color:yellow;
                margin:0;
            }
            #info{
                text-align:center;
                font-size:130%;
                display:block;
                position:relative;
                padding-top:.5em;
            }
            #frmMain{
                background-color:#C6E5FF;
                text-align:center;
                display:block;
                position:absolute;
                top:50px;
                bottom:0px;
                left:5px;
                right:5px;
            }
            #txtCL{
                 width:99%;
                 font-family: monospace;
            }
            #btnSeek{
                background-color: lime;
            }
            #btnWipe{
                background-color: #FCC;
            }
            #TAWrapper{
                position:absolute;
                left:5px;
                right:5px;
                top:100px;
                bottom:5px;
            }
            #TA{
                display:block;
                background-color: #F0F0F0;
                width:99%;
                height:99%; /*IE bug here?*/
            }
        </style>
        <script type="text/javascript" src="seakfyle.js"></script>
        <script type="text/javascript">
            function id(o){ return document.getElementById(o) }
            onload = function(){
                var btnSeek = id("btnSeek"),
                    btnWipe = id("btnWipe"),
                    TA = id("TA"),
                    txtCL = id("txtCL"),
                    txtRows = id("txtRows");
                btnSeek.onclick = SEAKFYLE;
                btnWipe.onclick = function(){
                    TA.value = '';
                }
                txtRows.onchange = function(){
                    TA.rows += this.value;
                }

                TA.style.height = TA.parentNode.offsetHeight - 10 + "px";

                onresize = function(){
                    TA.style.height = TA.parentNode.offsetHeight - 10 + "px";
                }

                Fawm = document.forms[0];
            }

        </script>
    </head>
    <body>
        <div id="info">
            <a href="seakfyle.htm">Instructions</a>
            &emsp;
            SEAKFYLE.JS <em>via</em> SEEK.HTA
            &emsp;
            &copy; JRS &ge; 2012-01-10
            &emsp;
            <a href="http://www.merlyn.demon.co.uk/programs/32-bit/00index.htm">Source Index</a>
        </div>
        <form id="frmMain" action="#">
            <h3>Arguments</h3>
            <input type="text" id="txtCL" size="1" value="C:\WSH\SEEK N">
            <button id="btnSeek">SEEK</button>
            &emsp;
            <input type="text" size="4" value="ROWS" id="txtRows">
            &emsp;
            <button id="btnWipe">WIPE</button>
            <div id="TAWrapper">
                <textarea id="TA" cols="1" rows="1" readonly></textarea>
            </div>
        </form>

    </body>
</html>
	<!doctype html>
	<html>
	<!-- ref: <https://groups.google.com/group/comp.lang.javascript/browse_thread/thread/684ad16518c837a2/fbfd4c2610bc8832?show_docid=fbfd4c2610bc8832> -->
	<head>
	<meta charset="utf-8" />
	<hta:application
	applicationname="SEEK"
	version="1.0">
	<title>SEEK</title>
	<style type="text/css">
	html{
	overflow:auto;
	}
	body{
	background-color:yellow;
	margin:0;
	}
	#info{
	text-align:center;
	font-size:130%;
	display:block;
	position:relative;
	padding-top:.5em;
	}
	#frmMain{
	background-color:#C6E5FF;
	text-align:center;
	display:block;
	position:absolute;
	top:50px;
	bottom:0px;
	left:5px;
	right:5px;
	}
	#txtCL{
	width:99%;
	font-family: monospace;
	}
	#btnSeek{
	background-color: lime;
	}
	#btnWipe{
	background-color: #FCC;
	}
	#TAWrapper{
	position:absolute;
	left:5px;
	right:5px;
	top:100px;
	bottom:5px;
	}
	#TA{
	display:block;
	background-color: #F0F0F0;
	width:99%;
	height:99%; /IE bug here?/
	}
	</style>
	<script type="text/javascript" src="seakfyle.js"></script>
	<script type="text/javascript">
	function id(o){ return document.getElementById(o) }
	onload = function(){
	var btnSeek = id("btnSeek"),
	btnWipe = id("btnWipe"),
	TA = id("TA"),
	txtCL = id("txtCL"),
	txtRows = id("txtRows");
	btnSeek.onclick = SEAKFYLE;
	btnWipe.onclick = function(){
	TA.value = '';
	}
	txtRows.onchange = function(){
	TA.rows += this.value;
	}

	TA.style.height = TA.parentNode.offsetHeight - 10 + "px";

	onresize = function(){
	TA.style.height = TA.parentNode.offsetHeight - 10 + "px";
	}

	Fawm = document.forms[0];
	}

	</script>
	</head>
	<body>
	<div id="info">
	<a href="seakfyle.htm">Instructions</a>
	&emsp;
	SEAKFYLE.JS <em>via</em> SEEK.HTA
	&emsp;
	© JRS ≥ 2012-01-10
	&emsp;
	<a href="http://www.merlyn.demon.co.uk/programs/32-bit/00index.htm">Source Index</a>
	</div>
	<form id="frmMain" action="#">
	<h3>Arguments</h3>
	<input type="text" id="txtCL" size="1" value="C:\WSH\SEEK N">
	<button id="btnSeek">SEEK</button>
	&emsp;
	<input type="text" size="4" value="ROWS" id="txtRows">
	&emsp;
	<button id="btnWipe">WIPE</button>
	<div id="TAWrapper">
	<textarea id="TA" cols="1" rows="1" readonly></textarea>
	</div>
	</form>

	</body>
	</html>