[REBOL] Simple 'choice' example?
From: bpaddock:csonline at: 17-Nov-2001 10:19
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
Assuming I get that working, how do I get 'choice' to return a block and pass
that block to a function?
GetPatent: func [
; Prints out ?object?, WHY???
; Does the right thing:
; Derived from emailsend.r:
view layout [
backdrop 30.40.100 effect [grid 10x10]
PatentServer: choice "EP" "US" "WO"
msg: field "Enter WO Patent Number here..." 210
text white "Options:"
button "Get Patent" [GetPatent PatentServer msg/text]
button "Quit" [quit]