[REBOL] My rebol plug-in for IE
From: inetw3::mindspring::com at: 25-Oct-2002 20:10
Sorry, this only work in IE (i think Nscape/Mozilla
can play with the clipboard also, i lost the code.)
put this in a web page. be sure to save all in a view folder
=========================================
<SCRIPT>
function Rquery() { window.clipboardData.setData('Text',
event.srcElement.outerHTML); }
function read()
{
r=document.all.RData.createTextRange();
r.execCommand("paste");
}
setInterval("read()",1000);
</SCRIPT>
</HEAD>
<BODY>
<FORM action="clipboardDatascript.r"/">
NAME:<input onBlur="Rquery()" ID:"name" type="text"> </input><br>
ADDR: <input onBlur="Rquery()" ID:"addr" type="text" ></input><br>
AGE: <input onBlur="Rquery()" ID:"age"
type="text"></input>
<input type="submit" value="Go"></FORM>
<br>
<TEXTAREA NAME="RData" ID:"OUT" ROWS="5" COLS="35" READONLY="TRUE"
style="border:none;toolbar:none;"></TEXTAREA>
=========================================
put this in view folder as your %clipboardDatascript.r
you can use switch instead of either/parse coding.
this is just a demo. you can use this so people can
do your code in and out of the browser from a web
page or DOM updates.
(dynamic message object is rquery-rdata-%clipboard_script.r
and (un)shared clipboard through tcp://localhost:8001 code)
=========================================
Rquery: func [data][write clipboard:// data]
Rdata: does [read clipboard://]
sNAME: 'hello
saddr: {your address is: }
sage_: {and your}
s_age: {yeas old}
listen: open tcp://:8001 {you don't need tcp stuff for this demo}
remote: open tcp://localhost:8001
local: first listen
either find Rdata "id:?addr?" [parse Rdata [thru "value=" copy addr to
id:?addr?
(send: probe reform [saddr addr] insert local Rquery send)]] [""]
either find Rdata "id:?NAME?" [parse Rdata [thru "value=" copy name to
ID:?NAME?
(send: probe reform [sNAME NAME] insert local Rquery send)]] [""]
either find Rdata "id:?AGE?" [parse Rdata [thru "value=" copy age to
ID:?AGE?
(send: probe reform [sage_ AGE s_age] insert local Rquery send)]]
[""]
close local
close remote
close listen
forever [do %user.r[wait 3]]
===========================================
put this in your %user.r file
===========================================
THIS: does[read clipboard://]
if find this "ID" [forever [do %clipboardDatascript.r[wait 3]]]
(use either instead of if, this is just a demo)
===========================================
this code is just a thought i had out loud.
improve it and you'll get your rebol plug-in for IE and maybe NS.
Anyone who can make this thing better,faster, and as an object,let me know.
