Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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: &nbsp;&nbsp;&nbsp;<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.