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

[REBOL] Simple 'choice' example?

From: philb::upnaway::com at: 18-Nov-2001 0:17

Hi, try using PatentServer/text in the function call Cheers Phil === Original Message === I'm stuck on a simple problem, hope some one can help me out. First of all is there any one URL or REB site that has link to all of the various HowTo's and Docs? I've looked for the last hour trying to find some thing that would explain what I'm doing wrong, but with out luck. I want a 'choice' button that returns some text such as "Dog", "Cat", "Duck", then pass this to a function. Problem is when I get to the function, shown below it prints out the message ?OBJECT? . Assuming I get that working, how do I get 'choice' to return a block and pass that block to a function? REBOL [ ] GetPatent: func [ PatentSever PatentNumber ] [ ; Prints out ?object?, WHY??? print PatentServer ; Does the right thing: print PatentNumber ] ; Derived from emailsend.r: view layout [ backdrop 30.40.100 effect [grid 10x10] origin 40x20 PatentServer: choice "EP" "US" "WO" msg: field "Enter WO Patent Number here..." 210 text white "Options:" across return button "Get Patent" [GetPatent PatentServer msg/text] return button "Quit" [quit] ] do-events