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

[REBOL] A Rebol plug-in

From: inetw3::mindspring::com at: 28-Oct-2002 9:50

Hello Rebolers, If you could be so nice to try this code for me, and tell me if it works for you. thank you. 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 browser 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 NSwhen i find there clipboard code. Anyone who can make this thing better,faster, and as an object,let me know.