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

[ALLY] Text in and out of an area Re:

From: allenk:powerup:au at: 14-Sep-2000 12:51

----- Original Message ----- From: <[gregco--pressroom--com]> To: <[ally--rebol--com]> Sent: Thursday, September 14, 2000 12:00 PM Subject: [ALLY] Text in and out of an area
> I haven't been able to come up with a way to send a string of text to a
view
> area for editing and then retrieve it for further processing. > > In other words, I want to: > > 1. Create a face with a text area. > > 2.Create a string of text programmatically. > > 3. Send that text string to the area for manual editing. > > 4. Retrieve the edited text for further program manipulation. > > No doubt there is a simple answer to this, but I haven't found it in the > docs or by trial and error. > > Any ideas? > > Greg Coughlan >
Hi Greg, I think these demos might help. Needs xper 0.10.33. (execution in the main script is halted until the popup is closed.) Cheers, Allen K REBOL [] edit-text: func [data [string!]][ inform layout [text-area: area copy data button "Close" [hide-popup]] text-area/text ] ; demo1 running from script (with no initial view window) old-string: copy "Demo1 string" new-string: edit-text old-string print ["Old-String - " old-string "^/" "New-String - " new-string] ; demo2 ; running from another view window old-string: copy "Demo 2 string" view layout [button "click" [ new-string: edit-text old-string print ["Old-String - " old-string "^/" "New-String - " new-string] ] ] halt